vbs獲取當(dāng)前路徑的代碼
更新時(shí)間：2014年05月02日 00:44:13 作者：
有時(shí)候我們需要獲取執(zhí)行當(dāng)前vbs的路徑，那么就可以參考下面的代碼，一般用來(lái)可以刪除自身等操作
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)行的目錄
比方說(shuō)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()
相關(guān)文章
VBS教程：屬性-Drive 屬性...2006-11-11
關(guān)于VBS采集，網(wǎng)上流行比較多的方法都是正則，其實(shí) htmlfile 可以解析 html 代碼，但如果 designMode 沒(méi)開(kāi)啟的話(huà)，有時(shí)候會(huì)包安全提示信息2014-06-06
用adodb.stream讀取文件并保存為數(shù)組的實(shí)現(xiàn)代碼2008-08-08
VBS教程：函數(shù)-DateDiff 函數(shù)
VBS教程：函數(shù)-DateDiff 函數(shù)...2006-11-11
查看或修改Windows系列系統(tǒng)的序列號(hào)的vbs
查看或修改Windows系列系統(tǒng)的序列號(hào)（包括：2000,xp,2003），支持命令行2008-06-06
VBScript 監(jiān)控并結(jié)束指定進(jìn)程的代碼
有時(shí)候我們需要監(jiān)控一些進(jìn)程，防止一些進(jìn)程的開(kāi)啟，發(fā)現(xiàn)指定進(jìn)程運(yùn)行就關(guān)閉它，那么就可以參考下面的代碼2013-09-09
vbscript基礎(chǔ)篇 - vbs變量定義與使用方法
VBScript只有一種數(shù)據(jù)類(lèi)型 —— Variant，它是根據(jù)上下文來(lái)判斷是數(shù)字還是字符串。因?yàn)閂ariant是VBScript中唯一的數(shù)據(jù)類(lèi)型，所以它也是VBScript中所有函數(shù)的返回值的數(shù)據(jù)類(lèi)型2018-05-05
用vbs查找系統(tǒng)進(jìn)程，發(fā)現(xiàn)qq的進(jìn)程則殺掉就是這段代碼的原理2008-06-06
VBS教程：VBscript屬性-功能介紹...2006-11-11
百度抽風(fēng)，老是把吃掉行首空格，導(dǎo)致代碼沒(méi)有縮進(jìn)，用下面的代碼即可2011-12-12