Salve ragazzi io sto realizzando un piccolo tool per farmi comparire i seriali della CPU e della scheda madre. Per la scheda madre ho utilizzato questa funzione:
Codice Presumibilmente in VB6
Dim objs As Object
Dim obj As Object
Dim wmi As Object
Dim sAns As String
Set wmi = GetObject("WinMgmts:")
Set objs = wmi.InstancesOf("Win32_BaseBoard")
For Each obj In objs
sAns = sAns & obj.serialNumber
If sAns < objs.Count Then sAns = sAns & ","
Next
MBSerialNumber = sAns
txtMotherboard.Text = MBSerialNumber
Con la particolarità che su alcuni pc compare il seriale e su altri no,cme mai?
poi qlcn conosce qlc metodo per visualizzare l'ID del processore?
Grazie In anticipo
Ultima modifica effettuata da pierotofy il 10/09/2009 alle 17:58 |