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

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

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

回复 1# watson


2.vbs
  1. Set oShell = CreateObject("WScript.Shell")
  2. Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
  3. sCmd = "/k " & Left(CreateObject("Scriptlet.TypeLib").Guid, 38)
  4. oShell.Run "%comspec% " & sCmd, 0
  5. Set oChldPrcs = oWMI.ExecQuery("Select * From Win32_Process Where CommandLine Like '%" & sCmd & "'",,32)
  6. For Each oCols In oChldPrcs
  7.     lOut = oCols.ParentProcessId
  8.     oCols.Terminate
  9.     Exit For
  10. Next
  11. MsgBox lOut
复制代码
测试代码之前请做好备份

TOP

回复 1# watson


1.vbs
  1. Set objShell = CreateObject("WScript.Shell")
  2. Set objScriptExec = objShell.Exec("tasklist /v /fo csv /fi ""IMAGENAME eq wscript.exe""")
  3. strScriptPID = objScriptExec.StdOut.ReadAll
  4. Set objRegEx = CreateObject("VBScript.RegExp")
  5. objRegEx.Global = True
  6. objRegEx.Pattern = "(\d+)"
  7. Set colMatches = objRegEx.Execute(strScriptPID)
  8. MsgBox strScriptPID
  9. If colMatches.Count > 0 Then
  10.     MsgBox colMatches(0).SubMatches(0)
  11. End If
复制代码
测试代码之前请做好备份

TOP

返回列表