RE:Se puede leer ID del PC desde VBA
Private Declare Function apiGetVolumeInformation Lib "kernel32" Alias _
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal _
lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long
Dim DrvSerialNo&
Dim DrvLabel As String * 256
Dim FileSys As String * 256
Dim i&, j&, x&, sID$
x = apiGetVolumeInformation("C:", DrvLabel, 256, DrvSerialNo, i, j, FileSys, 256)
If x <> 0 Then sID = Hex(DrvSerialNo)
Saludos desde Baires, JuanC