
66943
04.08.2008, aktualisiert am 11.08.2008
Auslesen von Softwareaplikationen sowie Rechnerdaten mit VBS
Hallo an alle,
ich möchte in meinem Netzwerk die installierte Software sowie deren aktuelle Version und die Hardware des Rechners auslesen.
Die Daten soll am besten in einer Access Datenbank gespeichert werden.
Könnt ihr mit helfen, denn ich weiß nicht so richtig wo ich jetzt anfangen soll.
ich möchte in meinem Netzwerk die installierte Software sowie deren aktuelle Version und die Hardware des Rechners auslesen.
Die Daten soll am besten in einer Access Datenbank gespeichert werden.
Könnt ihr mit helfen, denn ich weiß nicht so richtig wo ich jetzt anfangen soll.
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 93526
Url: https://administrator.de/forum/auslesen-von-softwareaplikationen-sowie-rechnerdaten-mit-vbs-93526.html
Ausgedruckt am: 22.04.2025 um 00:04 Uhr
5 Kommentare
Neuester Kommentar
Hallo zurück,
Stichwort: Scriptomatic
damit lassen sich Beispiele erstellen und meist auch ohne Probleme in Office mit einbinden
zumindest weiss ich es von Excel, da ich es selbst zum inventarisieren meiner PCs nutze
*nachtrag*
Code kopieren in eine Textdatei und dann speichern als SW.vbs:
Stichwort: Scriptomatic
damit lassen sich Beispiele erstellen und meist auch ohne Probleme in Office mit einbinden
zumindest weiss ich es von Excel, da ich es selbst zum inventarisieren meiner PCs nutze
*nachtrag*
Code kopieren in eine Textdatei und dann speichern als SW.vbs:
Const WbemAuthenticationLevelPktPrivacy = 6
strComputer = "localhost"
strNamespace = "root\cimv2"
strUser = ""
strPassword = ""
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objwbemLocator.ConnectServer _
(strComputer, strNamespace, strUser, strPassword)
objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy
Const HKLM = &H80000002
Set objReg = GetObject("winmgmts://" & strComputer & _
"/root/default:StdRegProv")
Const strBaseKey = "Software\Microsoft\Windows\CurrentVersion\Uninstall\"
objReg.EnumKey HKLM, strBaseKey, arrSubKeys
For Each strSubKey In arrSubKeys
intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _
"DisplayName", strValue)
If intRet <> 0 Then
intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _
"QuietDisplayName", strValue)
End If
If (strValue <> "") and (intRet = 0) Then
str=str & strValue &vbcrlf
End If
Next
wscript.echo str
Link zur Scriptomatic und weiteren MS Tools:
http://www.microsoft.com/technet/scriptcenter/createit.mspx
http://www.microsoft.com/technet/scriptcenter/createit.mspx

MSINFO32 verwenden.
Falls es nicht darum geht, das selbst zu erfinden, sieh dir mal Loginventory an: http://www.loginter.net
geTuemII
geTuemII