VB6 - WMI Remotezugriff laaangsam + merkwürdiger Meldung

[ante]

Hallo, bisher habe ich keine andere Möglichkeit gefunden als nur über WMI die Seriennummer eines Remote-Rechner's im Netz (LAN) auszulesen. Spricht ja auch nicht's dagegen nur problematisch wird's wenn ich auf dem Remote-Rechner, auf den ich übers Netz zugreife, keine Zugriffsrechte auf WMI habe.
Bis WMI mal klar ist das ich keinen Zugriff habe verstreichen nervtötende Sekunde
dem nicht genug folgt auch noch die Meldung:

Titel: Komponentenanforderung wird bearbeitet.
Text: Die Aktion kann nicht beendet werden, da die andere Anwedung nicht verfügbar ist. Klicken Sie auf "Wechseln zu" um die andere Anwedung zu aktivieren und das Problem zu beheben.

Meine Frage:
1. Wie kann die Abfrage beschleunigt werden wenn auf dem zu ermittelndem Rechner ich keine WMI-Rechte besitze.
2. Was soll die Meldung? Abfangen kann ich Sie nicht. Zumindestens macht es meine Fehlerbehandlungsroutine nicht.

Hier etwas Code:

Private Sub ComputerSNWMIRemote()
   Dim objWMIService As SWbemObject
   Dim objSet As SWbemObjectSet
   Dim obj As SWbemObject
   Dim y As Integer
         
   On Error GoTo ErrorHandler
  
   Set objSet = GetObject("winmgmts:\\" & mvarHostname & "\root\cimv2").ExecQuery( _
      "SELECT IdentifyingNumber FROM Win32_ComputerSystemProduct ")
   For Each obj In objSet
      mvarComputerSN = obj.IdentifyingNumber
   Next obj
     
    Set obj = Nothing
    Set objSet = Nothing
    mvarComputerSN = ""
   Exit Sub
   
ErrorHandler:
    Set obj = Nothing
    Set objSet = Nothing
    mvarComputerSN = ""
    MsgBox "WMI error occurred.", vbExclamation, sTitelMsBRoot
End Sub

Eigentlich sollte ich von ca. 500 Netzwerkknoten die Seriennumer auslesen.
Na viel Spaß dabei.

Vielen dank für alles was mich zum Ziel näher bringt


Gruß Ante