Private Sub Command1_Click()
Dim bl As Boolean
bl = RunExeAtComputer("192.168.0.166", "c:\1\send.exe 192.168.0.171 19000 sdsdfsd")
MsgBox "³É¹¦"
End Sub
Function RunExeAtComputer(ByVal strComputer As String, ByVal exeFile As String) As Boolean
Dim objWMIService As Object
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
Dim ErrReturn As Long, intProcessID As Integer
ErrReturn = objWMIService.Create(exeFile, Null, Null, intProcessID)
Set objWMIService = Nothing
If ErrReturn = 0 And intProcessID <> -1 Then RunExeAtComputer = True
End Function
'在其它电脑上运行指定 exe 文件
Function RunExeAtComputer(ByVal strComputer As String, ByVal exeFile As String) As Boolean
Dim objWMIService As Object
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
Dim ErrReturn As Long, intProcessID As Integer
ErrReturn = objWMIService.Create(exeFile, Null, Null, intProcessID)
Set objWMIService = Nothing
If ErrReturn = 0 And intProcessID <> -1 Then RunExeAtComputer = True
End Function