verschiedene Werte aus einer remote Registry auslesen und speichern
Hallo zusammen,
ich habe mich schon mit der Suche ausgiebig beschäftigt, doch wie es so ist habe ich nicht das so gefunden, wie ich mir das vorstelle. Hinzu kommt, dass ich von VBS und Scripten generell so ziemlich keine Ahnung habe.
Was ich gerne machen möchte ist folgendes: via VBS von Rechnern im Netzwerk (Win XP und Domäne) verschiedene Registry Keys mit deren Werten auslesen und als Datei (txt) speichern. Hierzu habe ich folgendes erstellt.
strComputer="xyz"
Set colsoftware=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\cimv2")
dim av
dim avstxt
set av=createobject("Scripting.FileSystemObject")
set avstxt=av.opentextfile("C:\scripts\test.txt",2,true)
Dim sKey1
Dim sKey2
Dim sKey3
Dim sOrg1
Dim sOrg2
Dim sOrg3
Dim WshShell
Dim colsoftware
set WshShell = CreateObject("WScript.Shell")
sKey1 = "HKEY_LOCAL_MACHINE\SOFTWARE\Hersteller\Desktop\szProductVer"
sKey2 = "HKEY_LOCAL_MACHINE\SOFTWARE\Hersteller\Engine\release"
sKey3 = "HKEY_LOCAL_MACHINE\SOFTWARE\Hersteller\Engine\Date"
sOrg1 = WshShell.RegRead(sKey1)
sOrg2 = WshShell.RegRead(sKey2)
sOrg3 = WshShell.RegRead(sKey3)
wscript.echo sOrg1
wscript.echo sOrg2
wscript.echo sOrg3
Mein Problem nun ist, dass 1. ich keine Ahnung habe wie ich die Variable "colsoftware" so einsetze, das die angeforderten Infos vom remote-PC kommen und nicht von meinem eigenen PC und 2. wie ich dass dann in eine txt-Datei übergebe.
Bin für Tipps & Tricks sehr dankbar
ich habe mich schon mit der Suche ausgiebig beschäftigt, doch wie es so ist habe ich nicht das so gefunden, wie ich mir das vorstelle. Hinzu kommt, dass ich von VBS und Scripten generell so ziemlich keine Ahnung habe.
Was ich gerne machen möchte ist folgendes: via VBS von Rechnern im Netzwerk (Win XP und Domäne) verschiedene Registry Keys mit deren Werten auslesen und als Datei (txt) speichern. Hierzu habe ich folgendes erstellt.
strComputer="xyz"
Set colsoftware=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\cimv2")
dim av
dim avstxt
set av=createobject("Scripting.FileSystemObject")
set avstxt=av.opentextfile("C:\scripts\test.txt",2,true)
Dim sKey1
Dim sKey2
Dim sKey3
Dim sOrg1
Dim sOrg2
Dim sOrg3
Dim WshShell
Dim colsoftware
set WshShell = CreateObject("WScript.Shell")
sKey1 = "HKEY_LOCAL_MACHINE\SOFTWARE\Hersteller\Desktop\szProductVer"
sKey2 = "HKEY_LOCAL_MACHINE\SOFTWARE\Hersteller\Engine\release"
sKey3 = "HKEY_LOCAL_MACHINE\SOFTWARE\Hersteller\Engine\Date"
sOrg1 = WshShell.RegRead(sKey1)
sOrg2 = WshShell.RegRead(sKey2)
sOrg3 = WshShell.RegRead(sKey3)
wscript.echo sOrg1
wscript.echo sOrg2
wscript.echo sOrg3
Mein Problem nun ist, dass 1. ich keine Ahnung habe wie ich die Variable "colsoftware" so einsetze, das die angeforderten Infos vom remote-PC kommen und nicht von meinem eigenen PC und 2. wie ich dass dann in eine txt-Datei übergebe.
Bin für Tipps & Tricks sehr dankbar
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 113081
Url: https://administrator.de/contentid/113081
Ausgedruckt am: 25.11.2024 um 05:11 Uhr
3 Kommentare
Neuester Kommentar