Hardwaredaten auslesen

[Lloyd]

Server 7.0.2
Client 7.0.2
---------------
Hallo,
hat jemand eine Idee wie ich in Notes die Hardwaredaten des Lokalen, bzw. Remote PC auslesen kann. So Dinge wie Hersteller, Betriebssystem, IP-Adresse, MAC, ... .

Für Alternativen, die nicht in Notes verwurzelt liegen, die ich aber mit Notes abfragen kann, wäre ich auch offen.

[m3]

F O R U M S S U C H E  !!!

Und wie unterscheidet sich diese Anfrage von dieser: http://atnotes.de/index.php?topic=41429.msg265009#msg265009

[Lloyd]

Der Unteschied liegt zwischen Software u. Hardware. Ich habe im Forum nichts passendes gefunden und auch Google hat mich nicht weiterhelfen können, da ich mich nicht mit WMI, ... auskenne. Ich habe mir auch das Script zum Softwareauslesen angeschaut, aber umgebastlet bekomme ich das auch nicht so richtig, da mir die passenden Registry-Schlüssel fehlen.

[guesswho]

duuuuuuu scho widder 

Code

                strComputer = "deinRechner"

                Set objWMIService = GetObject("winmgmts:" & "\\" & strComputer & "\root\cimv2") 

                Set colSystem = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem") 
                Forall system In colSystem 
                        instDate =Left(system.InstallDate, 8) 
                                doc.installationsdatum = Right(instdate,2)& "." & Mid(instdate, 5,2) & "." & Left(instdate, 4) 
                        If system.ServicePackMajorVersion <> "" Then sp = " (SP " & system.ServicePackMajorVersion & ")" 
                        system = system.caption & sp 
                End Forall 
                
                Set colSystem = objWMIService.ExecQuery ("Select * from Win32_ComputerSystemProduct") 
                Forall system In colSystem 
                         seriennummer = system.IdentifyingNumber 
                End Forall 
                
                Set colSystem = objWMIService.ExecQuery ("Select * from Win32_Processor") 
                Forall system In colSystem 
                        Prozessor = Ltrim(system.Name) 
                End Forall 

mal so als Ansatz, damit kannst du auch alle Datenträger auslesen (Win32_DiskDrive, Win32_CDROMDrive, Win32_LogicalDisk). MAC oder IP-Adresse über Win32_NetworkAdapterConfiguration, usw.

Infos zu WMI: http://www.microsoft.com/germany/technet/datenbank/articles/600682.mspx

Beispielscripte lassen sich da ganz einfach in Script umbasteln.

Jo

[Lloyd]

Ich scho widder.

Damit komme ich klar. Funzt soweit. Besten dank !!!!!!

[guesswho]

kannst z.B. mit WMIC ComputerSystem GET /VALUE auf Befehlszeilenebene nachschauen, welche Eigenschaften die Klasse bietet

Jo

[Lloyd]

Hi, danke nochmal für die Tips. Ich habe jetzt alle Infos im Notes drin. Lediglich folgende Angaben kann ich per WMI nicht finden:

Hersteller des PC: z.B. Hewlett-Packard
Modelltyp: z.B. NC6120
Gerätetyp: z.B. Workstation (gibts scheinbar für WindowsXP nicht)

Hast du ne Ahnung wo ich diese letzten 3 Infos noch herziehen kann? In der Registry und "Google" bin ich nicht fündig geworden.

[guesswho]

Da wo du die Seriennummer rausholst (Win32_ComputerSystemProduct) gibts noch ein system.Vendor für den Hersteller und system.Name für das Modell.

Workstation ?! Vielleicht über das installierte OS ?!

Jo

[Lloyd]

Besten Dank erneut. Bist mir echt ne große Hilfe gewesen.

[Lloyd]

Hallo,
ich frage mittlerweile, mehr oder weniger erfolgreich, die Hardware unserer PCs im Netzwerk ab. Bei bestimmten Geräten komme ich auf das Gerät drauf, habe aber keinen Zugriff um die Daten auszulesen.
-> soweit konnte ich das bereits eingrenzen. Leider klappt das Error Handling nicht sauber an der Stelle.

On Error Goto WEITER
...
strComputer = wsid
Set objWMIService = GetObject("winmgmts:" & "\\" & strComputer & "\root\cimv2")
' hier bricht das Script dann ab, weil er die Daten nicht auslesen kann, springt aber nicht in die
' Errorbehandlung, sondern unterbricht das Script
...

Fehlermeldung: "Automation object Error"
In den "File Contents" der Designer Hilfe bin ich leider auch nicht fündig geworden.
Hat jemand ne Ahnung wie ich das abfangen kann?

[guesswho]

Ich scho widddr 

schätze, da musst du die Fehlerroutine etwas abändern.

Code

On Error Goto WEITER
...
strComputer = wsid
'Errorhandling ausschalten
on Error Resume Next
Set objWMIService = GetObject("winmgmts:" & "\\" & strComputer & "\root\cimv2")

If Not Isobject(objWMIService) Then
  'hier dein Fehlerhinweis, dass das nicht funktioniert hat und Routine abbrechen
End If

'ansonsten kanns weitergehn

'Errorhandling wieder einschalten
On Error goto weiter

.....

Das musst du aber bei allen folgenden Objects auch beachten

IMHO: Wenn der Fehler "Automation Object Error" sofort nach Start des Einlesens kommt, ist das Gerät über den Namen nicht erreichbar, wenn der Fehler erst nach >30 Sekunden erscheint, solltest du prüfen, ob der angesprochene Arbeitsplatz WMI unterstützt oder ob evtl. WMI dort defekt ist. Das Logfile findest du am Arbeitsplatz unter %windir%\system32\wbem\logs

Jo

[Lloyd]

So hat es geklappt. DANKE.

Durch deinen Vorschlag die Fehlerbehandlung umzubauen konnte ich jetzt folgendes herausfinden.

Unsere beiden DomainController (Win2003) bekommen kein Object zurück und können nicht abgefragt werden.
Alle anderen MemberServer (Win2003) bekommen ein Object und werden erfolgreich abgefragt.

In unserer anderen Domäne kann weder der DomainController(Win 2000) noch der MemberServer (Win2000) abgefragt werden, da kein Object zurück kommt.

Kannst du dir da einen Reim drauf machen?