Sub wmiLoader(ComputerName As String, _
              strUser As String, strPW As String)
 
Dim objComputer As Object, _
    objWMIService As Object
Dim qQuery As String, qPfad As String
Dim wmiLOC
    On Error Resume Next
'If blnBiosVersion = False Then Exit Function
   qPfad = "\\" & ComputerName & "\root\default:StdRegProv"
 
 
Set wmiLOC = CreateObject("WbemScripting.SWbemLocator")
If strPW = "" Or strUser = "" Then   
    Set m_objWMI = wmiLOC.ConnectServer(ComputerName, qPfad, , , , , 128)
        Else
    Set m_objWMI = wmiLOC.ConnectServer(ComputerName, qPfad, strUser, strPW, , _
      , 128)
    m_wmiConnect = True
End If
 
''' Fehlerrückgabe - fertig!
If Err.Number <> 0 Then GoTo errHandler
Exit Sub
''' keine Fehler ...
errHandler:
m_wmiConnect = False
Debug.Print Err.Number, Err.Description
End Sub

Property Get wmiQuery(ByVal sWMIQuery As String) As Object
    On Error GoTo noWMI
    Const HKLM = &H80000002
 
    Dim strKeyPath$: strKeyPath = "\SYSTEM\ControlSet001\Control"
    Dim strValueName$: strValueName = "AGP"
 
            m_objWMI.EnumKey HKLM, strKeyPath, strValueName
 
    If wmiQuery.Count = 0 Then GoTo noItem
 
   Exit Property
noItem:
Debug.Print Err.Number, Err.Description
'    m_RecVerbState = False
End Property
 
438          Objekt unterstützt diese Eigenschaft oder Methode nicht