Ich versuche mich gerade daran eine .vbs-Datei zu erstellen (noch keine Ahnung davon) und habe folgendes geschrieben:
DIM mykey AS RegistryKey
mykey=Registry.Users.OpenSubKey(".DEFAULT\Control Panel\Keyboard").OpenSubKey("InitialKeyboardIndicators")
Also noch nicht wirklich viel. Ich bekomme aber immer eine Fehlermeldung:
Zeile 1 Zeichen 11
Anweisungsende erwartet
Code 800A0401
Was muss ich tun?
Danke für eure Hilfe.
Hallo Mayhem,
Ich versuche mich gerade daran eine .vbs-Datei zu erstellen
(noch keine Ahnung davon) und habe folgendes geschrieben:
DIM mykey AS RegistryKey
mykey=Registry.Users.OpenSubKey(".DEFAULT\Control
Panel\Keyboard").OpenSubKey("InitialKeyboardIndicators")
ja, da mault VBS, das kennt das ‚As‘ nicht. In VBS kannst Du keine Datentypen angeben, wie Du das aus VB gewöhnt bist.
Ich habe Dir mal das Beispiel zum schreiben und lesen von Schlüsseln aus dem ‚Script56.chm‘ kopiert.
Beispiel
Im folgenden Code werden ein Schlüssel und zwei Werte erstellt, gelesen und gelöscht.
[VBScript]
Dim WshShell, bKey
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\", 1, "REG\_BINARY"
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\MindReader", "Goocher!", "REG\_SZ"
bKey = WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\")
WScript.Echo WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\MindReader")
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\MindReader"
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\"
WshShell.RegDelete "HKCU\Software\ACME\"
Gruß Rainer
Dank dir. Habs geschafft. Also ist VBS noch döfer…
Dank dir. Habs geschafft. Also ist VBS noch döfer…
VBS ist eben nur eine kleine Scriptsprache. Ihren Zweck erfüllt sie.