Runs a script against multiple computers

Posted by itjohn on June 29th, 2009

This snippet runs a script against multiple computers taken from a text file. A big time saver.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

'Create a FileSystemObject
Set oFS = CreateObject("Scripting.FileSystemObject")
'Open a text file of computer names
'with one computer name per line
Set oTS = oFS.OpenTextFile("c:computers.txt")

'go through the text file
Do Until oTS.AtEndOfStream
'get the next computer name
'store it in variable sComputer
sComputer = oTS.ReadLine

'-----------------------------------
' YOUR CODE HERE - code will
' affect each computer in the
' input text file
'-----------------------------------
Loop
'close the text file
oTS.Close
MsgBox "Done!"