VBscript der sætter tidszonen til gmt+1

skal regværdierne ændres til:

Du er her : Eksperten : Spørgsmål & Svar : Programmering : Script : VBscript : VBscript der sætter tidszonen til gmt+1 :

Sidste nyt fra Eksperten : Bedre søgning lanceret
Kære brugere. Vi har netop lanceret en ny og forbedret søgning, som nu også gør det muligt at afgrænse søgningen inden for spørgsmålets status. Et spørgsmåls status kan være et af følgende: -... [læs mere]


VBscript der sætter tidszonen til gmt+1  100 point fra butcher 



X Mangler et vbscript der kan ændre tidszonen til en tidszonen som står til GMT+1, f.eks. Romance Standard Time.

Denne ændring laves til ens regdatabase og når scriptet er kørt skal den se sådan her ud:

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\TimeZoneInformation]
"Bias"=dword:ffffffc4
"StandardName"="Romance Standard Time"
"StandardBias"=dword:00000000
"StandardStart"=hex:00,00,0a,00,05,00,03,00,00,00,00,00,00,00,00,00
"DaylightName"="Romance Daylight Time"
"DaylightBias"=dword:ffffffc4
"DaylightStart"=hex:00,00,03,00,05,00,02,00,00,00,00,00,00,00,00,00
"ActiveTimeBias"=dword:ffffff88

og:

[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\TimeZoneInformation]
"Bias"=dword:ffffffc4
"StandardName"="Romance Standard Time"
"StandardBias"=dword:00000000
"StandardStart"=hex:00,00,0a,00,05,00,03,00,00,00,00,00,00,00,00,00
"DaylightName"="Romance Daylight Time"
"DaylightBias"=dword:ffffffc4
"DaylightStart"=hex:00,00,03,00,05,00,02,00,00,00,00,00,00,00,00,00
"ActiveTimeBias"=dword:ffffff88

eller skal de oprettes....jeg fikser scriptet til dig når du svarer tilbage:):)

Du kan også kigge lidt her:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q221542

her opretter du en en reg key:

const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\System Admin Scripting Guide"
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath


Her opretter du en expanded string value:

const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\System Admin Scripting Guide"
strValueName = "Expanded String Value Name"
strValue = "%PATHEXT%"

oReg.SetExpandedStringValue _
    HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue



eksempel:
strValueName = "StandardName"
strValue = "Romance Standard Time"


Her opretter du en DWORD value:

const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\System Admin Scripting Guide"
strValueName = "String Value Name"
strValue = "string value"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

strValueName = "DWORD Value Name"
dwValue = 82
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue



Dette er alt du behøver for at kunne lave den ændring du ønsker:):)

Er der spørgsmål til ovenstående er du velkommen:):)

Håber du kan bruge det:):)

Værdier i keys skal ændres til det, da de findes i forvejen :)

Jeg kigger lige dit svar godt igennem senere, har fyraften nu nemlig :)

Er bestemt på rette spor her, har fået det her sat sammen:

'Set TimeZone to GMT(+1)
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")

strKeyPath = "System\CurrentControlSet\Control\TimeZoneInformation"

strEntryName = "ActiveTimeBias"
dwValue = 4294967176
objReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strEntryName, dwValue

strEntryName = "Bias"
dwValue = 4294967236
objReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strEntryName, dwValue

strEntryName = "DaylightBias"
dwValue = 4294967236
objReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strEntryName, dwValue

strEntryName = "DaylightName"
strValue = "Romance Daylight Time"
objReg.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strEntryName, strValue

strEntryName = "StandardBias"
dwValue = 0
objReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strEntryName, dwValue

strEntryName = "StandardName"
strValue = "Romance Daylight Time"
objReg.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strEntryName, strValue

set objReg = nothing

Men skal nu bare finde ud af hvordan jeg indsætter de binære værdier i nøglerne DaylightStart og StandardStart :)

Nogle ide hvordan?

hindu_skp kendte godt den side fra MS, men den omhandler hvordan man laver et program i VB, og ikke om et vbscript som jeg vil have. Da dette vbscript skal køre i opstarten af windows, før der logges på en maskine :)

jeg tror ikke jeg helt forstår hvad du mener med :

"DaylightStart"=hex:00,00,03,00,05,00,02,00,00,00,00,00,00,00,00,00

du kan ikke indsætte denne værdi som en dword....dett skal være en værdi

eksempel:

strValueName = "DWORD Value Name"
dwValue = 82
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue


bliver til 0x0000052(82) altså en value på 52....så du skal omregne dine hex værdier til decimal og så smide ddem i funktionen...de bliver lavet til hex i regedit.

Håber det var en forklaring du kan bruge:):)

Ahhhh der gik lige et lys op for mig :) Det prøver jeg lige, takker.

Men ikke helt...

"DaylightStart"=hex:00,00,03,00,05,00,02,00,00,00,00,00,00,00,00,00 er en værdi i min regdata-base, en såkaldt Binary Value, selv om der ikke meget binary over den i følge min overbevisning :)

Det er den værdi jeg skal ændre til en anden binary value, f.eks. til 00,00,0a,00,05,00,03,00,00,00,00,00,00,00,00,00

Så ja den kan ikke indsættes som en dword value, men så er det der hvor jeg spørger, kan man ikke indsætte den som den binary value som den er??

Men hvis du ikke har nogle anelse om dette, er det også fair nok, har hjulpet mig meget tæt på målet :)

Laver bare et nyt spørgsmål ude i gruppen om hvordan man skriver en "binary value" til regdatabasen med et vbscript :)

jeg må lige kigge på det....poster igen når jeg ved mere:):)...

takker for points:):)...gider du ikke give mig en "karma" vurdering også?

Det er skam gjort :)

Huh det mente jeg nu jeg havde gjort, nå gør det igen ;)