thebas
06-05-2009, 11:35
Вот незнаю как сменить сабж на компах в домене.
Пытался наваять скрипт и менять в реестре.
Менять то меняется но видимых изменений не происходит, подскажите как поступить.
On Error Resume Next
strComputer = "."
RegPath="SYSTEM\CurrentControlSet\Control\TimeZoneInformation"
const HKEY_LOCAL_MACHINE = &H80000002
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
RegName="ActiveTimeBias"
RegValue=4294967116
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,RegPath,_
RegName,RegValue
RegName="Bias"
RegValue=4294967176
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,RegPath,_
RegName,RegValue
RegName="DaylightBias"
RegValue=4294967236
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,RegPath,_
RegName,RegValue
RegName="StandardBias"
RegValue=0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,RegPath,_
RegName,RegValue
RegName="DaylightStart"
RegValue=Array(0,0,3,0,5,0,3,0,0,0,0,0,0,0,0,0)
oReg.SetBinaryValue HKEY_LOCAL_MACHINE,RegPath,_
RegName,RegValue
RegName="StandardStart"
RegValue=Array(0,0,10,0,5,0,4,0,0,0,0,0,0,0,0,0)
oReg.SetBinaryValue HKEY_LOCAL_MACHINE,RegPath,_
RegName,RegValue
RegName="DaylightName"
RegValue="Финляндия (лето)"
oReg.SetStringValue HKEY_LOCAL_MACHINE,RegPath,_
RegName,RegValue
RegName="StandardName"
RegValue="Финляндия (зима)"
oReg.SetStringValue HKEY_LOCAL_MACHINE,RegPath,_
RegName,RegValue
Пытался наваять скрипт и менять в реестре.
Менять то меняется но видимых изменений не происходит, подскажите как поступить.
On Error Resume Next
strComputer = "."
RegPath="SYSTEM\CurrentControlSet\Control\TimeZoneInformation"
const HKEY_LOCAL_MACHINE = &H80000002
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
RegName="ActiveTimeBias"
RegValue=4294967116
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,RegPath,_
RegName,RegValue
RegName="Bias"
RegValue=4294967176
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,RegPath,_
RegName,RegValue
RegName="DaylightBias"
RegValue=4294967236
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,RegPath,_
RegName,RegValue
RegName="StandardBias"
RegValue=0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,RegPath,_
RegName,RegValue
RegName="DaylightStart"
RegValue=Array(0,0,3,0,5,0,3,0,0,0,0,0,0,0,0,0)
oReg.SetBinaryValue HKEY_LOCAL_MACHINE,RegPath,_
RegName,RegValue
RegName="StandardStart"
RegValue=Array(0,0,10,0,5,0,4,0,0,0,0,0,0,0,0,0)
oReg.SetBinaryValue HKEY_LOCAL_MACHINE,RegPath,_
RegName,RegValue
RegName="DaylightName"
RegValue="Финляндия (лето)"
oReg.SetStringValue HKEY_LOCAL_MACHINE,RegPath,_
RegName,RegValue
RegName="StandardName"
RegValue="Финляндия (зима)"
oReg.SetStringValue HKEY_LOCAL_MACHINE,RegPath,_
RegName,RegValue