Abfrage Seriennummer eines PC´s

[Caleb666]

Hallo,

ist es möglich per Lotus Script oder über Formel die Seriennummer eines PCs abzufragen?
In den Umgebungsvariablen wird diese leider nicht gespeichert, sonst hätte man es über
Environ lösen können  .

Vielen Dank.

[Tode]

und WO wird die Seriennummer gespeichert? Wenn Du das rausgefunden hast (hat NIX mit Notes zu tun), dann kannst Du es auch mit Lotus Notes auslesen...

[Peter Klett]

<OT>
Ganz einfach: Mit der WebCam unter das Gerät schauen und dann den richtigen Aufkleber mittels Schriftenerkennung übersetzen 

So ähnlich funktioniert hier die Erfassung von Fahrzeugen bei Mautgebühren, habe heute erst wieder drei Rechnungen bekommen. Soll keiner sagen, es gäbe keine Möglichkeit ... 
</OT>

[pram]

<OT>
http://gizmodo.com/5498412/sql-injection-license-plate-hopes-to-foil-euro-traffic-cameras
</OT>

Definiere Seriennummer.

Eine Möglichkeit wäre, per ipconfig die MAC-Adresse der Netzwerkkarte auszulesen (sollte eindeutig sein) oder mittels "dir" die Volumenseriennummer oder mittels @RegQueryValue("HKEY_LOCAL_MACHINE";"SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion";"ProductID") die im Gerätemanager angezeigte ProductID...


Gruß
Roland

[Caleb666]

Hallo,

die Seriennummer ist im Bios gespeichert.

Ich kann diese per ComamndLine mit:
wmic bios get serialnumber
auslesen.

Kann die entsprechende WMI-Klasse auch mittels Lotus Script ausgelesen werden
und wenn ja, wie?

Dankeschön.

[Glombi]

Das liefert den Computernamen. Den kann man einfach auslesen mit

Dim computername As String
computername = Environ$("COMPUTERNAME")

Andreas

[Ralf_M_Petter]

Das ist doch nicht weiter schwer.

Hier mal eine Quick & Dirty Lösung:

Sub Initialize
   Dim objWMIService As Variant
   Dim colItems as Variant
   Dim strComputer As String
   strComputer="."
   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_BIOS",,48)
   Forall objItem In colItems
      
      print "Bios_SerialNumber:" & objItem.SerialNumber
      
   End forall
End Sub

[Caleb666]

Hallo,

vielen Dank für die Unterstützung und sorry für die späte Rückmeldung.

Leider habe ich festgestellt, dass das auslesen gar nicht funktionieren wird, da
die PC´s die ich gerne auslesen würde mit LN über Citrix arbeiten und ein auslesen hier nicht möglich ist...

Ich werde nun die SN über "wmic bios get serialnumber" auslesen und in ein Textfile speichern und später über Lotus Script einlesen.

Vielen Dank.