' API (nur Win9x/ME!)
Private Declare Function WNetVerifyPassword Lib _
        "mpr.dll" Alias "WNetVerifyPasswordA" _
        (ByVal lpszPassword As String, ByRef _
        nMatch As Long) As Long

Dim nResult As Long
Dim nMatch As Long
Dim sPassword As String
 
sPassword = "geheim"
 
nResult = WNetVerifyPassword(sPassword, nMatch)
If nResult = 0 Then
  If nMatch <> 0 Then
    ' Jepp... OK
  Else
    ' Leider falsch!
  End If
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de