Hola a todos.
Trabajo con Windows 10 y tengo una máquina Virtual para mi XP en el que alojo mi antiguo VB6. Lo he tenido que retocar por algunas cosas y me encuentro que no hay manera de que me lea el número del procesador. lo cual antes hacia perfectamente y no se si es problema de la máquina virtual o es otra cosa, la cuestión en que necesito leerlo y me salta en lo marcado en negrita.
Private Property Get NumeroSerieProcesador() As String
Dim objWMI As Object, objProcesador As Object
On Error GoTo NumeroSerieProcesador_Error
Set objWMI = GetObject("WINMGMTS:")
For Each objProcesador In objWMI.InstancesOf("Win32_Processor")If Len(objProcesador.ProcessorID) Then '////Aquí ya me salta al end if. Por lo que no lee el procesador.
NumeroSerieProcesador = objProcesador.ProcessorID
Exit For
End If
Next objProcesador
Set objProcesador = Nothing
Set objWMI = Nothing
'ShellExecute 0, vbNullString, "mailto:usuario@managerialanalyzer.com?Subject=Solicitud de Licencia de Registro&Body=Envío Nº de Registro: ", vbNullString, App.Path, 1
On Error GoTo 0
Exit Property
NumeroSerieProcesador_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") NumeroSerieProcesador de Módulo Module1"
End PropertyNo se que puede haber cambiado ya que en la máquina virtual que tenía en WIndows7 lo leía perfectamente, pero ahora, dice que no.
Bueno, un saludo a todos.
Gemma
