Læse værdier 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

Hmm.. jeg bliver ved at få en fejlmeddelelse der siger at registreringsnøglen ikke kan læses ligemeget hvilken mappe på computeren jeg peger ned på.

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

Hej, jeg fandt noget på nettet som jeg har modeficeret, og nu virker det, herunder ses den kode som virker for mig. :-)

Function RegRead(sRegValue)
  Set oShell = CreateObject("WScript.Shell")
  On Error Resume Next
  RegRead = oShell.RegRead(sRegValue)
  If Err Then
    RegRead = ""
    Err.clear
  End If
  If VarType(RegRead) < vbArray Then
    If RegRead = sRegValue Then
      RegRead = ""
    End If
  End If
On Error Goto 0
End Function               
               
sAppPathsBase = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\\"
                   
sAppPathExe = RegRead(sAppPathsBase & "excel.exe" & "\\")
If sAppPathExe <> "" Then
  document.getElementById("hdnExcelValid").value = "true"
else
  document.getElementById("hdnExcelValid").value = "false"
End If
                   
sAppPathExe = RegRead(sAppPathsBase & "outlook.exe" & "\\")
If sAppPathExe <> "" Then
  document.getElementById("hdnOutlookValid").value = "true"
else
  document.getElementById("hdnOutlookValid").value = "false"
End If
                   
  document.getElementById("frmTestExcel").submit()