[已解决]VBS如何运行程序并返回进程ID？

MsgBox CStr(CreateProcess("notepad"))



Function CreateProcess(sPath)
	Dim oShell, oProcess
	Set oShell = CreateObject("WScript.Shell")
	Set oProcess = oShell.Exec(sPath)
	CreateProcess = oProcess.ProcessID
	Set oProcess = Nothing
	Set oShell = Nothing
End Function
复制代码

Dim iProcessID
If CreateProcess2("cmd", iProcessID) Then MsgBox CStr(iProcessID)



Function CreateProcess2(sPath, iProcessID)
	Dim oProcess, iReturn
	Set oProcess = GetObject("winmgmts:root\cimv2:Win32_Process")
	iReturn = oProcess.Create(sPath, Null, Null, iProcessID)
	Set oProcess = Nothing
	CreateProcess2 = iReturn = 0
End Function
复制代码