Code

;===================================
;      **** Created with KiXscripts Editor 1.3 ****
;**** erstellt von Martin Riesinger 10.01.2003 at 16:45:08 ****
;===================================
$x = 9
Break On CLS
AT (4,10) " Laufwerk- Zuordnung"
:Start
; weist die Laufwerksbuchstaben anhand einer InI datei zu
;Pfad für DriveMap.ini
$Pfad = "\\scheuch-dc1\bmd\DriveMap.ini"
AT (6,10) "$pfad wird für Lauferkzuweisung verwendet"
AT (7,10) "================================================"
If Exist($Pfad)

      ? "Mapping Drive Letters: "
      
      $ = MapDrive("F")
      $ = MapDrive("G")
      $ = MapDrive("H")
      $ = MapDrive("I")
      $ = MapDrive("J")
      $ = MapDrive("L")
      $ = MapDrive("M")
      $ = MapDrive("N")
      $ = MapDrive("O")
      $ = MapDrive("P")
      $ = MapDrive("Q")
      $ = MapDrive("R")
      $ = MapDrive("S")
      $ = MapDrive("T")
      $ = MapDrive("U")
      $ = MapDrive("V")
      $ = MapDrive("W")
      $ = MapDrive("X")
      $ = MapDrive("Y")
      $ = MapDrive("Z")
      
      If $LettersMapped <> "True"
            "None." ?
      EndIf

Else
Color r+/n
AT (10,15) "keine Laufwerke konnten zugeordnetwerden"

      ? "Error: Drive Map File Not Found!"

EndIf

:End
Exit
:Functions
Function MapDrive($DriveLetter)
Color w+/n
$x = $x +1
AT ($x,10) "$DriveLetter wird untersucht"
$Group = ReadProfileString($Pfad,"$DriveLetter","Group")
Color w+/n
$x = $x +1
AT ($x,10) "ist der Gruppe $Group zugewiesen"
If InGroup ("$Group") OR $Group = "All"
     Color w+/n
     $x = $x +1
     AT ($x,10) "Der User ist in der benötigten Gruppe"
      $Share = ReadProfileString($Pfad,"$DriveLetter","Share")
      If $LettersMapped = "True" ", $DriveLetter" Else "$DriveLetter" EndIf $LettersMapped = "True"
      If Exist ("$DriveLetter:")
           Color w+/n
          $x = $x +1
          AT ($x,10) "Der Laufwerksbuchstabe ist belegt und wird gelöscht"
            Shell "%comspec% /c NET USE $DriveLetter: /Delete >nul"
      EndIf
      Shell '%comspec% /c NET USE $DriveLetter: "$Share" >nul'
           Color w+/n
          $x = $x +1
          AT ($x,10) "$DriveLetter wurde mit $Share belegt"
          $x = $x +1
          AT ($x,10) "===================================="
EndIf

$MapDrive = @ERROR

EndFunction

 

Code

[A]
Comment=System Reserved

[B]
Comment=System Reserved

[C]
Comment=System Reserved

[E]
Comment=System Reserved

[D]
Comment=System Reserved

[K]
Comment=System Reserved CD ROM

[F]
Group=All
Share=
Comment=None

[G]
Group=KI
Share=\\server\freigabe
Comment=None

[H]
Group=Unknown
Share=
Comment=None

[I]
Group=Unknown
Share=
Comment=None

[J]
Group=Unknown
Share=None
Comment=None
       
[L]
Group=Unknown
Share=
Comment=None

[M]
Group=Unknown
Share=
Comment=None

[N]
Group=Unknown
Share=
Comment=None

[O]
Group=Unknown
Share=
Comment=None

[P]
Group=All
Share=\\server\freigabe
Comment=None

[Q]
Group=Unknown
Share=
Comment=None

[R]
Group=Unknown
Share=
Comment=None

[S]
Group=ALL
Share=\\server\freigabe
Comment=None

[T]
Group=ALL
Share=\\server\freigabe
Comment=None

[U]
Group=Unknown
Share=
Comment=None

[V]
Group=ALL
Share=\\server\freigabe
Comment=None

[W]
Group=Unknown
Share=
Comment=None

[X]
Group=Unknown
Share=
Comment=None

[Y]
Group=Unknown
Share=
Comment=None

[Z]
Group=Unknown
Share=
Comment=None