Execute File on Server

[LuckyDuck528]

Please advise if this is the wrong place to post my question...

I have a file called WebPub.vbs sitting on a Win2003 Server that I would like to be able to execute on the server from my desktop using WinXP Pro. So far, the only part I have had any success with is mapping and disconnecting the drive. I can't seem to figure out the proper way to write the middle section (seen in red) to actually access the drive I mapped, change dir, and then run the file. Is this even possible?

I came across another post similar to this question in which the solution got as far as looking into using "net use". So, I looked into it, and have not had any further success.

Thank you in advanced for your time and help!

Here is my current code:

Option Explicit

Dim arrServers, inta, objFile, objFolder
Dim objFSO, objWS, strRunMe1, objNet, strRunMe

arrServers = Array ("JHWSDV13")
'***********************************************************
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWS = WScript.CreateObject("WScript.Shell")
Set objNet = CreateObject("WScript.Network")
'***********************************************************
For inta = LBound(arrServers) To UBound(arrServers)
objNet.MapNetworkDrive "H:", "\\" & arrServers(inta) & "\C$"
[COLOR=red]
objWS.Run "cmd net use /c H: \\JHWSDV13\C$\sysapps\batch\WebPub.vbs"
[/color]
objNet.RemoveNetworkDrive "H:"
Next

 

[PHV]

To run locally (on your desktop) the script located on the server:
objWS.Run "H:\sysapps\batch\WebPub.vbs", , True


Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[LuckyDuck528]

Thank you!

Here is what I have now though....

I am getting an error message that says: "The system cannont find the file specified...'H:\sysapps\batch\WebPub.vbs'. I did double check and the file is present on the server. Would I for some reason need to maybe specify the C$ share or give it the server name???

Thanks!

For inta = LBound(arrServers) To UBound(arrServers)

   objNet.MapNetworkDrive "H:", "\\" & arrServers(inta) & "\C$"

   objWS.Run "H:\sysapps\batch\WebPub.vbs JHWSDV13", , True

   objNet.RemoveNetworkDrive "H:", true, true

Next

 

[PHV]

Have you tried simply this ?
objWS.Run "\\JHWSDV13\C$\sysapps\batch\WebPub.vbs JHWSDV13", , True

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[LuckyDuck528]

Yes, that is what I originally tried and I get the Path Not Found Message

 

[mrmovie]

there should defo be no need to map a drive

the followign works a treat for me

WshShell.Run "\\serverA\audit$\change.vbs", 1, True