Sonstiges > Infrastruktur

Benutzer und Kennwort bei WMI-Abfrage übergeben

<< < (2/2)

Lloyd:
Hi,
ok ich geb mich geschlagen. Es gehört hierher. Ich hab mir jetzt auf Grund deines Beitrags jede Menge Dinge im Google reingepfiffen und den ein oder anderen Hinweis bzgl. einer Authentification gefunden. Ich bekomme diese allerdings nicht richtig in mein Script reingebastelt. Ich muß ein Impersonation Level reinbringen, da ich auf Windows 2000 Systeme von einem Win2003 Umfeld zugreife und ich muß ein AutheticationLevel irgendwie reinbauen. Das alles muß, wenn ich es richtig verstanden habe in die Zeile

Set objReg = GetObject("winmgmts:" & "{impersonationLevel=Impersonate,"  & "authenticationLevel=Pkt}!\\" & strComputer & "/root/default:StdRegProv")

Ich hab schon einiges ausprobiert, aber es haut nicht hin. Kannst du mir unter die Arme greifen? Hier muß irgendwo noch der User und dass Passwort rein. Anbei noch mein komplettes Script, was die installierte Software vom Remotesystem ausliest.


Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
Dim strKey As String
Dim intRet As Integer
Dim arrSubkeys As Variant
Dim ApplList As New ArraySets
   
Call ApplList.Init
   
strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
   
If strComputer = "" Or Ucase(strComputer) = "LOCALHOST" Then
   strComputer = "."
End If
   
Set objReg = GetObject("winmgmts:" & "{impersonationLevel=Impersonate,"  & "authenticationLevel=Pkt}!\\" & strComputer & "/root/default:StdRegProv")
   
objReg.EnumKey HKLM, strKey, arrSubkeys
   
Forall S In arrSubkeys
      
   intRet = objReg.GetStringValue(HKLM, strKey & S, "DisplayName", strValue)
   If intRet <> 0 Then
      objReg.GetStringValue HKLM, strKey & S ,"QuietDisplayName", strValue      
   End If
   objReg.GetStringValue HKLM, strKey & S ,"DisplayVersion", strValue1
   objReg.GetStringValue HKLM, strKey & S ,"InstallDate", strValue2
   objReg.GetStringValue HKLM, strKey & S ,"InstallLocation", strValue3      
   objReg.GetStringValue HKLM, strKey & S ,"InstallSource", strValue4         
   objReg.GetStringValue HKLM, strKey & S ,"Publisher", strValue5      
   objReg.GetStringValue HKLM, strKey & S ,"Contact", strValue6      
   objReg.GetStringValue HKLM, strKey & S ,"HelpLink", strValue7
   objReg.GetStringValue HKLM, strKey & S ,"HelpTelephone", strValue8
   objReg.GetStringValue HKLM, strKey & S ,"URLInfoAbout", strValue9
   objReg.GetStringValue HKLM, strKey & S ,"URLUpdateInfo", strValue10      
   strValue = strValue + "~" + strValue1 + "~" + strValue2 + "~" + strValue3 + "~" + strValue4 + "~" + strValue5 + "~" + strValue6 + "~" + strValue7 + "~" + strValue8 + "~" + strValue9 + "~" + strValue10
      
   ApplList.AddElement ( strValue)      
End Forall

rene_h:
Hallo, ...

Ich stehe momentan vor dem gleichen Problem.
Auslesen auf dem lokalen PC klappt wunderbar, ohne Probleme.
Problematisch wird es jedoch wenn ich "versuche" Benutzername und Passwort mit zu übergeben.

Ziel ist unserem Admin die Möglichkeit zu geben übers Netz Daten von entfernten Rechnern auszulesen.
Leider weiss ich nicht wie ich das ConnectionObject "simulieren" kann.
Jemand noch eine Idee?

grüße Rene

rene_h:
keiner eine Idee ?

grüße Rene

Navigation

[0] Themen-Index

[*] Vorherige Sete