Dato identificativo de un ordenador
Hola. A ver si alguien me da una idea sobre lo siguiente: necesito saber un dato concreto y la forma de conseguirlo utilizando visual basic excel que me permita identificar a un ordenador de todos los demás (no se, se me ocurre: algún numero de serie de la placa base, del procesador o algo por el estilo) y pueda hacer una especie de clave o algo que evite que la hoja que estoy diseñando funcione fuera de ese ordenador... ¿Imposible? ¿Complicado?... Vosotros diréis, Gracias
1 Respuesta
Respuesta
1
Lo siguiente te da el nombre de la Pc y el usuario (modifícalo según tu necesidad)
'Muestra el nombre de la PC y de Usuario.
Sub usuarioRed()
Dim ObjetoRed As Object
Set ObjetoRed = CreateObject("WScript.Network")
MsgBox "Nombre del PC en Red : " & ObjetoRed.ComputerName & vbCrLf & _
"Usuario: " & ObjetoRed.UserName, vbInformation, "Aviso"
Set ObjetoRed = Nothing
End Sub
y esta te da información del disco
Sub NroSerieDisco()
Dim fs, d, s, t, drvpath
drvpath = "C"
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
Select Case d.DriveType
Case 0: t = "Desconocido"
Case 1: t = "Separable"
Case 2: t = "Fijo"
Case 3: t = "Red"
Case 4: t = "CD-ROM"
Case 5: t = "Disco RAM "
End Select
s = "Unidad " & d.DriveLetter & ": - " & t
s = s & vbCrLf & "NS: " & d.SerialNumber
MsgBox s
End Sub
Puedes usar la que más te sirva de las 2 modificadas según tu necesidad.
'Muestra el nombre de la PC y de Usuario.
Sub usuarioRed()
Dim ObjetoRed As Object
Set ObjetoRed = CreateObject("WScript.Network")
MsgBox "Nombre del PC en Red : " & ObjetoRed.ComputerName & vbCrLf & _
"Usuario: " & ObjetoRed.UserName, vbInformation, "Aviso"
Set ObjetoRed = Nothing
End Sub
y esta te da información del disco
Sub NroSerieDisco()
Dim fs, d, s, t, drvpath
drvpath = "C"
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
Select Case d.DriveType
Case 0: t = "Desconocido"
Case 1: t = "Separable"
Case 2: t = "Fijo"
Case 3: t = "Red"
Case 4: t = "CD-ROM"
Case 5: t = "Disco RAM "
End Select
s = "Unidad " & d.DriveLetter & ": - " & t
s = s & vbCrLf & "NS: " & d.SerialNumber
MsgBox s
End Sub
Puedes usar la que más te sirva de las 2 modificadas según tu necesidad.