Con este código en VBA podremos conocer: el nombre del equipo, usuario en uso y la serie del volumen del disco C/.
Sub InfoDeWindows_Ventanta()
With CreateObject("Scripting.FileSystemObject")
serialhdc = Hex(.Drives.Item("C:").SerialNumber)
End With
With CreateObject("WScript.Network")
MsgBox "Información:" & vbCr & _
"Nombre del equipo: " & Environ("computername") & vbCr & _
"Nombre del dominio: " & Environ("userdomain") & vbCr & _
"Nombre del usuario: " & Environ("username") & vbCr & _
"Serie Vol C:/ :" & serialhdc, , "Excel Consultor"
End With
End Sub
