Direkter Zugriff auf SMB Shares, IP Adresse zu Clipboard, ...

Dokumentation/Classes/cBenutzer.vb

@@ -14,6 +14,7 @@ Public Class cBenutzer
     Property cn As String = ""
     Property msDSPrincipalName As String = ""
     Property localdistinguishedName As String = ""
+    Property suchname As String = ""
 
 
 
@@ -38,6 +39,7 @@ Public Class cBenutzer
         Try
             localdistinguishedName = searchname
 
+            suchname = searchname
 
             If searchname.Contains("ForeignSecurityPrincipals") Then
                 'MsgBox("!")

Dokumentation/Classes/cFolder.vb

@@ -22,21 +22,26 @@
 
     End Function
 
-    Public Shared Function explorerstarten(ip As String)
+    Public Shared Function explorerstarten(ip As String, Optional ByVal smb As Boolean = False)
         Dim Path, nwstandort, netname As String
         Dim host As New Host
-        host.gethost(ip)
-        If host.Linked = True Then
-            host.gethost(host.LinkedWith)
-        End If
-        Class1.ip2netname(host.IPAdresse, nwstandort, netname)
+        If smb = False Then
+            host.gethost(ip)
+            If host.Linked = True Then
+                host.gethost(host.LinkedWith)
+            End If
+            Class1.ip2netname(host.IPAdresse, nwstandort, netname)
 
-        Path = Class1.FilePath & "\" & nwstandort & "_" & netname & "\" & host.HOST
+            Path = Class1.FilePath & "\" & nwstandort & "_" & netname & "\" & host.HOST
 
-        If IO.Directory.Exists(Path) Then
-            Process.Start(Path)
+            If IO.Directory.Exists(Path) Then
+                Process.Start(Path)
+            Else
+                IO.Directory.CreateDirectory(Path)
+                Process.Start(Path)
+            End If
         Else
-            IO.Directory.CreateDirectory(Path)
+            Path = "\\" & ip
             Process.Start(Path)
         End If
         'MsgBox(path)