Transfer file to multiple servers Script

[Junbron]

Hi ...
I have an updated file and i want to transfer that single file to multiple servers and will overwrite the oldfile...

Need a vbscript to do this..

THanks

 

[PHV]

What have you tried so far and where in your code are you stuck ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Junbron]

' Set the Time Zone Offset from Greenwich Mean Time

On Error Resume Next
strComputer = "."
'Change value to reflect desired GMT offset in minutes.
intGMTOffset = -480

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colCompSys = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")

For Each objCompSys in colCompSys
objCompSys.CurrentTimeZone = intGMTOffset
objCompSys.Put_
If Err = 0 Then
Wscript.Echo "Time zone set to specified value."
Else
Wscript.Echo "Unable to set time zone."
End If
Err.Clear
Next


=======================

I need vbs that will do this to multiple machines sort of a loop...and get all the pc names from a list

 

[guitarzan]

Something like this should get you going. Create a text file with the server ip's or names, one per line, and change sComputerList to the path to that file.

Option Explicit
Const ForReading = 1
Dim sComputerList
sComputerList = "C:\servers.txt"

Dim arrComputers, strComputer
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(sComputerList, ForReading)
arrComputers = Split(f.ReadAll, vbCrLf)

For Each strComputer In arrComputers

	... your code

Next