braunse
Goto Top

Via VBS Laufwerk verbinden inkl Passwort und Benutzer eingabe

Hallo an alle,

folgendes Problem bei dem ich nicht weiterkomme.
Ich möchte mich via net use auf ein anderes Netzwerklaufwerk verbinden, jedoch soll der Benutzername und ein Psswort abgefragt werden und die verbindungn nach einem neustart bestehen bleieben.
ob dies via batch zu realisieren ist weis ich nicht!? Mit VB/VBA könntet ihr mich auch helfen!
Danke schonmal

Content-Key: 99468

Url: https://administrator.de/contentid/99468

Ausgedruckt am: 29.03.2024 um 13:03 Uhr

Mitglied: Logan000
Logan000 16.10.2008 um 15:28:44 Uhr
Goto Top
Moin Moin

dafür benötigst du keinen Batch, das kann net use mit einem einzigen Aufruf.
net use /?

Mit VB/VBA könntet ihr mich auch helfen!
Was für ein Problem hast Du denn in VB?

Gruß L.
Mitglied: braunse
braunse 16.10.2008 um 15:38:43 Uhr
Goto Top
MEin Problem in VB ist, das ich leider nicht so der programmierer bin und deshalb schon von grund auf probleme damit habe!
verschiedene fertige scripte aus dem netz haben mir auch nicht geholfen. weis auch nicht weiter...
Mitglied: braunse
braunse 16.10.2008 um 15:43:31 Uhr
Goto Top
Was auch noch wichtig ist, ist ein Anmeldefenster. Heist: ich klicke auf einen Button und dann kommt benutzername und passwort eingabe und anschließend bin ich mit dem netzlaufwerk verbunden! wie kann ich dies realisieren.
Mitglied: dog
dog 16.10.2008 um 15:55:16 Uhr
Goto Top
z.B. mit VBS wenn du den Internet Explorer zu Hilfe nimmst:

http://www.microsoft.com/technet/scriptcenter/topics/htas/tutorial1.msp ...

Laufwerke mappen sieht aber in VBS etwas anders aus als in Batch.
Mitglied: braunse
braunse 17.10.2008 um 07:48:25 Uhr
Goto Top
Hat jemand vll ein beispielscript für mich das cih nur etwas anpassen muss?
Mitglied: Logan000
Logan000 17.10.2008 um 08:37:50 Uhr
Goto Top
Moin Moin

Laufwerks mapping per VBs:
Set fs = CreateObject("Scripting.filesystemobject")  
Set net = CreateObject("WScript.Network")  
On Error Resume Next
If fs.driveExists("X:\") Then net.RemoveNetworkDrive "X:",True,True  
net.MapNetworkDrive MapNetworkDrive "X:", "\\server\share", false, "domainName\administrator", "password"   

Was auch noch wichtig ist, ist ein Anmeldefenster. Heist: ich klicke auf einen Button und dann kommt benutzername und passwort eingabe und anschließend bin ich mit dem netzlaufwerk verbunden! wie kann ich dies realisieren.
Zum Anmelde fenster habe ich jetzt keine wirklich gute Idee, außer mit Imputbox.
Etwas so:
...
UserName = ImputBox("Benutzername eingeben","Benutzer")  
PWD = ImputBox("Passwort eingeben","Passwort")  
...

Gruß L.
Mitglied: braunse
braunse 17.10.2008 um 08:40:53 Uhr
Goto Top
Danke schonmal für die Hilfe!
Werde mal damit arbeiten und mich dann nochmal melden.
Mitglied: braunse
braunse 17.10.2008 um 09:09:02 Uhr
Goto Top
Ich hab den code mal angepasst heist server und share eingetragen. Kann ich den code eingetlich mit dem programm sharpdeveloper ausführen.
hat leider noch nicht geklappt.... hmmm..??
Mitglied: Logan000
Logan000 17.10.2008 um 09:40:33 Uhr
Goto Top
Moin

zum Thema Kennworteingabe habe ich noch einen recht interesanten Link gefunden.
Schau mal hier: http://www.robvanderwoude.com/vbstech_ui_password.html

Was ist denn der "sharpdeveloper" ?

Gruß L.
Mitglied: braunse
braunse 17.10.2008 um 10:03:06 Uhr
Goto Top
sharpdeveloper ist ein freeware tool zum vb programmieren.

ja weil hab jetzt nicht genau gewusst oder wis nicht wie ich den vbs code umsetzte, mach ich das wie bei ner batchdatei?
Mitglied: Logan000
Logan000 17.10.2008 um 15:36:17 Uhr
Goto Top
Moin Moin

Zitat von @braunse:
sharpdeveloper ist ein freeware tool zum vb programmieren.
Ok. wieder was gelernt.
Vielleicht komm ich mal dazu mir das genauer anzuschauen.

ja weil hab jetzt nicht genau gewusst oder wis nicht wie ich den vbs code umsetzte, mach ich das wie bei ner batchdatei?
Textdatei erstellen. Dateiendung in .vbs ändern.
Mit Editor öffnen. Code rein + speichern. Ausführen.

Gruß L.
Mitglied: braunse
braunse 20.10.2008 um 16:14:41 Uhr
Goto Top
So hab mal alles so wie beschrieben getestet. Bekomme auch keine Fehlermeldung oder sonstiges das einzige Problem ist nur das das NW-Laufw. trotzdem nicht erscheint, irgendwas passt also nicht.
quellcode von oben genutz nur server\share user und pw eingetragen!
woran könnte das nun liegen?
Mitglied: Logan000
Logan000 21.10.2008 um 11:27:32 Uhr
Goto Top
Moin Moin

Zitat von @braunse:
So hab mal alles so wie beschrieben getestet. Bekomme auch keine
Fehlermeldung oder sonstiges das einzige Problem ist nur das das
NW-Laufw. trotzdem nicht erscheint, irgendwas passt also nicht.
quellcode von oben genutz nur server\share user und pw eingetragen!
woran könnte das nun liegen?

Entferne mal die Zeile
on error resume next
und teste es nochmal.
Falls doch ein Fehler auftritt wird dieser dann angezeigt.

Gruß L.
Mitglied: braunse
braunse 21.10.2008 um 15:58:01 Uhr
Goto Top
Jo mach ich mal! Falls eine Fehler kommt und ich ihn nicht behebne kann werd ich Ihn posten!
Danke
Mitglied: braunse
braunse 22.10.2008 um 07:53:29 Uhr
Goto Top
Hier mein momentaner Quellcode:


Set fs = CreateObject("Scripting.filesystemobject")
Set net = CreateObject("WScript.Network")
If fs.driveExists("X:\") Then net.RemoveNetworkDrive "X:",True,True
net.MapNetworkDrive "X:", "\\191.32.xxx.x\g$", false, "O2FSxxxxxxTE\wolxxxx", "Oxxxx"

Als Fehlermeldung kommt beim ausführen immer Fehler Zeile 4 Zeichen 1. Meine Zeile 4 beginnt bei net.Map.......! Weiter kommt dann noch Anmeldename oder Kennwort falsch! Kann aber auch nicht sein diese hab ich nämlich überprüft und funktionieren wie ich sie eingetragen habe.
Danke schonmal im vorraus.
Mitglied: Logan000
Logan000 22.10.2008 um 08:04:32 Uhr
Goto Top
Moin Moin

Zitat von @braunse:
Als Fehlermeldung kommt beim ausführen immer Fehler Zeile 4
Zeichen 1. Meine Zeile 4 beginnt bei net.Map.......! Weiter kommt dann
noch Anmeldename oder Kennwort falsch! Kann aber auch nicht sein diese
hab ich nämlich überprüft und funktionieren wie ich sie
eingetragen habe.

Am code liegts nicht. Von daher muss ich annehmen das die Meldung korrekt ist und ein Problem mit den Rechten vorliegt.
Überprüfe nochmal die berechtigungen von \\191.32.xxx.x\g$ auf Freigabe und NTFS ebene. Probiere evtl. auch mal einen alternativen Benutzer aus.
Tippfehler werden auch immer wieder gern genommen.


Gruß L.
Mitglied: braunse
braunse 23.10.2008 um 08:15:22 Uhr
Goto Top
SO, hat soweit funktioniert!
Der DomainNAme war falsch! Jetzt brauch ich nur noch das Anmeldefenster: langt es da wenn ich den Code von oben vor dem net. Befehl einfüge? und pw und user einfach freilasse?
Mitglied: braunse
braunse 23.10.2008 um 08:45:18 Uhr
Goto Top
Set fs = CreateObject("Scripting.filesystemobject")
Set net = CreateObject("WScript.Network")
UserName = InputBox("Benutzername eingeben","Benutzer")
net.MapNetworkDrive "W:", "\\191.32.xxxx\g$", false, "AxxxxTE\Username", "Oxxxx"

so sieht mein Quellcode aktuell aus mit Benutzereingabe! die input bock kommt, aber wenn ich den benutzername eingebe kommt dann die meldung das die anmeldaten falsch sind! ich denke mal das in dem code noch was nicht stimmt, das das script keine beziehung zu der inputbox herstellt?
Mitglied: Logan000
Logan000 23.10.2008 um 11:19:29 Uhr
Goto Top
Moin Moin

Ich unterstell mal das der Domainname immer gleich ist

Set fs = CreateObject("Scripting.filesystemobject")  
Set net = CreateObject("WScript.Network")  
UserName = InputBox("Benutzername eingeben","Benutzer") ' benutzername abfragen  
If Username<>"" Then ' ohne benutzername ist weitermachen sinnlos  
     PWD = InputBox("Passwort eingeben","Passwort") ' Passwort abfragen  
     net.MapNetworkDrive "W:", "\\191.32.xxxx\g$", false, "AxxxxTE\" & UserName , PWD   
end if

Echter Nachteil dieser Lösung ist, das das Passwort in Klartext in der Inputbox steht.
Evtl. Abhilfe: Schau mal hier: http://www.robvanderwoude.com/vbstech_ui_ ...

Gruß L.
Mitglied: braunse
braunse 23.10.2008 um 12:31:41 Uhr
Goto Top
sorry, der link funz irgendwie nicht!

könnte ich also irgendwie ne textbox einfügen? oder ist das ne große umstellung?
Mitglied: Logan000
Logan000 23.10.2008 um 12:59:03 Uhr
Goto Top
Moin

War der gleiche wie oben. Hier nochmal kommplett: http://www.robvanderwoude.com/vbstech_ui_password.html

könnte ich also irgendwie ne textbox einfügen? oder ist das ne große umstellung?
Wo einfügen? in die InputBox? Nee, das wird nix.
VBS hat keinen Formulardesigner.
Da kann man nur mit Standard Dialogen arbeiten oder mit HTML.

Gruß L.
Mitglied: braunse
braunse 23.10.2008 um 13:07:04 Uhr
Goto Top
ok!
Also schau mir mal den Quellcode an und pack ihn in die momentande vbs datei!
meld mich dann nochmal
thx
Mitglied: braunse
braunse 23.10.2008 um 13:21:35 Uhr
Goto Top
Set fs = CreateObject("Scripting.filesystemobject")
Set net = CreateObject("WScript.Network")

UserName = InputBox("Benutzername eingeben","Benutzer")
If Username<>"" Then

strPw = Password( "Please enter your password:" )
WScript.Echo "Your password is: " & strPw

Function Password( myPrompt )
Dim objPassword
' Use ScriptPW.dll by creating an object
Set objPassword = CreateObject( "ScriptPW.Password" )
WScript.StdOut.Write myPrompt
Password = objPassword.GetPassword()
WScript.StdOut.Write String( Len( myPrompt ), Chr( 8 ) ) _
& Space( Len( myPrompt ) ) _
& String( Len( myPrompt ), Chr( 8 ) )
End Function
net.MapNetworkDrive "W:", "\\191.32.xxxx\g$", false, "AxxxxxTE\" & UserName , PWD
end if

Fehlermeldung:
ActiveX komponente kann kein objekt erstellen:scriptpw.password


ich weis ja nicht ob das damit funktioniert?! welche moglichkeit gibts noch so was zu realieren was ich haben möchte?
mit vba?
Mitglied: Logan000
Logan000 23.10.2008 um 13:35:23 Uhr
Goto Top
Moin

Zum ScriptPW.Password beispiel: Steht da noch:
Script Engine: WSH, CSCRIPT.EXE only
Summarized: Works in Windows XP or later, only in CSCRIPT.EXE (uses StdOut). Should also work in older Windows versions with .NET Framework installed (look for scriptpw.dll), only in CSCRIPT.EXE.
Doesn't work in Windows 95.

Ich dachte eigentlich an das 2. Skript auf der Seite.

ich weis ja nicht ob das damit funktioniert?! welche moglichkeit gibts noch so was zu realieren was ich haben möchte?
mit vba?
Fast alles was man in VBS machen kann geht (fast) 1-1 in VB oder VBA.

Gruß L.
Mitglied: braunse
braunse 23.10.2008 um 14:08:46 Uhr
Goto Top
also damit hats jetzt geklappt:

Set fs = CreateObject("Scripting.filesystemobject")

Set net = CreateObject("WScript.Network")

UserName = InputBox("Benutzername eingeben","Benutzer")

If Username<>"" Then

strPw = GetPassword( "Please enter your password:" )

Function GetPassword( myPrompt )

Dim objIE
Set objIE = CreateObject( "InternetExplorer.Application" )
objIE.Navigate "about:blank"
objIE.Document.Title = "Password"
objIE.ToolBar = False
objIE.Resizable = False
objIE.StatusBar = False
objIE.Width = 320
objIE.Height = 180
With objIE.Document.ParentWindow.Screen
objIE.Left = (.AvailWidth - objIE.Width ) \ 2
objIE.Top = (.Availheight - objIE.Height) \ 2
End With
Do While objIE.Busy
WScript.Sleep 200
Loop
objIE.Document.Body.InnerHTML = "<DIV align=""center""><P>" & myPrompt _
& "</P>" & vbCrLf _
& "<P><INPUT TYPE=""password"" SIZE=""20"" " _
& "ID=""Password""></P>" & vbCrLf _
& "<P><INPUT TYPE=""hidden"" ID=""OK"" " _
& "NAME=""OK"" VALUE=""0"">" _
& "<INPUT TYPE=""submit"" VALUE="" OK "" " _
& "OnClick=""VBScript:OK.Value=1""></P></DIV>"
objIE.Visible = True
Do While objIE.Document.All.OK.Value = 0
WScript.Sleep 200
Loop
GetPassword = objIE.Document.All.Password.Value
' Close and release the object
objIE.Quit
Set objIE = Nothing


net.MapNetworkDrive "W:", "\\191.32.xxxx\g$", false, "AOxxxxTE\" & UserName , GetPassword

End Function

end if

danke nochmal für die Hilfe!

Was halt auch noch schön wäre, wenn user und passwort in einem ie feld wären! möglich?
Mitglied: braunse
braunse 23.10.2008 um 14:52:51 Uhr
Goto Top
Set fs = CreateObject("Scripting.filesystemobject")
Set net = CreateObject("WScript.Network")

strUserName = GetUserName( "Please enter your User:" )
Function GetUserName( myPrompt )


Dim objIE
Set objIE = CreateObject( "InternetExplorer.Application" )
objIE.Navigate "about:blank"
objIE.Document.Title = "Password"
objIE.ToolBar = False
objIE.Resizable = False
objIE.StatusBar = False
objIE.Width = 320
objIE.Height = 180
With objIE.Document.ParentWindow.Screen
objIE.Left = (.AvailWidth - objIE.Width ) \ 2
objIE.Top = (.Availheight - objIE.Height) \ 2
End With
Do While objIE.Busy
WScript.Sleep 200
Loop
objIE.Document.Body.InnerHTML = "<DIV align=""center""><P>" & myPrompt _
& "</P>" & vbCrLf _
& "<P><INPUT TYPE=""password"" SIZE=""20"" " _
& "ID=""Password""></P>" & vbCrLf _
& "<P><INPUT TYPE=""hidden"" ID=""OK"" " _
& "NAME=""OK"" VALUE=""0"">" _
& "<INPUT TYPE=""submit"" VALUE="" OK "" " _
& "OnClick=""VBScript:OK.Value=1""></P></DIV>"
objIE.Visible = True
Do While objIE.Document.All.OK.Value = 0
WScript.Sleep 200
Loop
GetUserName = objIE.Document.All.Password.Value
' Close and release the object
objIE.Quit
Set objIE = Nothing

end function

strPw = GetPassword( "Please enter your password:" )
Function GetPassword( myPrompt )

Dim objIE1
Set objIE1 = CreateObject( "InternetExplorer.Application" )
objIE1.Navigate "about:blank"
objIE1.Document.Title = "Password"
objIE1.ToolBar = False
objIE1.Resizable = False
objIE1.StatusBar = False
objIE1.Width = 320
objIE1.Height = 180
With objIE1.Document.ParentWindow.Screen
objIE1.Left = (.AvailWidth - objIE1.Width ) \ 2
objIE1.Top = (.Availheight - objIE1.Height) \ 2
End With
Do While objIE1.Busy
WScript.Sleep 200
Loop
objIE1.Document.Body.InnerHTML = "<DIV align=""center""><P>" & myPrompt _
& "</P>" & vbCrLf _
& "<P><INPUT TYPE=""password"" SIZE=""20"" " _
& "ID=""Password""></P>" & vbCrLf _
& "<P><INPUT TYPE=""hidden"" ID=""OK"" " _
& "NAME=""OK"" VALUE=""0"">" _
& "<INPUT TYPE=""submit"" VALUE="" OK "" " _
& "OnClick=""VBScript:OK.Value=1""></P></DIV>"
objIE1.Visible = True
Do While objIE1.Document.All.OK.Value = 0
WScript.Sleep 200
Loop
GetPassword = objIE1.Document.All.Password.Value
' Close and release the object
objIE1.Quit
Set objIE1 = Nothing


net.MapNetworkDrive "W:", "\\191.32.xxxx\g$", false, "AOxxxxTE\" & GetUserName , GetPassword


end function


Hab jetzt schonmal versucht das so zusammen zu fügen das ich 2 eingabefenster vom ie habe! problem ist nur, das der befehl zum netzlaufwerk verbinden jetzt nur das password ausliest da ja der user mit end function beendet wird. wie verknüpf ich das?
Mitglied: braunse
braunse 24.10.2008 um 08:43:35 Uhr
Goto Top
Noch eine Frage:
Ich hab den Quellcode jetzt soweit umgeschrieben, dass ich 2 mal das ie fenster habe einmal mit getuser und einmal mit getpasswort! jetzt müsst ich am ende nur noch die beiden werte auslesen aber wie geht das? ich kann den net befehl in eine function mit reinpacken aber dann kann ich ja nur einen wert auslesen!?
wie soll ich da weiter machen=?
Mitglied: Logan000
Logan000 24.10.2008 um 09:50:21 Uhr
Goto Top
Moin Moin

Erstmal ein Tipp Schau mal biite in der nach dem Code Tag. Das mach das lesen von code doc erheblich leicher.


Zitat von @braunse:
Ich hab den Quellcode jetzt soweit umgeschrieben, dass ich 2 mal das
ie fenster habe einmal mit getuser und einmal mit getpasswort! jetzt
müsst ich am ende nur noch die beiden werte auslesen aber wie
geht das? ich kann den net befehl in eine function mit reinpacken aber
dann kann ich ja nur einen wert auslesen!?
wie soll ich da weiter machen=?

Du änderst die Reihenfolge. Also oben stehen die Funktionsaufrufe und unter die Funktionsdeklarationen.

Set net = CreateObject("WScript.Network")   

net.MapNetworkDrive "W:", "\\191.32.xxxx\g$", false, "AOxxxxTE\" & GetUserName("Benutzername angeben") , GetPassword("Paswort eingeben")   

Function GetPassword( myPrompt )
....
end function

Function GetUserName ( myPrompt )
....
end function

Du könntest Dir natürlich auch eine Funtion schreiben die beides in einem Fenster abfragt. Dazu müstes du natürlich den HTML part entsprechend erweitern und da diese Funtion mehr als einen wert zurückgeben soll (Username und PWD) brauch diese Funktion mehr parameter.

In etwas so:
 call GetPassword("Bitte Benutzername und Kennwort angeben", strUsername, strPassword)  

net.MapNetworkDrive "W:", "\\191.32.xxxx\g$", false, "AOxxxxTE\"& strUsername, strPassword  

Function GetPassword( myPrompt, strUsername, strPassword)
....
end function

Gruß L.
Mitglied: braunse
braunse 24.10.2008 um 10:06:39 Uhr
Goto Top
Wenn ich diese Zeile:

net.MapNetworkDrive "W:", "\\191.32.xxxx\g$", false, "AOxxxxTE\" & GetUserName("Benutzername angeben") , GetPassword("Paswort eingeben")

oben schreibe kommt immer die Fehlermeldung, kompilierungsfehler?? Was könnte das sein?
Mitglied: braunse
braunse 24.10.2008 um 10:46:16 Uhr
Goto Top
Ich hab die angegebenen Tipps genutzt und habs geschafft ein Fenster mti User und PW zu erstellen es funktioniert!
Danke nochmal für die Super Hilfe!
Mitglied: braunse
braunse 28.10.2008 um 10:57:48 Uhr
Goto Top
Noch eine Zusatzfrage:
Wie kann ich es realisieren, dass nach der Anmedlung, das NEtzlaufwerk automatisch geöffnet wird?
Mitglied: Logan000
Logan000 28.10.2008 um 11:28:07 Uhr
Goto Top
Moin Moin

Da hängt du einfach ein
set shell = CreateObject("WScript.Shell")  
shell.run "%windir%\explorer /e, W:"  
hinten ran.

Gruß L.
Mitglied: braunse
braunse 28.10.2008 um 12:23:20 Uhr
Goto Top
Ja ok. Werd ich gleich versuchen! Danke
Mitglied: itMike
itMike 13.11.2008 um 07:08:44 Uhr
Goto Top
Hallo zusammen,
kenne mich ebenfalls garnicht mit VBS aus.

Muss aber ein VBS realisieren, dass 6 oder mehr Laufwerke mit einem anderen Benutzername und Passwort mappen.
3 Laufwerke sollen mit dem angemeldeten Benutzer gemappt werden.

Ich möchte aber für die 6 Laufwerke nur einmal das Passwort eingeben müssen.
Wenn das MAppen abgeschlossen ist hätte ich gerne eine Bestätigung mittels MSG Box.
Das mappen findet in einer Domaine statt.

Könnt ihr mir da helfen???

Vielen Dank schonmal

Mfg

Mike
Mitglied: braunse
braunse 13.11.2008 um 10:55:57 Uhr
Goto Top
Eigentlich sollte dir der gepostete Quellcode weiterhelfen können!? Hier wird halt nur ein NW mit anderen Benutzerdaten gemappt mit Hilfe eine IE Anmeldefensters.
Mitglied: itMike
itMike 13.11.2008 um 18:23:29 Uhr
Goto Top
Hi,
habe folgenden Code verwendet.

Bekomme folgenden Fehler in Zeile 81 Zeichen 1
Fehler: Falsche Anzahl an Agumenten oder ungültige Wigenschaftszuweisung 'GetserNAme'
Code: 800A01C2
Quelle: Laufzeitenfehler in Microsoft VB Script

Was kann da der Fehler sein???


Set fs = CreateObject("Scripting.filesystemobject")
Set net = CreateObject("WScript.Network")

strUserName = GetUserName( "Please enter your User:" )
Function GetUserName( myPrompt )


Dim objIE
Set objIE = CreateObject( "InternetExplorer.Application" )
objIE.Navigate "about:blank"
objIE.Document.Title = "Password"
objIE.ToolBar = False
objIE.Resizable = False
objIE.StatusBar = False
objIE.Width = 320
objIE.Height = 180
With objIE.Document.ParentWindow.Screen
objIE.Left = (.AvailWidth - objIE.Width ) \ 2
objIE.Top = (.Availheight - objIE.Height) \ 2
End With
Do While objIE.Busy
WScript.Sleep 200
Loop
objIE.Document.Body.InnerHTML = "<DIV align=""center""><P>" & myPrompt _
& "</P>" & vbCrLf _
& "<P><INPUT TYPE=""password"" SIZE=""20"" " _
& "ID=""Password""></P>" & vbCrLf _
& "<P><INPUT TYPE=""hidden"" ID=""OK"" " _
& "NAME=""OK"" VALUE=""0"">" _
& "<INPUT TYPE=""submit"" VALUE="" OK "" " _
& "OnClick=""VBScript:OK.Value=1""></P></DIV>"
objIE.Visible = True
Do While objIE.Document.All.OK.Value = 0
WScript.Sleep 200
Loop
GetUserName = objIE.Document.All.Password.Value
' Close and release the object
objIE.Quit
Set objIE = Nothing

end function

strPw = GetPassword( "Please enter your password:" )
Function GetPassword( myPrompt )

Dim objIE1
Set objIE1 = CreateObject( "InternetExplorer.Application" )
objIE1.Navigate "about:blank"
objIE1.Document.Title = "Password"
objIE1.ToolBar = False
objIE1.Resizable = False
objIE1.StatusBar = False
objIE1.Width = 320
objIE1.Height = 180
With objIE1.Document.ParentWindow.Screen
objIE1.Left = (.AvailWidth - objIE1.Width ) \ 2
objIE1.Top = (.Availheight - objIE1.Height) \ 2
End With
Do While objIE1.Busy
WScript.Sleep 200
Loop
objIE1.Document.Body.InnerHTML = "<DIV align=""center""><P>" & myPrompt _
& "</P>" & vbCrLf _
& "<P><INPUT TYPE=""password"" SIZE=""20"" " _
& "ID=""Password""></P>" & vbCrLf _
& "<P><INPUT TYPE=""hidden"" ID=""OK"" " _
& "NAME=""OK"" VALUE=""0"">" _
& "<INPUT TYPE=""submit"" VALUE="" OK "" " _
& "OnClick=""VBScript:OK.Value=1""></P></DIV>"
objIE1.Visible = True
Do While objIE1.Document.All.OK.Value = 0
WScript.Sleep 200
Loop
GetPassword = objIE1.Document.All.Password.Value
' Close and release the object
objIE1.Quit
Set objIE1 = Nothing


net.MapNetworkDrive "G:", "\\Server\Gruppenlaufwerk\Gruppe\IT\", false, "AOxxxxTE\" & GetUserName , GetPassword


Er macht es nicht unter dem anderen Benutzername.

Was könnte der Fehler sein?


end function