Visual Basic - Obtener un número unico de PC

Life is soft - evento anual de software empresarial
 
Vista:

Obtener un número unico de PC

Publicado por Alfredo (9 intervenciones) el 17/07/2001 20:52:13
Hola, necesito obtener un número diferente por PC, como pueda ser el número de procesador, disco duro, etc.
Si alguien me puede echar un cable se lo agradecería.
Muchas gracias de antemano
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

PROBALO!!!!

Publicado por Juan Jose (16 intervenciones) el 18/07/2001 13:47:28
'Svr="nombre de servidor o maquina"
'unidad="unidad a verificar"
Private Sub ChequeoUNidad(Svr As String, Unidad As String)
On Error GoTo CtroLError
Dim fs, d, s As String, s1 As String, s2 As String, filsys As String, serie As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(Svr & Unidad))
serie = d.serialnumber
msgbox "Este es el numero de Serie: "& serie
Exit Sub
CtroLError:
MsgBox Err.Description
End Sub

SUERTE!!!!!!
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:PROBALO!!!!

Publicado por Alfredo (9 intervenciones) el 19/07/2001 04:24:36
Muchas gracias Juan José, creo que me puede servir, voy a probarlo.
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