66943
Aug 04, 2008, updated at Aug 11, 2008 (UTC)
5419
5
0
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.
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 93526
Url: https://administrator.de/contentid/93526
Printed on: April 19, 2024 at 01:04 o'clock
5 Comments
Latest comment
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
Ja mit MSINFO32 komme ich schon weiter, die frage ist jetzt bloß wie kann ich diese datei speichern und mir über das netzwerk ausgeben lassen, d.h. ich will diese
datei auf anderen rechnern im netz ausführen lassen und mir ihre daten holen, hat jemand eine idee
datei auf anderen rechnern im netz ausführen lassen und mir ihre daten holen, hat jemand eine idee
