Wert Remote aus Registry auslesen via VBS

Dim sKey
Dim sOrg
Dim sUser
DIm WshShell
Dim oFile


set WshShell = CreateObject("WScript.Shell")   

sKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Seculution\" & _   
       "SecuSurf\Agent\Version"  

sOrg = WshShell.RegRead(sKey)

sKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\" & _   
       "Control\ComputerName\ComputerName"  

sUser = WshShell.RegRead(sKey)


wscript.echo "Es ist folgende Secusurfversion installiert: " & sOrg   

Set fso = CreateObject("Scripting.FileSystemObject")  

Set oFile = fso.OpenTextFile("C:\log.txt",8,true)  


oFile.WriteLine " Der Computer " & sUser &  " hat folgende SecuSurfversion: " & sOrg  
             

Registrierungsschlüssel "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName" wurde nicht zum lesen geöffnet