30 lines
945 B
Plaintext
30 lines
945 B
Plaintext
'***************************************************************************
|
|
'
|
|
' WMI Sample Script - Set all Windows 2000 Servers to have a 30 second boot delay
|
|
'
|
|
'
|
|
'***************************************************************************
|
|
|
|
DIM ConnectString
|
|
|
|
Set ADServers = GetObject("winmgmts://./root/directory/LDAP").ExecQuery ("select ds_name from ds_computer where ds_operatingsystem='Windows 2000 Server'")
|
|
|
|
for each Server in ADServers
|
|
|
|
WScript.Echo Server.ds_name
|
|
|
|
ConnectString = "winmgmts://"+ Server.ds_name + "/root/cimv2"
|
|
|
|
Set TargetServer = GetObject(ConnectString).InstancesOf("Win32_ComputerSystem")
|
|
|
|
for each CompSys in TargetServer
|
|
WScript.Echo "Previous boot delay was "& CompSys.SystemStartupDelay & " seconds."
|
|
CompSys.SystemStartupDelay = 10
|
|
CompSys.Put_()
|
|
WScript.Echo "Boot up delay time set to " & CompSys.SystemStartupDelay & " seconds on " & Server.ds_name
|
|
|
|
next
|
|
|
|
|
|
next
|