www.IT-Visions.de-Diskussionsforen (Version 2.1)
(Diese Seite wurde noch nicht auf das neue Layout umgestellt!)


Diese Foren stehen den Lesern unserer Bücher und allen anderen registrieren Benutzern dieser Website zur Verfügung. Wir würden uns freuen, wenn viele Nutzer dieser Website hier nicht nur Fragen stellen, sondern auch die Fragen anderer Nutzer beantworten. Diese Foren sind ein ehrenamtlicher, nicht-kommerzieller, unmoderierter Community-Dienst von www.IT-Visions.de. Wenn Sie kommerzielle Unterstützung für .NET/Scripting/PowerShell suchen, schauen Sie bitte auf unser Support-Angebot und unsere Schulungsangebote für Scripting und Schulungsangebote für .NET.



Schlüssel in HKEY_Users wird nicht geändert W2000
Autor:  Dittmar
E-mail:  Antworten bitte nur in das Forum!
Datum:  19.12.2005 12:26:51
Subject:  Schlüssel in HKEY_Users wird nicht geändert W2000
Bezug zum Buch: 
Message:  Folgendes kleine Script sollte unter Windows 2000 den NUM-Block der Tastatur vor und nach der Anmeldung aktiviern. Das Script funktioniert auch mit Windows 2000 bis SP3 ab SP4 gibt es Probleme im Schlüssel HKEY_Users. Es läuft auf eine Fehlermeldung. Nach Installation eines Hotfixes (817478) kommt zwar keine Fehlermeldung mehr aber der Wert wird trotzdem nicht geändert.
Wer hat einen heißen Tip, welches Hotfix noch fehlt, oder was sonst ist?

___________________________________________________________________

Const HKCR = &H80000000 ' HKEY_CLASSES_ROOT    
Const HKCU = &H80000001 ' HKEY_CURRENT_USER
Const HKLM = &H80000002 ' HKEY_Local_Maschine
Const HKU = &H80000003 ' HKEY_Users Bei diesem Wert gab es Probleme
Const HKCC = &H80000005 ' HKEY_Current_Config

Dim computer
Dim system
Dim Wert1
Dim Wert2

computer = InputBox("Name des Computers: ")
Set system = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & computer & "\root\default:StdRegProv")
Wert1 = system.GetStringValue (HKCU, "Software\ARL\ARCryptoIP Client\", "DisableKeyGen", 1)
Wert2 = system.GetStringValue (HKU, ".DEFAULT\Control Panel\Keyboard", "InitialKeyboardIndicators", 2)
If (Wert1=0) and (Wert2=0) Then
MsgBox "NUM-Block wurde auf Computer " & computer & " aktiviert!"   
Else
MsgBox "NUM-Block wurde auf Computer " & computer & " ! nicht ! aktiviert!"   
End If
If Wert2=2 Then
MsgBox "Wahrscheinlich SP4 installiert ohne entsprechendes Patch!"   
End If
____________________________________________________________________

Antworten

  Zurück zum Forum



 Klassische Programmierung (Scripting, COM) -- Windows Scripting, VBScript, VB6, u.a.
 Schlüssel in HKEY_Users wird nicht geändert W2000 von Dittmar  am 19.12.2005 12:26:51 PM


www.IT-Visions.de - Dr. Holger Schwichtenberg / 1998-2019