help for system id!!!!!

[itteck]

hi,
i wanted to know how can i detect the system id or motherboard id through a vb program source, which would return a unique id for every system.....
can any body help with the source code for it,

thanx!
-itteck-

 

[EBGreen]

This may or may not do what you want:

strCOmputer = "."
Set oWMI = GetObject("winmgmts:" & "{impersonationlevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colBIOS = oWMI.ExecQuery("SELECT * FROM Win32_SystemEnclosure")
For Each oBIOS In colBIOS
        WScript.Echo "Part Number = " & oBIOS.PartNumber
        WScript.Echo "Serial Number = " & oBIOS.SerialNumber
        WScript.Echo "Asset Tag = " & oBIOS.SMBIOSAssetTag
Next

 

[Harlequin007]

itteck

If it's any help I developed a small VB program that runs a few batch files and returns data to a VB interface while simultaneously writing a TXT file.

Information displayed includes:

MAC Address(s)
Volume ID
Volume Label
OS versions
Apps installed
Username
System name

And loads of other stuff.

Let me know if it's of any help. Also, if you want a copy (it e-mails automatically so I'd need an e-mail address to hartdcode).

----------------------------
Cogito Ergo Sum

http://www.discworks.co.uk

----------------------------