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 ?