const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&_ strComputer & "\root\default:StdRegProv") KeyPath = "SYSTEM\CurrentControlSet\Services\i8042prt\Parameters\" KeyName = "CrashOnCtrlScroll" FullPath = KeyPath & KeyName ' Return = objReg.CreateKey(HKEY_LOCAL_MACHINE, FullPath) ' If (Return = 0) And (Err.Number = 0) Then ' Wscript.Echo "HKEY_LOCAL_MACHINE\" & FullPath & " created" ' Else ' Wscript.Echo "CreateKey failed. Error = " & Err.Number ' End If objReg.SetDWORDValue HKEY_LOCAL_MACHINE,KeyPath,KeyName,0 If Err = 0 Then objReg.GetDWORDValue _ HKEY_LOCAL_MACHINE,KeyPath,KeyName,dwValue WScript.Echo _ "HKEY_LOCAL_MACHINE\" & FullPath _ & "contains " & dwValue Else WScript.Echo "Error in creating key" & _ " and DWORD value = " & Err.Number End If