Ændre Binary Value key i regdb.

Følgende script ændrer eller opretter en binær værdi i registreringsdb.

Håber det er det du skal bruge. Du kan bare forlænge uBinary så det kommer til at passe med det du gerne vil indsætte.

Const HKEY_CURRENT_USER = &H80000001
const HKEY_LOCAL_MACHINE = &H80000002

Set objRegistry = GetObject("Winmgmts:root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
strValueName = "MyBinaryNamedValue"
uBinary = Array(3,2,3,6,6,6,7,8)

Return = objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strKeyPath, strValueName,uBinary)
If (Return = 0) And (Err.Number = 0) Then
    msgbox "Binary value added successfully"
Else
    msgbox "err"
End If

Jeg kaster mig frådende over det og kigger på det med det samme :)

Det ser faktisk ud til at virke, har dog et lille sidste problem, som sikkert et simpelt, men nu er det også tideligt på dagen :)

Mit vbscript ser sådan her ud nu:

"
'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

Set objRegistry = GetObject("Winmgmts:root\default:StdRegProv")
strKeyPath = "System\CurrentControlSet\Control\TimeZoneInformation"
strValueName = "DaylightStart"
uBinary = Array(00,00,03,00,05,00,02,00,00,00,00,00,00,00,00,00)
Return = objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strKeyPath, strValueName,uBinary)

set objRegistry = nothing
"

Og den ændrer også fint DaylightStart osv og det andet, men jeg vil gerne have den til at ændre endnu en binær værdi: "StandardStart"=hex:00,00,0a,00,05,00,03,00,00,00,00,00,00,00,00,00


Har prøvet at smide følgende på:

Set objRegistry = GetObject("Winmgmts:root\default:StdRegProv")
strKeyPath = "System\CurrentControlSet\Control\TimeZoneInformation"
strValueName = "StandardStart"
uBinary = Array(00,00,0a,00,05,00,03,00,00,00,00,00,00,00,00,00)
Return = objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strKeyPath, strValueName,uBinary)

set objRegistry = nothing


Men det går ikke og så siger den at den forventer et ) i uBinary linien, så prøvede jeg at smide den i sit egen script, og får samme fejl og fejlen opstår lige før 0a ... Er der noget specielt der??

Nå det bliver alligevel ikke nødvendigt, fandt på en hel anden løsningsmetode til mit problem, men tak for hjælpen :)

Jeg takker for points, og undlader at kigge på dit script, men skriv endelig hvis der bliver noget.