2009-08-05 20 views
11

Jak sprawdzić wartość rejestru za pomocą VbScript?Jak sprawdzić wartość rejestru za pomocą VbScript

+0

można podać szczegóły trybu, jak przykład klucz rejestru i wartości, które chcesz sprawdzić, rodzaj wartości itp? – Helen

+0

Czy chcesz po prostu odczytać wartość, sprawdzić, czy istnieje, zweryfikować samą wartość lub cokolwiek innego? – Helen

Odpowiedz

25
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 

Zastosowanie:

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

Original post

7

spróbować czegoś takiego:

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

ten powinien pracować dla Ciebie:

Dim oShell 
Dim iValue 

Set oShell = CreateObject("WScript.Shell") 

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

Spróbuj tego. Ten skrypt pobiera bieżący zalogowany użytkownik Nazwa & katalogu domowym:

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) 
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 
Powiązane problemy