Regedit auslesen

[raplay 10]

Hallo Zusammen

Ich habe folgenden Script:

set WshShell = CreateObject("WScript.Shell")
PCName = "PCXY"
RegPfad  = PCName + "\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Language\InstallLanguage"
SysSprache = WshShell.RegRead(RegPfad)
If SysSprache = "0407" Then
SysSprache = "De"
else 
SysSprache = "En"
end if
Wscript.echo(SysSprache)

 

Es Kommt der Fehler "Ungültige Wurzel in Registrierungsschlüssel"

 

Wenn es so nicht möglich ist einen RegSchlüssel eines anderen Pcs heraus zu lesen, gäbe es dann die möglichkeit über %lang% etwas zu machen?

 

Danke und grüsse Rafael

[Cybquest 36]

Das geht so nicht!

Mit dem Script kannst du nur lokal die Registry auslesen (dazu PCName und den ersten Backslash weg lassen...)

 

Um remote die Registry auszulesen muss zunächst die REGOBJ.DLL registriert werden, dann z.B.

Set ObjReg = WScript.CreateObject("RegObj.Registry")
Set ObjRemote = objReg.RemoteRegistry(PCName)
KeyX  = "\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Language\InstallLanguage"
Set RootKey = objRemote.RegKeyFromString(KeyX)
SysSprache = RootKey.Value
...