vbs 獲取當(dāng)前目錄的實(shí)現(xiàn)代碼
更新時(shí)間:2013年09月03日 15:42:49 作者:
獲取當(dāng)前正執(zhí)行的VBS的路徑,通過Scripting.FileSystemObject組件實(shí)現(xiàn)
CMD當(dāng)前路徑
復(fù)制代碼 代碼如下:
test = createobject("Scripting.FileSystemObject").GetFolder(".").Path
Wscript.echo test
當(dāng)前VBS路徑
復(fù)制代碼 代碼如下:
test = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
Wscript.echo test
復(fù)制代碼 代碼如下:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_Process Where Name = 'wscript.exe' OR Name = 'cscript.exe'")
For Each objItem in colItems
lmq=lmq & objItem.CommandLine & vbcrlf
Next
Wscript.Echo lmq
如何獲得當(dāng)前.vbs文件運(yùn)行的目錄
比方說c:\a\a.vbs,如何或得它的目錄c:\a,如果把它放在d:\b\b\目錄下,獲得它的目錄為d:\b\b呢?
復(fù)制代碼 代碼如下:
function getfolder()
getfolder=left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\")-1)
end function
MsgBox getfolder()
您可能感興趣的文章:
- 用vbs實(shí)現(xiàn)獲取電腦硬件信息的腳本_最新版
- 用VBS控制鼠標(biāo)的實(shí)現(xiàn)代碼(獲取鼠標(biāo)坐標(biāo)、鼠標(biāo)移動、鼠標(biāo)單擊、鼠標(biāo)雙擊、鼠標(biāo)右擊)
- 獲取外網(wǎng)IP并發(fā)送到指定郵箱的vbs代碼[已測]
- VBS獲取當(dāng)前目錄下所有文件夾名字的代碼
- vbs獲取當(dāng)前時(shí)間日期的代碼
- vbscript獲取文件的創(chuàng)建時(shí)間、最后修改時(shí)間和最后訪問時(shí)間的方法
- vbs中獲取腳本當(dāng)前路徑的2個(gè)方法
- 通過vbs獲取遠(yuǎn)程host文件并保存到指定目錄
- VBScript獲取CPU使用率的方法
- 使用vbs獲取雅虎匯率
相關(guān)文章
用VBS修改遠(yuǎn)程桌面3389端口并添加到Windows防火墻的代碼
用vbs實(shí)現(xiàn)端口就是用vbs修改的注冊表,主要是vbs的添加到防火墻的代碼,值得大家學(xué)習(xí)2008-06-06vbs實(shí)現(xiàn)無黑框無DOS窗口隱藏批處理運(yùn)行窗口
支持路徑或文件名帶空格,網(wǎng)上給出的VBS代碼貌似沒有留到空格問題,特此補(bǔ)充。 黑友們喜歡的東西,以后運(yùn)行批處理就沒有明顯的窗口的2008-05-05VBS數(shù)組函數(shù)學(xué)習(xí)實(shí)例分析
VBS數(shù)組在應(yīng)用中沒有像其他語句那么廣泛,VBS數(shù)組存在不少功能上的局限性(如二維數(shù)組的定義、賦值),在使用上也沒有java等語言那么便捷2013-04-04使用 Iisext.vbs 刪除 Web 服務(wù)擴(kuò)展文件的方法
這篇文章主要介紹了如何使用 iisext.vbs 從本地或遠(yuǎn)程計(jì)算機(jī)上刪除 Web 服務(wù)擴(kuò)展文件,需要的朋友可以參考下2014-07-07