So prüfen Sie den registry-Wert mit VbScript

Wie kann ich überprüfen, ob die Registrierung Wert mit VbScript?

Können Sie den Modus details, wie ein Beispiel der registry-Schlüssel und Wert, den Sie überprüfen möchten, den Wert-Typ, etc?
Sie müssen einfach den Wert ablesen, prüfen Sie, ob es vorhanden ist, überprüfen Sie den Wert selbst oder etwas anderes?

InformationsquelleAutor | 2009-08-05

  1. 26
       function readFromRegistry (strRegistryKey, strDefault )
    Dim WSHShell, value

    On Error Resume Next
    Set WSHShell = CreateObject("WScript.Shell")
    value = WSHShell.RegRead( strRegistryKey )

    if err.number <> 0 then
        readFromRegistry= strDefault
    else
        readFromRegistry=value
    end if

    set WSHShell = nothing
end function

    Verwendung : 

    str = readfromRegistry("HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\ESD\Install_Dir", "ha")
wscript.echo "returned " & str

    Original post

    InformationsquelleAutor fyasar

  2. 7

    Probieren Sie etwas wie dieses:

    Dim windowsShell
Dim regValue
Set windowsShell = CreateObject("WScript.Shell")
regValue = windowsShell.RegRead("someRegKey")

    InformationsquelleAutor Jeremy Cron

  3. 3

    Sollte diese Arbeit für Sie:

    Dim oShell
Dim iValue

Set oShell = CreateObject("WScript.Shell")

iValue = oShell.RegRead("HKLM\SOFTWARE\SOMETHINGSOMETHING")

    InformationsquelleAutor Jon

  4. 1

    Versuchen. Dieses Skript ruft die aktuelle angemeldeten Benutzers name & home-Verzeichnis:

    On Error Resume Next

Dim objShell, strTemp
Set objShell = WScript.CreateObject("WScript.Shell")

strTemp = "HKEY_CURRENT_USER\Volatile Environment\USERNAME"
WScript.Echo "Logged in User: " & objShell.RegRead(strTemp) 

strTemp = "HKEY_CURRENT_USER\Volatile Environment\USERPROFILE"
WScript.Echo "User Home: " & objShell.RegRead(strTemp)

    InformationsquelleAutor Divyanand M S

  5. 1
    Set objShell = WScript.CreateObject("WScript.Shell") 
skey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{9A25302D-30C0-39D9-BD6F-21E6EC160475}\"
with CreateObject("WScript.Shell")
    on error resume next            ' turn off error trapping
    sValue = .regread(sKey)       ' read attempt
    bFound = (err.number = 0)     ' test for success
end with
if bFound then
    msgbox "exists"
else
  msgbox "not exists" 
End If

    InformationsquelleAutor Greeta

Schreibe einen Kommentar