test = createobject("Scripting.FileSystemObject").GetFolder(".").Path Wscript.echo test
當前VBS路徑
復制代碼 代碼如下:
test = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path Wscript.echo test
復制代碼 代碼如下:
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
