Visual Basic - Localizar un dato (Nº Serie, etc) unico del PC

Life is soft - evento anual de software empresarial
   
Vista:

Localizar un dato (Nº Serie, etc) unico del PC

Publicado por Moises (12 intervenciones) el 24/09/2007 21:51:30
Hola:
Estoy intentando buscar un codigo VB que me proporcione un dato unico de informacion del PC donde esta instalado el codigo.
Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Localizar un dato (Nº Serie, etc) unico del PC

Publicado por Séneca (23 intervenciones) el 25/09/2007 09:19:11
Para sacar el número de serie del disco duro (p.ej. "c:\")

Private Sub Command1_Click()
Dim FSO As New FileSystemObject, dDrive As Drive
Set dDrive = FSO.Drives("C:\")
MsgBox dDrive.SerialNumber
End Sub

Necesitas incluir en Proyecto la referencia "Microsoft Scripting Runtime"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Localizar un dato (Nº Serie, etc) unico del PC

Publicado por Moises (12 intervenciones) el 25/09/2007 22:18:55
El codigo es muy bueno y sencillo Gracias.
Mi incognita ahora es:
El numero que me sale en el msgbox, a que esta vinculado exactamente, y si instalando este codigo en otro PC podria dar un numero igual.
Gracias. El codigo es muy bueno.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar