Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Skripte(PHP,ASP,Perl...)
Skripte(PHP,ASP,Perl...)
Fragevon -Shane vom 18.10.2019, 20:17 Options
VBS Registry auslesen
Hallo,
ich müsste die Registry um einen Wert auslesen.
Mein bisheriger Code sieht folgendermaßen aus:
Set Wshshell = CreateObject("Wscript.shell")
DB = "HKEY_LOCAL_MACHINE\SOFTWARE\SW\DATA"
If DB = SCHUL Then
Ausgabe = MsgBox("Achtung!!! Sie arbeiten in der Schulungsumgebung!")
Else
Ausgabe = MsgBox("Sie arbeiten im Echtbetrieb!")
End If
Leider funktioniert die Übergabe mit der Variable nicht,
ich bekomme,auch wenn der Wert in der Registry auf SCHUL gesetzt
ist immer die Meldung "Sie arbeiten im Echtbetrieb".
Kann mir jemand helfen - ich steh irgendwie auf dem Schlauch!!
Danke im voraus
Shane
ich müsste die Registry um einen Wert auslesen.
Mein bisheriger Code sieht folgendermaßen aus:
Set Wshshell = CreateObject("Wscript.shell")
DB = "HKEY_LOCAL_MACHINE\SOFTWARE\SW\DATA"
If DB = SCHUL Then
Ausgabe = MsgBox("Achtung!!! Sie arbeiten in der Schulungsumgebung!")
Else
Ausgabe = MsgBox("Sie arbeiten im Echtbetrieb!")
End If
Leider funktioniert die Übergabe mit der Variable nicht,
ich bekomme,auch wenn der Wert in der Registry auf SCHUL gesetzt
ist immer die Meldung "Sie arbeiten im Echtbetrieb".
Kann mir jemand helfen - ich steh irgendwie auf dem Schlauch!!
Danke im voraus
Shane
Antwort 1 von androe vom 18.10.2019, 20:28 Options
probierst du mal so:
DB = Wshshell.RegRead ("HKLM\SOFTWARE\SW\DATA")
Antwort 2 von -Shane vom 18.10.2019, 20:56 Options
Hallo androe,
zunächst mal Danke!
Leider bekomme ich mit der Änderung eine
Fehlermeldung, die wie folgt lautet:
"Registrierungsschlüssel " ...." wurde nicht zum Lesen geöffnet."
Hm, hab' ich was falsch gemacht???
Gruß
Shane
zunächst mal Danke!
Leider bekomme ich mit der Änderung eine
Fehlermeldung, die wie folgt lautet:
"Registrierungsschlüssel " ...." wurde nicht zum Lesen geöffnet."
Hm, hab' ich was falsch gemacht???
Gruß
Shane
Antwort 3 von androe vom 18.10.2019, 21:15 Options
bei mir funktioniert es.
-vielleicht falsche pfadangabe? "HKEY_LOCAL_USER" bzw. "HKLU"?
-oder der schlüsselwert ist ein binärwert statt zeichenfolge?
allerdings kommt bei mir in diesen beiden fällen eine andere als deine fehlermeldung
-vielleicht falsche pfadangabe? "HKEY_LOCAL_USER" bzw. "HKLU"?
-oder der schlüsselwert ist ein binärwert statt zeichenfolge?
allerdings kommt bei mir in diesen beiden fällen eine andere als deine fehlermeldung
Antwort 4 von -Shane vom 18.10.2019, 21:45 Options
Hallo androe,
okay, die Fehlermeldung ist jetzt zwar weg, aber die
Übergabe meiner IF THEN ELSE Bedingung klappt
einfach nicht. Wenn der Wert "SCHUL" gesetzt ist
wird die unter ELSE def. Meldung ausgegeben und nicht
die unter IF gesetzte.
Es ist zum Haare raufen!!!
Lieben Gruß
Shane
okay, die Fehlermeldung ist jetzt zwar weg, aber die
Übergabe meiner IF THEN ELSE Bedingung klappt
einfach nicht. Wenn der Wert "SCHUL" gesetzt ist
wird die unter ELSE def. Meldung ausgegeben und nicht
die unter IF gesetzte.
Es ist zum Haare raufen!!!
Lieben Gruß
Shane
Antwort 5 von androe vom 18.10.2019, 21:50 Options
If DB = "SCHUL" ThenAntwort 6 von -Shane vom 18.10.2019, 21:55 Options
VIELEN HERZLICHEN DANK!!!
Liebe Grüße
Shane
*die_sich_gerade_gg._die_Stirn_patscht*
Liebe Grüße
Shane
*die_sich_gerade_gg._die_Stirn_patscht*
Ähnliche Themen
Wie erstelle ich eine vbs datei??
x50Cent 07.06.2007 - 240 Hits - 3 Antworten
VBS-Schleife bis (Word)Textende erreicht ist
HAWISCHA 28.11.2007 - 96 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
