Læse (default) værdi fra registreringsdatabasen

Prøv sådan her:


On Error Resume Next

Set objWshShell = CreateObject("WScript.Shell")

strKeyValue=objWshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Runonce\script")

If Err.Number <> 0 Then
    ' Handle the case where the key didn't exist
    WScript.Echo Err.Number & ":" & Err.Description
    Err.Clear   
Else
    WScript.Echo "No problems"
End If

//>Rune

Alternativt kan du benytte wmi's standard registry provider som du kan læse om via. nedenstående link:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/stdregprov.asp

Der er mange eksempler på brug.

//>Rune