Debes tener un antivirus algo intrusivo, la verdad, porque no debería saltarte ningún aviso de bloqueo. Quizás puedas configurar el antivirus, para bajarle el nivel de seguridad (como si fuera al navegador).
Si quieres prueba este otro código, a ver si también te salta el antivirus:
Código:
Private Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long)
Private Sub Numero_de_serie_del_disco_duro()
Dim cad1 As String * 256
Dim cad2 As String * 256
Dim numSerie As Long
Dim longitud As Long
Dim flag As Long
Unidad = "C:\"
Call GetVolumeInformation(Unidad, cad1, 256, numSerie, longitud, flag, cad2, 256)
MsgBox "Numero de Serie de la unidad C: " & numSerie
End Sub
Salu2