run .exe on multiple computers

[richardrekos]

I am trying to run an .exe on several machines using a dictionary file. When I run this script, the .exe only runs locally on my machine. Can anyone tell me where I went wrong? Many thanks


Option Explicit

Dim objShell, objDictionary, objFSO, objTextFile, i, strNextLine, objItem

Const ForReading = 1

Set objDictionary = CreateObject("Scripting.Dictionary")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("i:\ipi\assettracker\machines.txt", ForReading)
i = 0
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
objDictionary.Add i, strNextLine
i = i + 1
Loop

For Each objItem in objDictionary
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "I:\IPI\Assettracker\clientcon.exe",7,True
Next

 

[PHV]

Take a look at remote scripting (WSHController object).
Or do a search for psexec.

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