Problema usando System.Management en Windows 2000

He implantado una aplicación en diversos PCs, que la primera instrucción que
realiza es leer el número del procesador para realizar una protección
anticopia. El problema es que me he encontrado un PC con Windows 2000 SP4,
en el que se genera un error al ejecutar la función que os pongo a
continuación. Otros equipos similares, tambien con Windows 2000 SP4, o con
XP SP2 no generan ningun problema, y no se cual puede ser la causa.

¿Alguna idea?
Gracias de antemano

Public Function fgsNumeroProcesador() As String
'Necesita imports System.Management
Dim query As New SelectQuery("Win32_Processor")
Dim searcher As New ManagementObjectSearcher(query)
Dim Processors As ManagementObjectCollection = searcher.Get()
For Each Processor As ManagementObject In Processors
Dim ProcessorProperties As PropertyDataCollection =
Processor.Properties
For Each [Property] As PropertyData In ProcessorProperties
If [Property].Name.ToUpper = "PROCESSORID" Then
Return [Property].Value.ToString
Exit Function
End If
Next
Return ""
Next
End Function