N° de série

Signaler
Messages postés
6
Date d'inscription
jeudi 26 juillet 2007
Statut
Membre
Dernière intervention
16 décembre 2008
-
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
-
Bonjour.

Comment fait-on pour obtenir le N° de série du PC en VB6 ?

Merci par avance pour vos réponses.

5 réponses

Messages postés
6
Date d'inscription
jeudi 26 juillet 2007
Statut
Membre
Dernière intervention
16 décembre 2008

J'ai trouvé.

    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
    MsgBox fso.Drives("C").SerialNumber

Bonne journée.
Messages postés
764
Date d'inscription
jeudi 27 juillet 2006
Statut
Membre
Dernière intervention
6 septembre 2010
18
Salut patrice974,

j'ai testé ce code mais ça marche pas..(
FileSystemObject : type indéfini !
)..


y a pas une référence à inclure ?

Merci d'avance..
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
Salut,

ChatBour >> Rajoute dans ton projet la référence : Microsoft Scripting Runtime

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Messages postés
764
Date d'inscription
jeudi 27 juillet 2006
Statut
Membre
Dernière intervention
6 septembre 2010
18
Merci Exploreur
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
De rien...

A+
Exploreur

 Linux a un noyau, Windows un pépin