Dim oProcess As Object
Dim lProcessID As Long
Dim lRet As Long
Dim runstr As String
Dim RemoteHostName, ProcessName As String
RemoteHostName = "MyServer"
ProcessName = "mspaint.exe"
Try
runstr = "winmgmts:\\" & RemoteHostName & "\root\cimv2:Win32_Process"
oProcess = GetObject(runstr)
lRet = oProcess.Create(ProcessName, , ,IProcessID)
Catch errorVariable As Exception
MsgBox(errorVariable.Message)
End Try
There are certain issues like WMI and RPC must be enabled on remote machine and you must login with administrative rights etc.
0 Comments