Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Alguien me podria decir como adaptar esta macro para poner 3 numeros de serie y que funcione en los 3? Es una macro que reconoce el numero de serie del disco duro y si no es igual, cierra la aplicacion.
Y esta es la macro para ver el numero de serie del disco duro
Dim Serie As String
Dim FSO As Object 'FileSystemObject
Dim DiscoDuro As Object 'Drive
Set FSO = CreateObject("Scripting.FileSystemObject")
Set DiscoDuro = FSO.GetDrive("c:")
Serie = DiscoDuro.SerialNumber
MsgBox "EL NUMERO DE SERIE DE ESTE EQUIPO ES: " & Serie, vbInformation
Set DiscoDuro = Nothing
Set FSO = Nothing
End Sub
[/CODE]
Gracias por vuestro tiempo