Domino 9 und frühere Versionen > ND8: Entwicklung

Abfrage Seriennummer eines PC´s

<< < (2/2)

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.

Navigation

[0] Themen-Index

[*] Vorherige Sete