mary212
04-16-05, 07:08
Hi,
I'm new to VBscript and trying to get MyProgram.vbs(which is a program that lists all software installed on a PC) to run on a remote PC but it wont do anything....the program runs fine on my local machine and it runs fine if I go onto the remote PC and run it from there but it wont work remotely, any help would be much appreciated...here's the code I have for running a remote program:
'==========================
'Remote.vbs
'==========================
Const OverwriteExisting = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\Scripts\MyProgram.vbs", _
"\\remoteIPAddress\C$\Scripts\",OverWriteExisting
strComputer = "remoteIPAddress"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
Error = objWMIService.Create("c:\scripts\MyProgram.vbs", null, null,intProcessID)
If Error = 0 Then
MsgBox (strProcess & " was started with a process ID of " & intProcessID & ".")
Else
MsgBox (strProcess & " could not be started due to error " & _
errReturn & ".")
End If
=================================
So it does copy the program to c:\Scripts of the remote PC but it wont run the program...I do believe that it kicks of a wscript process in the process list on task manager. Please help :)
I'm new to VBscript and trying to get MyProgram.vbs(which is a program that lists all software installed on a PC) to run on a remote PC but it wont do anything....the program runs fine on my local machine and it runs fine if I go onto the remote PC and run it from there but it wont work remotely, any help would be much appreciated...here's the code I have for running a remote program:
'==========================
'Remote.vbs
'==========================
Const OverwriteExisting = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\Scripts\MyProgram.vbs", _
"\\remoteIPAddress\C$\Scripts\",OverWriteExisting
strComputer = "remoteIPAddress"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
Error = objWMIService.Create("c:\scripts\MyProgram.vbs", null, null,intProcessID)
If Error = 0 Then
MsgBox (strProcess & " was started with a process ID of " & intProcessID & ".")
Else
MsgBox (strProcess & " could not be started due to error " & _
errReturn & ".")
End If
=================================
So it does copy the program to c:\Scripts of the remote PC but it wont run the program...I do believe that it kicks of a wscript process in the process list on task manager. Please help :)