verfaßt von effeff, Ostfriesland, 24.05.2012, 11:09:08
Funktioniert eventuell das hier? Ich habe deinen Code um eine Zeile gekürzt und dann um zwei erweitert:
Set ws = CreateObject(\"WScript.Shell\")
Const HKCU = &H80000001
KeyPath = \"Control Panel\\Desktop\"
Set oReg=GetObject(\"winmgmts:{impersonationLevel=impersonate}!\\\\\" & \".\\root\\default:StdRegProv\")
ValueName = \"UserPreferencesMask\"
iValues = Array(&H9E,&H3E,&H07,&H80,&H12,&H00,&H00,&H00)
oReg.SetBinaryValue HKCU,KeyPath,ValueName,iValues
ws.AppActivate \"Program Manager\"
ws.SendKeys \"{F5}\"
--
Gruß,
ff
Möge TUX mit dir sein!
gesamter Thread: