Re: Return Code from Win32_Process's Create method
- From: "Scott McNairy \(MVP\)" <v-scomcn@xxxxxxxxxxxxxxxxxxxx>
- Date: Wed, 29 Jun 2005 09:54:14 -0700
Unfortunately the return code is only supported in the
Win32_ProcessStopTrace class. However that class also shipped on Win2k3
Servers.
Alternatively, not sure how you are running the executable but you could use
a script similar to this... Perhaps even as your target of the create
method you are already using, storing the iReturn value somewhere that it
can be retrieved by your original script. Just a thought.
set ws = CreateObjecT("Wscript.shell")
set args = wscript.arguments
if args.Count <> 1 then
wscript.echo "Invalid argument count"
wscript.quit 1
else
wscript.echo "Going to execute " & args(0)
iReturn = ws.Run (args(0), 1, true)
wscript.echo "Return Code = " & iReturn
wscript.echo "Hex Value is = 0x" & hex(iReturn)
end if
--
Scott McNairy
Microsoft MVP - Windows Server Management Infrastructure
"Cosmo" <Cosmo@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:9CFB7D94-ADD8-41B3-B594-53775475569B@xxxxxxxxxxxxxxxx
> How can I obtain the return code of a remotely executed process when using
> Win32_Process's objWMIService.Create method. Note: I have Win2000 and 2003
> servers, so I can't use Win32_ProcessStopTrace class, as mentioned in
> http://www.microsoft.com/technet/scriptcenter/resources/scriptshop/default.mspx.
>
> My code is below:
> ' *************************
> Sub Execute_Remote_Process(byVal strComputer)
> Dim objWMIService, intProcessID, intReturnCode
>
> On Error Resume Next ' /* Disable error checking
> Set objWMIService = GetObject("winmgmts:\\" & strComputer &
> "\root\cimv2:Win32_Process")
>
> If Err.Number = 0 Then
> ' /* WMI Binding okay, so now execute the process
> On Error Goto 0 ' /* Re-enable error checking
>
> intReturnCode = objWMIService.Create(strProcess, null, null, intProcessID)
> Select Case intReturnCode
> Case 0
> Wait_Until_Process_Completes strComputer, intProcessID
> Case Access_Denied
> Wscript.Echo "Process could not be started due to an Access Denied error"
> Case Process_Insufficient_Privilege
> Wscript.Echo "Process could not be started due to Insufficient
> Privileges."
> Case Unknown_Failure
> Wscript.Echo "Process could not be started due to an Unknown Failure"
> End Select
> Else
> Wscript.Echo "WMI Binding Error: Process execution could not occurs due to
> WMI Insufficient Privileges." _
> & vbcrlf & "Confirm the user account running this script has local
> admin rights on the target computer."
> End If
> End Sub
>
> ' *************************
> Sub Wait_Until_Process_Completes(ByVal strComputer, ByVal intProcessID)
>
> Dim objWMIMonitor, colMonitorProcess, objLatestEvent
>
> Set objWMIMonitor = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
>
> ' /* Set polling to 1 second
> Set colMonitorProcess = objWMIMonitor.ExecNotificationQuery("SELECT * FROM
> __InstanceOperationEvent Within 1 WHERE TargetInstance ISA
> 'Win32_Process'")
> WScript.Echo "Waiting for " & Quotes & strProcess & Quotes & " with PID of
> " & intProcessID & " on " & strComputer & " to complete ..."
> Do
> ' /* Loop & query every 1 second until process Completes
> Set objLatestEvent = colMonitorProcess.NextEvent
> Loop Until objLatestEvent.Path_.Class = "__InstanceDeletionEvent" And
> objLatestEvent.TargetInstance.ProcessId = intProcessID
> Set colMonitorProcess = Nothing
> End Sub
> ' *************************
>
.
- Follow-Ups:
- References:
- Return Code from Win32_Process’s Create method
- From: Cosmo
- Return Code from Win32_Process’s Create method
- Prev by Date: Re: Script inventory Office versions
- Next by Date: Script to install printers
- Previous by thread: Return Code from Win32_Process’s Create method
- Next by thread: Re: Return Code from Win32_Process's Create method
- Index(es):
Relevant Pages
|
