;Anmeldung an Arktur4 unter Win7 oder Win8 ;Compiliertes Script in den Autostart ;Es werden die Laufwerke gemappt und dabei Nutzername und Passwort "geprüft" ;Die Eingabe von Nutzernamen und Passwort wird wiederholt, bis die Anmeldung erfolgreich war ;erstellt von André Dix - HIT-Systemhaus Hohenstein-Ernstthal http://www.hit-systemhaus.de ;modifizert von Jörg Fiebig - Erzgebirgskolleg Breitenbrunn http://www.erzgebirgskolleg.de ; ; Version 0.6 - einzelne Eingabemasken für Name und Passwort ; ;Vereinbarungen: ; erstes Netzwerklaufwerk: ASCII-Code von H $eNWL=ASC("H") ; letztes Netzwerklaufwerk: ASCII-Code von Z $lNWL=ASC("Z") ; Homelaufwerksbuchstabe U: $LW1="U:" ; Temp T: $LW2="T:" ; Public P: $LW3="P:" ; Vorlagen V: $LW4="V:" ;Servername $Server="\\Arktur\" $LWB="" $un="" $pw="" ;Das Programm :-) _anmeldevorgang() ;Was es macht Func _anmeldevorgang() _trennen() _anmelden() _verbinden() _beenden() EndFunc ; Trennen der Netzwerklaufwerke vom ersten bis zum letzten - siehe Vereinbarungen Func _trennen() For $LWBN=$eNWL to $lNWL $LWB=chr($LWBN)&":" DriveMapDel($LWB) Next ; oder nur die typischen Arktur Laufwerke - dann oben auskommentieren und hier aktivieren ;DriveMapDel("T:") ;DriveMapDel("P:") ;DriveMapDel("U:") ;DriveMapDel("V:") EndFunc Func _anmelden() $un = InputBox("Bitte Anmeldename eingeben","Benutzername:","", " M", 390, 130) $pw = InputBox("Bitte Kennwort eingeben","Kennwort:","","*M", 380, 130) ; das M verhindert leere Eingaben - dahinter Breite und Höhe - wobei die Minimalhöhe 115 auch interessant wäre! EndFunc Func _verbinden() DriveMapAdd($LW1, $Server&"homes", 0, $un, $pw) If @error <> 0 then $FNr=@error Msgbox(0,"Fehler "&$FNr,"Anmeldedaten falsch!") _anmeldevorgang() exit else DriveMapAdd($LW3, $Server&"pub", 0, $un, $pw) DriveMapAdd($LW2, $Server&"tmp", 0, $un, $pw) DriveMapAdd($LW4, $Server&"vorlagen", 0, $un, $pw) EndIf EndFunc Func _beenden() Exit EndFunc