Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Motherboard Serial Number
Message
De
23/05/2002 11:15:45
 
 
À
23/05/2002 10:22:38
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00660435
Message ID:
00660516
Vues:
11
I thought motherboards did not have serial numbers, only cpus (PIII and up), but I found this. Here is code to do this in VB, maybe someone out there can modify it to work with VFP? (George and Ed know alot about scripting)

YOU MUST HAVE WMI INSTALLED AND A REFERENCE TO
Microsoft WMI Scripting Library IS REQUIRED IN VB FOR THIS TO WORK
Public Function MBSerialNumber() As String

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
End Function
>I have already sent a message for everybody, but I think you didn't see it...
>
>Thanks anyway...
>
>Silvio
.·*´¨)
.·`TCH
(..·*

010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform