VBS 获取当前进程 ID
Function CurrProcessId Dim oShell, sCmd, oWMI, oChldPrcs, oCols, lOut lOut = 0 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 rem WScript.Sleep 100 'For healthier skin, get some sleep 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 CurrProcessId = lOut End Function msgbox CurrProcessId
桂棹兮兰桨,击空明兮溯流光。