Hallo @ all,
durch die Umstellung eines neuen "Berechtigten Konzept" muss jetzt eine anderen Kennung(mit höhere Berechtigung) genutzt werden, um die Verbindung zu einem Remote Rechner, herstellen zu können.
Das Auslesen per(""\root\cimv2" z.B.: WIN32_OperatingSystem) funktioniert mit Übermittlung der Daten meiner zweiten Kennung.
ABER den Zugriff auf die HKLM zum auslesen von SubKeys bekomm ich nicht hin?
Habt Ihr mal ein Beispiel für mich, wie ich den Zugriff auf z.B.: "\SYSTEM\ControlSet001\Control"
mit Übergabe von Benutzer und Password ermöglichen kann.
Hier steh ich:
ich stelle in meiner KLasse zunächst die Verbindung her (hier Übergebe ich bereits User/Passwort)
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 dann setze ich die Abfrage ab (hier ist der ***gesucht Wert nur Beispielhaft***)
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 Es geht nicht darum irgendwas zu umgehen oder keine Berechtigung etc. etc.
Danke schon mal für produktive Beiträge
Gruß
Werner
|