66943
Goto Top

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.

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

Iwan
Iwan 04.08.2008 um 11:42:57 Uhr
Goto Top
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:
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
AndreasHoster
AndreasHoster 04.08.2008 um 12:09:17 Uhr
Goto Top
Link zur Scriptomatic und weiteren MS Tools:
http://www.microsoft.com/technet/scriptcenter/createit.mspx
67369
67369 04.08.2008 um 12:46:17 Uhr
Goto Top
MSINFO32 verwenden.
geTuemII
geTuemII 04.08.2008 um 13:12:28 Uhr
Goto Top
Falls es nicht darum geht, das selbst zu erfinden, sieh dir mal Loginventory an: http://www.loginter.net

geTuemII
66943
66943 11.08.2008 um 07:38:25 Uhr
Goto Top
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