Mappen

;<AutoItScript>
;+----------------------------------------------------------------------------+
Opt("MustDeclareVars", 1)  ;0=no, 1=require pre-declare                       |
;|    Header: Bestimmen der Übergabeparameter                                 |
;|    ( Alles Strings(!!!), bis auf ArgC )                                    |
;|    FontAnzeigeCheck: |Il1 sind Alt-0124, Großes i, Kleines L, Eins         |
Const $Autor="Mappen.au3 ©2006 by ytwinky, MD";                               |
;|    AutoIt3-Version: 3.1.1.110(beta)                                        |
;|    Editor: SciTE 1.67, feste Schriftart                                    |
;|    Zweck : Schablone für den Anfang, nach Bedarf anpassen                  |
;|    Tab auf 2 setzen wg. Lesbarkeit                                         |
;+----------------------------------------------------------------------------+
Dim $mapp, $ErrMsg, $laufwerk="C:", $zahler=0, $PC[2], $s
$PC[0]="localhost"
$PC[1]="AndererPC"
$s="1 = Undefiniert / anderer Fehler" &@Cr
$s&="2 = Zugriff auf die Remote-Freigabe abgelehnt" &@Cr
$s&="3 = Das Lw ist bereits zugewiesen" &@Cr
$s&="4 = Falscher Lw-Name" &@Cr
$s&="5 = Falsche Remote-Freigabe" &@Cr
$s&="6 = Falsches Kennwort" &@Cr
$ErrMsg=StringSplit($s, @Cr)


$mapp = DriveMapAdd($laufwerk, "\"& $PC[$zahler] &"\c$" , 0)


$s="DriveMappAdd=" &$mapp
If @Error<>0 Then $s&=@LF &"Fehler=" &@Error &@LF &$ErrMsg[@Error]
MsgBox(64, "DriveMapAdd", $Autor &@LF &$s)


Exit @Error
;Unterprogramme


;</AutoItScript>