Le vrai numéro de série d'une partition
Résolu
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
-
3 oct. 2005 à 17:41
ShareVB Messages postés 2676 Date d'inscription vendredi 28 juin 2002 Statut Membre Dernière intervention 13 janvier 2016 - 3 oct. 2005 à 18:09
ShareVB Messages postés 2676 Date d'inscription vendredi 28 juin 2002 Statut Membre Dernière intervention 13 janvier 2016 - 3 oct. 2005 à 18:09
A voir également:
- Le vrai numéro de série d'une partition
- Nombre aléatoire numéro de téléphone - Forum Delphi / Pascal
- Nombre aléatoire - Forum C# / .NET
- Vérifier numéro carte bancaire - Forum PHP
- Numéro au hasard - Forum Visual Basic
- Convertisseur numéro téléphone - Forum Visual Basic
2 réponses
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
3 oct. 2005 à 18:04
3 oct. 2005 à 18:04
J'ai finalement trouvé... classe Win32LogicalDisk
Dim oMng
As
New Management.ManagementObjectSearcher(
"select * from Win32_LogicalDisk where volumename='" & "Disque_WinXP" &
"'")
Dim oObj As ManagementObject
For
Each oObj
In oMng.Get
MonNum = oObj.Item(
"VolumeSerialNumber")
Next
Si la réponse te conviens merci de l'accepter
Dim oMng
As
New Management.ManagementObjectSearcher(
"select * from Win32_LogicalDisk where volumename='" & "Disque_WinXP" &
"'")
Dim oObj As ManagementObject
For
Each oObj
In oMng.Get
MonNum = oObj.Item(
"VolumeSerialNumber")
Next
Si la réponse te conviens merci de l'accepter
ShareVB
Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
26
3 oct. 2005 à 18:09
3 oct. 2005 à 18:09
salut,
le vrai numéro de série est en hexadécimal et toi tu l'as en décimal...
num_serie_integer = 1827932342
num_serie=right$("0000" & hex$(num_serie_integer \
&H10000&),4) & "-" & right$("0000" &
hex$(num_serie_integer and &HFFFF&),4)
ShareVB
le vrai numéro de série est en hexadécimal et toi tu l'as en décimal...
num_serie_integer = 1827932342
num_serie=right$("0000" & hex$(num_serie_integer \
&H10000&),4) & "-" & right$("0000" &
hex$(num_serie_integer and &HFFFF&),4)
ShareVB
