如何获取当前VBS执行的进程号

watson · 发表于 2023-11-2 15:42:59

如何在代码中获取当前VBS代码执行的进程号。

ShowCode · 发表于 2023-11-2 16:15:16

回复 1# watson

1.vbs

Set objShell = CreateObject("WScript.Shell")
Set objScriptExec = objShell.Exec("tasklist /v /fo csv /fi ""IMAGENAME eq wscript.exe""")
strScriptPID = objScriptExec.StdOut.ReadAll
Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True
objRegEx.Pattern = "(\d+)"
Set colMatches = objRegEx.Execute(strScriptPID)
MsgBox strScriptPID
If colMatches.Count > 0 Then
MsgBox colMatches(0).SubMatches(0)
End If

复制代码

ShowCode · 发表于 2023-11-2 16:23:33

回复 1# watson

2.vbs

Set oShell = CreateObject("WScript.Shell")
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
sCmd = "/k " & Left(CreateObject("Scriptlet.TypeLib").Guid, 38)
oShell.Run "%comspec% " & sCmd, 0
Set oChldPrcs = oWMI.ExecQuery("Select * From Win32_Process Where CommandLine Like '%" & sCmd & "'",,32)
For Each oCols In oChldPrcs
lOut = oCols.ParentProcessId
oCols.Terminate
Exit For
Next
MsgBox lOut

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] 如何获取当前VBS执行的进程号