'v4.B*************************************************** 

' File:   numlock-ein.vbs 

' Autor:  dieseyer@gmx.de  

'         dieseyer.de  

' 

' Das schaltet NumLock für den Anmeldedialog ein. 

' Vergl. http://support.microsoft.com/?id=154529 

'******************************************************* 

 

Option Explicit 

 

Dim WSHNet     : Set WSHNet    = WScript.CreateObject("WScript.Network") 

 

Const HKEY_CURRENT_USER  = &H80000001 

Const HKEY_LOCAL_MACHINE = &H80000002 

Const HKEY_USERS         = &H80000003 

 

Dim Txt, PCName, KeyPath, KeyKey, KeyInh, oReg 

  

PCName = "." 

PCName = WshNet.ComputerName 

 

KeyPath   = ".DEFAULT\Control Panel\Keyboard" 

KeyKey = "InitialKeyboardIndicators" 

 

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

 

oReg.GetExpandedStringValue HKEY_USERS,KeyPath,KeyKey,KeyInh 

Txt = KeyInh 

  

KeyInh     = "2" 

oReg.CreateKey      HKEY_USERS,KeyPath 

oReg.SetStringValue HKEY_USERS,KeyPath,KeyKey,KeyInh 

 

oReg.GetExpandedStringValue HKEY_USERS,KeyPath,KeyKey,KeyInh 

 

MsgBox "vorher:" & vbTab & Txt & vbCRLF & "nacher:" & vbTab & KeyInh, , PCName 

 

WScript.Quit