Registry Wert generieren

Impressum

Verantwortlicher für die Seite und den Inhalt :

Gabriel Thiel

Trentinostraße 3 / 4 / 1

A - 2441 Mitterndorf an der Fischa

Österreich

Haftungsausschuss & Datenschutz

Impressum

 

Dieses Skript schreibt einen Wert in die Registry, sofern dieser NICHT bereits vorhanden ist.

Dazu öffne einen Editor (z.B. Notepad++), füge folgenden Code ein und speichere diesen als registry.vbs

 

Dim ObjShell
Dim ShellObject

Set ShellObject = CreateObject("WScript.Shell")
Set ObjShell = ShellObject.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Test")


If ObjShell = "" then
    ShellObject.Popup "Wert existiert nicht und wird hinzugefügt","4",""
    ShellObject.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "C:\test.vbs"

else

     ShellObject.Popup "Wert existiert","3",""

end if

 

 

Die Werte werden im Hintergrund aktualisiert - es wird keine Meldung angezeigt (ausgenommen Fehler).

 

Quelle: de.wikibooks.org