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.



Überprüfung, REG_SZ vorhanden, schlägt fehl
Autor:  Markus
E-mail:  Antworten bitte nur in das Forum!
Datum:  21.12.2004 22:14:12
Subject:  Überprüfung, REG_SZ vorhanden, schlägt fehl
Bezug zum Buch:  Windows Scripting
Message:  Die Überprüfung, ob ein Registry (Default) REG_SZ Wert der NULL enthält, existiert schlägt fehl.

Beide Scripte scheiter... hat irgendjemand eine Idee?

1. Versuch

Const HKEY_CURRENT_USER = &H80000001

strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "AppEvents\Schemes\Apps\Conf\Person Leaves\"

strValueName = ""

objRegistry.GetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue

If IsNull(strValue) Then
    Wscript.Echo "The registry key does not exist."
Else
    Wscript.Echo "The registry key exists."
End If

2. Versuch

Dim WSHShell

Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.RegWrite "HKCU\AppEvents\Schemes\Apps\Conf\Person Joins\", "WennsKlappt", "REG_SZ"

strTest = WSHShell.RegRead("HKCU\AppEvents\Schemes\Apps\Conf\Person Leaves\")

If Err.Number = 0 Then

     WScript.Echo "Existiert!!!"

End If


Antworten

  Zurück zum Forum



 Klassische Programmierung (Scripting, COM) -- Windows Scripting, VBScript, VB6, u.a.
 Überprüfung, REG_SZ vorhanden, schlägt fehl von Markus  am 21.12.2004 10:14:12 PM


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