Hallo!
Ich melde mich nochmals zu diesem Problem.
Ich habe es nun in einem lokalen Netz getestet.
Hier nochmals mein Code:
Leider bekomme ich nun beim letzten Befehl:
im folgende Meldung:
{"Der Netzwerkpfad wurde nicht gefunden."}
Data: {System.Collections.ListDictionaryInternal}
HResult: 53
HelpLink: Nothing
InnerException: Nothing
Message: "Der Netzwerkpfad wurde nicht gefunden."
Source: "Microsoft.Win32.Registry"
StackTrace: " bei Microsoft.Win32.RegistryKey.Win32ErrorStatic(Int32 errorCode, String str)" & vbCrLf & " bei Microsoft.Win32.RegistryKey.OpenRemoteBaseKeyCore(RegistryHive hKey, String machineName, RegistryView view)" & vbCrLf & " bei Microsoft.Win32.RegistryKey.OpenRemoteBaseKey(RegistryHive hKey, String machineName, RegistryView view)" & vbCrLf & " bei Netzwerkverwaltung.Form1.sicherheit() in D:\eigene dateien\vb.net\Netzwerkverwaltung\Netzwerkverwaltung\Form1.vb: Zeile717"
TargetSite: {Void Win32ErrorStatic(Int32, System.String)}
Ich kann aber problemlos auf das u: Laufwerk zugreifen. Auch der Adminzugang mit dem Passwort vom Zielrechner passt.
Hoffe es kann mir nochmals jemand weiterhelfen.
Danke
Ich melde mich nochmals zu diesem Problem.
Ich habe es nun in einem lokalen Netz getestet.
Hier nochmals mein Code:
VB.NET-Quellcode
- Dim hklm As RegistryKey
- If MapDrive("U", "\\" & computer & "\c$") = True Then
- Dim remoteComputerName As String = computer '"test44" '
- Dim options As New ConnectionOptions()
- options.Impersonation = ImpersonationLevel.Identify 'hier hattest du ImpersonationLevel.Impersonate
- options.EnablePrivileges = True
- options.Username = "administrator" 'bei mir ein account mit adminrechten auf dem zielsystem,
- options.Password = "pwd"
- Dim scope As New ManagementScope("\\" & remoteComputerName & "\", options) 'hier hattest du[tt] \c$[/tt] hinter remoteComputerName führte bei mir zu einem Fehler
- 'wobei wird das wohl nicht brauchen
- Try
- hklm = RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, remoteComputerName, RegistryView.Default)
- Catch ex As Exception
- MsgBox(ex)
- End Try
Leider bekomme ich nun beim letzten Befehl:
im folgende Meldung:
{"Der Netzwerkpfad wurde nicht gefunden."}
Data: {System.Collections.ListDictionaryInternal}
HResult: 53
HelpLink: Nothing
InnerException: Nothing
Message: "Der Netzwerkpfad wurde nicht gefunden."
Source: "Microsoft.Win32.Registry"
StackTrace: " bei Microsoft.Win32.RegistryKey.Win32ErrorStatic(Int32 errorCode, String str)" & vbCrLf & " bei Microsoft.Win32.RegistryKey.OpenRemoteBaseKeyCore(RegistryHive hKey, String machineName, RegistryView view)" & vbCrLf & " bei Microsoft.Win32.RegistryKey.OpenRemoteBaseKey(RegistryHive hKey, String machineName, RegistryView view)" & vbCrLf & " bei Netzwerkverwaltung.Form1.sicherheit() in D:\eigene dateien\vb.net\Netzwerkverwaltung\Netzwerkverwaltung\Form1.vb: Zeile717"
TargetSite: {Void Win32ErrorStatic(Int32, System.String)}
Ich kann aber problemlos auf das u: Laufwerk zugreifen. Auch der Adminzugang mit dem Passwort vom Zielrechner passt.
Hoffe es kann mir nochmals jemand weiterhelfen.
Danke