ich möchte in Excel Textdateien von einer AS400 importieren.
Dazu ist die Verbindung über ein Netzlaufwerk nötig.
Beim herstellen der Verbinbindung wird der User und das Passwort abgefragt. Es ist möglich per API dem Username auszulesen.
Wie kann ich per Inputbox das Passwort eingeben ohne das es sichtbar wird?
Oder ist es möglich auch das Passwort per API zu ermitteln?
Private Function NTKennung()Option Explicit
Code eingefügt mit Syntaxhighlighter 1.13
Declare Function WNetGetUser Lib "mpr.dll" _
Alias "WNetGetUserA" (ByVal lpName As String, _
ByVal lpUserName As String, lpnLength As Long) As Long
Private Const NoError = 0
Const lpnLength As Integer = 255
Dim status As Integer
Dim lpName, lpUserName As String
lpUserName = Space$(lpnLength + 1)
status = WNetGetUser(lpName, lpUserName, lpnLength)
If status = NoError Then
lpUserName = Left$(lpUserName, InStr(lpUserName, Chr(0)) - 1)
End If
NTKennung = lpUserName
End Function
Gruß
Bongartz