Newsgroup: it.comp.lang.visual-basic
Titolo: numero seriale scheda madre

Ciao a tutti! 
Sapete mica se esiste un sistema per leggere un dato tipo il numero
seriale (univoco) della scheda madre di un pc?
Grazie!
--
Ciao!
Davide

Per il seriale della scheda madre non so.
Se invece ti puoi accontentare del seriale dell' HArd disk esiste un API 
che te lo restituisce, io la uso da tempo e va veramente bene, basta che 
gli passi la lettera del drive che ti interessa:
'Dichiarazione API di Windows per reperire il numero seriale dell' Hard 
disk
Private Declare Function GetVolumeInformation Lib "kernel32" Alias 
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal 
lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, 
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, 
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal 
nFileSystemNameSize As Long) As Long
Public Function GetDriveInfo(strDrive As String)
 
    Dim SerialNum As Long
    Dim strLabel As String
    Dim strType As String
 
    Dim lRetVal As Long
 
    strLabel = Space(256)
    strType = Space(256)
 
    lRetVal = GetVolumeInformation(strDrive, strLabel, Len(strLabel), 
SerialNum, 0, 0, strType, Len(strType))
 
    GetDriveInfo = CStr(SerialNum)
End Function

 ha scritto nel messaggio
news:3d22f690...@News.CIS.DFN.DE...

ecco qua...codice non mio eh!
' #VBIDEUtils#************************************************************
' * Programmer Name  : Holden
' * E-Mail           : 
al...@it.ee
' * Date             : 05/01/2001
' **********************************************************************
' * Comments         : Retrieve the Motherboard's Serial Number Using WMI
' *
' * Retrieve the Motherboard's Serial Number Using WMI
' *
' **********************************************************************
Public Function MBSerialNumber() As String
   'RETRIEVES SERIAL NUMBER OF MOTHERBOARD
   'IF THERE IS MORE THAN ONE MOTHERBOARD, THE SERIAL
   'NUMBERS WILL BE DELIMITED BY COMMAS
   'YOU MUST HAVE WMI INSTALLED AND A REFERENCE TO
   'Microsoft WMI Scripting Library IS REQUIRED
   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
Logicamente devi usare WMI che trovi a
Componenti redistribuibili
http://www.microsoft.com/downloads/release.asp?ReleaseID=35751&area=search&o
rdinal=17
:WMI SDK
http://msdn.microsoft.com/downloads/default.asp?URL=/code/sample.asp?url=/ms
dn-files/027/001/566/msdncompositedoc.xml
Tutorial WMI
http://msdn.microsoft.com/downloads/default.asp?URL=/code/sample.asp?url=/ms
dn-files/027/001/574/msdncompositedoc.xml
OCCHIO PERO'
va solo da win2000 e NT in poi!

va solo da win2000 e NT in poi!
appunto... la mia applicazione gira *soprattutto* sotto win98
--
Ciao!
Davide

 Davide
e allora t'attacchi!
... nel senso che ogni produttore (non ogni...i piů noti...per le schede di
taiwan non vale) ha una suo "applicazioncina" che legge la sua scheda
direttamente.Un suo "driver" per interfacciarsi con la scheda...
lo standard ci prova proprio WMI a farlo!
...mi dispiace non sempre si puň far tutto!

appunto... la mia applicazione gira *soprattutto* sotto win98
Va installato a parte e lo puoi scaricare da qua:
http://download.microsoft.com/download/platformsdk/wmi9x/1.5/W9X/EN-US/wmi9x.exe
-- 
ciao, hal


http://download.microsoft.com/download/platformsdk/wmi9x/1.5/W9X/EN-US/wmi9x.exe
GRANDISSIMO!!!!!
Lo provo subito! Vorrei proprio evitare di comprare le chiavi
hardware... già costa tanto il software...
:-)
--
Ciao!
Davide

GRANDISSIMO!!!!!
ehm... la mia MB non ha SN...
Se volessi vedere tutte le "istances of" che ci sono?
--
Ciao!
Davide

Se volessi vedere tutte le "istances of" che ci sono?
sul platform sdk
-- 
ciao, hal