;Anmeldung an delixs (hier alix) 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.8d angepasst für delixs - alix
;
;Vereinbarungen:

; #include <GUIConstants.au3>
; #include <Date.au3>

; 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:"
; Gruppen R:
$LW4="R:"
;Servername
$Server="\\alix\"

$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 delixs Laufwerke  - dann oben auskommentieren und hier aktivieren
;DriveMapDel("T:")
;DriveMapDel("P:")
;DriveMapDel("U:")
;DriveMapDel("R:")
EndFunc

;Func _anmeldung()
;$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 _anmelden()

; Eingabemaske ohne Titelleistensteuerelemente
$EMaske = GUICreate("Serveranmeldung",200,58, -1, -1,0x00C00000)
$name = GUICtrlCreateInput ("Nutzername",20,2,120,22)
; Passworteingabe mit Punkten
$pass = GUICtrlCreateInput ("Passwort",20,32,120,22,0x0020)
$los = GUICtrlCreateButton ("OK",145,4,50,50)
GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
       
    If $msg = $los Then
      $un = GUICtrlRead ($name)
      $pw = GUICtrlRead ($pass)
      ExitLoop
    EndIf

WEnd
$EMaske = GUIDelete()
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($LW2, $Server&"change", 0, $un, $pw)
    DriveMapAdd($LW3, $Server&"pub", 0, $un, $pw)
    DriveMapAdd($LW4, $Server&"groups", 0, $un, $pw)
EndIf

EndFunc

Func _beenden()
Exit
EndFunc



Download des (gesamten, korrigierten) Scripts V0.8d   bzw. des Scripts V0.11d mit Enter(rechter Mausklick - Speichern unter)


Download der gezippten exe delixslogin.exe  (rechter Mausklick - Speichern unter)

Es wird wohl demnächst an der Jakobus-Oberschule Mülsen eingesetzt.