Tech Talk

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("./hostnames.txt", 1)
Do until objFile.AtEndOfStream
hname = objFile.ReadLine
Set objShell = CreateObject("Wscript.Shell")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & hname & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where DisplayName = 'IPSEC Services'")
For Each objService in colServiceList
errReturnCode = objService.Change( , , , , "Automatic")
MsgBox hname & " Change Automatic - done"
objShell.Run("psexec \\"& hname & " net start PolicyAgent")
WScript.Sleep(3000)
Next
loop