Questo lo definirei un "Wrapper Script", la sua funzione è quella di "avvolgere" quel codice sorgente che era stato realizzato per il semplice uso locale ed aggiungervi le funzionalità che permettono di eseguirlo su una serie di computer specificati in un elenco.
Per utilizzarlo è necessario specificare una stringa di connessione sotto alla riga '***MAKE CONNECTION*** ed inserire il codice da eseguire nella sezione '***REST OF CODE HERE***.
I dettagli relativi agli errori di connessione vengono scritti in un file di testo denominato "errors.txt".
E' possibile generare velocemente l'elenco di computer da fornire come input utilizzando lo script “List All Computers And Users Within An OU And SubOUs [1]“.
Per un esempio di come possa essere implementato questo wrapper consultare il codice di entrambe le versioni dello script Remote IPConfig [2].
'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("computers.txt")
Set oTSOut = oFS.CreateTextFile("errors.txt")
'go through the text file
Do Until oTS.AtEndOfStream
'get next computer
sComputer = oTS.ReadLine
On Error Resume Next
'***MAKE CONNECTION***
If Err <> 0 Then
oTSOut.WriteLine "Error on " & sComputer & ":" & Err.Number & ", " & Err.Description
Else
On Error Goto 0
'***REST OF CODE HERE***
End If
Loop
oTS.Close
oTSOut.Close