VBS Script zum Ändern CabinetState

Computer: Software & Programmierung Visual Basic
#1

Ich brauche ein Script, um das fünfte Byte im CabinetState auf &H0a zu ändern. Was ist hier falsch? Ich bekomme immer Fehlermeldung 6 beim SetBinaryValue. Der RegRead funktioniert bestens.

Dim oShell,bKey, oStdRegProv
set oShell=createobject(„WSCript.Shell“)
const cCabSet=„Software\Microsoft\Windows\CurrentVersion\Explorer\
CabinetState“
Set oStdRegProv = GetObject(„Winmgmts:root\default:StdRegProv“)

'Testausgabe vor Set (scheint ok)
bKey = oShell.RegRead(„HKCU“&cCabSet&"\Settings")
WScript.echo "Before Set: " ,HEX(bKey(0)), HEX(bKey(1)), HEX(bKey(2)),HEX(bKey(3)),HEX(bKey(4))

'Byte 4 auf Hexa A setzen
bKey(4) = &HA

'Registry zurückschreiben
Return = oStdRegProv.SetBinaryValue (HKCU, cCabset, „Settings“, bKey)
If (Return = 0) And (Err.Number = 0) Then
Wscript.Echo „Binary value added successfully“
Else
Wscript.Echo „A writing error occurred, Return=“&Return&", Error="&Err.Number
End If

'Testausgabe nach Set
bKey = oShell.RegRead(„HKCU“&cCabSet&"\Settings")
WScript.echo "After Set: ", HEX(bKey(0)), HEX(bKey(1)), HEX(bKey(2)),HEX(bKey(3)),HEX(bKey(4))

Vielen Dank für jeden Tipp! Peter

#2

Habe die Lösung selbst gefunden:
Die Konstante HKCU ist nur dem regRead bekannt, aber nicht der WMI.
const HKCU=&H80000001
und das Script läuft. Es muss dann noch der explorer.exe terminated werden.

#3

Danke für die Rückmeldung / Aufklärung o.w.T.