WMI的,发现比WScript的Exec好,都运行下cmd就知道了。
参考:
http://msdn.microsoft.com/en-us/library/aa389388(VS.85).aspx- 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
复制代码
|