[Crazytill]

Hallo,

ich soll ein Programm / s***** schreiben, welches Netzlaufwerke mapped.

haben das bisher mit Batch s*****en gemeistert, aber die soll nun anders werden, mir kam nur VBS in den Sinn, wo ich das auch direkt gemacht habe.

Nun das Problem ist das ich für jede Variable die eingelesen werden muss, eine neue Input Box machen muss, welches echt nervig ist..

Würde das am liebsten so haben :


NETWORK MAPPING

DRIVE :
MAP:
DOMAIN / USER:
PASSWORD:

OK ABBRECHEN

mein Programm sieht bisher so aus: (VBS)

Set fs = CreateObject("S*****ing.filesystemobject")

Set net = CreateObject("WS*****.Network")


UserName = InputBox("Benutzername eingeben","Benutzer")
Netzlaufwerk = Inputbox("Netzlaufwerk eingeben","Netzlaufwerk")
Pfad = Inputbox("Pfad angeben","Pfad")

If Username<>"" Then

strPw = GetPassword( "Passwort eingeben:" )

Function GetPassword( myPrompt )

Dim objIE
Set objIE = CreateObject( "InternetExplorer.Application" )
objIE.Navigate "about:blank"
objIE.Document.Title = "Passwort"
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
WS*****.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=""VBS*****:OK.Value=1""></P></DIV>"
objIE.Visible = True

Do While objIE.Document.All.OK.Value = 0
WS*****.Sleep 200
Loop
GetPassword = objIE.Document.All.Password.Value

objIE.Quit
Set objIE = Nothing

net.MapNetworkDrive Pfad & ":", "\\" & Netzlaufwerk , false , "DOMAIN\" & UserName , GetPassword



End Function
set shell = CreateObject("WS*****.Shell")
shell.run "%windir%\explorer /e,"

end if



Gibt es auch die Möglichkeit das in VB oder ähnlichen Programmen zu realisieren ?