Try
                            If Authenticate("Domain", "Benutzer", "Passwort") _
                              Then
                                ' ...
                                For Each oFile In oFiles
                                    IO.Path.ChangeExtension(oFile.FullName, _
                                      ".sav")
                                Next
                                ' ...
                            Else
                                Throw New Exception("Not Authenticated")
                            End If
                        Catch ex As Exception
                            MsgBox(ex.Message)
                        End Try

Public Shared Function Authenticate(ByVal domain As String, ByVal username _
As String, ByVal password As String) As Boolean
 
        Dim pwd As New Security.SecureString()
        Dim bAuth As Boolean = False
        Dim entry As DirectoryEntry = Nothing
 
        'Durchlaufe das Passwort und hänge es dem SecureString an 
        For Each c As Char In password
            pwd.AppendChar(c)
        Next
 
        'Bewirkt, dass das Passwort nicht mehr verändert werden kann 
        pwd.MakeReadOnly()
 
        'Passwort wird einem Pointer übergeben, damit dieser später 
        ' "entschlüsselt" werden kann 
        Dim pPwd As IntPtr = _
          System.Runtime.InteropServices.Marshal.SecureStringToBSTR(pwd)
 
        Try
            entry = New DirectoryEntry(String.Concat("LDAP://", domain), _
              username, System.Runtime.InteropServices.Marshal.PtrToStringBSTR( _
              pPwd))
            Dim nativeObject As Object = entry.NativeObject
            bAuth = True
        Catch ex As Exception
            bAuth = False
        Finally
            entry.Close()
 
 
            entry.Dispose()
        End Try
        Return bAuth

Security.SecureString() --------Security ist nicht eindeutig. Importiert aus _
  den Namespaces oder 
                                Typen "System, System.NET".
DirectoryEntry------------------Der Typ DirectoryEntry ist nicht definiert.