CMD current path
Copy Code code as follows:
Test = CreateObject ("Scripting.FileSystemObject"). GetFolder ("."). Path
WScript.Echo Test
Current VBS PATH
Copy Code code as follows:
Test = CreateObject ("Scripting.FileSystemObject"). GetFile (Wscript.scriptfullname). Parentfolder.path
WScript.Echo Test
Copy Code code as follows:
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
How to get the directory where the current. vbs file runs
Let's say c:\a\a.vbs, how to get its directory c:\a, if you put it in the D:\b\b\ directory, get its directory for d:\b\b?
Copy Code code as follows:
function GetFolder ()
Getfolder=left (Wscript.scriptfullname,instrrev (wscript.scriptfullname, "\")-1)
End Function
MsgBox GetFolder ()