code:

---

$I = "\\App_Server\E_D_V"
...
USE I: $I 

---

code:

---

  USE I: "\\App_Server\E_D_V" 

---

code:

---

break on cls

$i = "\\Server\jpols$"

use h: $i

@error

get $

---

code:

---

;Logon Script zur Domain MDE                         erstellt: 25.06.2002
;KiXtart Ver.: 4.11                                  geändert: 15.10.2002 
;                                                       durch: Peter Schneider

;-- Deklarationen -----------------------------------------------------------------------------------

DEBUG OFF
;$RC       = SetConsole("Hide")                           ;"Hide" Console Window
$RC       = SetConsole("Show")                            ;"Show" to Display Console Window
$crlf     = Chr(13)+Chr(10)                               ;Text Zeilenumbruch
$Tab      = Chr(09)                                       ;Tabulator-Zeichen 
$LServer1 = "APP_SERVER"                                  ;PDC Logon Server
$LServer2 = "APP_BACKUP"                                  ;BDC Logon Server
$LServer3 = "MDES001FAX"                                  ;BDC Logon Server 
$LServer0 = Ucase(Substr(@LServer,3,Len(@LServer)-2))     ;Aktueller Logon-Server
$nicht    = ""

Dim $Tag[7]                                               ;Wochentage-Matrix 
Dim $Mon[13]                                              ;Monate-Matrix

$Tag[0]  = "Sonntag"
$Tag[1]  = "Montag"
$Tag[2]  = "Dienstag"
$Tag[3]  = "Mittwoch"
$Tag[4]  = "Donnerstag"
$Tag[5]  = "Freitag"
$Tag[6]  = "Samstag"

$Mon[00] = " "
$Mon[01] = "Januar"
$Mon[02] = "Februar"
$Mon[03] = "März"
$Mon[04] = "April"
$Mon[05] = "Mai"
$Mon[06] = "Juni"
$Mon[07] = "Juli"
$Mon[08] = "August"
$Mon[09] = "September"
$Mon[10] = "Oktober"
$Mon[11] = "November"
$Mon[12] = "Dezember" 

$Dat     = $Tag[@WdayNo]+", "+
           @MdayNo+". "+
           $Mon[@MonthNo]+" "+
           @Year                                         ;Aktuelles Datum                      
           
$Titel       = "MDE Logon Prozedur"
$Text1       = "Willkommen bei Mathys Deutschland " + $crlf + $crlf
$Text4       = "Ihre PC-Umgebungsdefinitionen sind wie folgt:                           " + $crlf + $crlf
$Text5       = "Das Fenster wird nach 20 Sekunden automatisch geschlossen" + $crlf + $crlf

$Datum       = "Datum"    + $Tab + $Tab + $Tab + $Dat + $crlf 
$Zeit        = "Zeit"     + $Tab + $Tab + $Tab + @Time + $crlf 
$OS          = "Windows"  + $Tab + $Tab + $Tab + @ProductType + $crlf 
$Build       = "Build"    + $Tab + $Tab + $Tab + @Build + $crlf 
$CSD         = "ServicePack"     + $Tab + $Tab + @CSD + $crlf 
$CPU         = "Prozessor"       + $Tab + $Tab + @CPU + $crlf 
$MHz         = "Takt MHz" + $Tab + $Tab + $Tab + @MHz + $crlf 
$Kix         = "Kix-Version"     + $Tab + $Tab + @Kix + $crlf 
$UserID      = "Benutzer" + $Tab + $Tab + $Tab + @UserID + $crlf
$Level       = "Status"   + $Tab + $Tab + $Tab + @Priv + $crlf 
$FullName    = "LangName"        + $Tab + $Tab + @Fullname + $crlf
$Domain      = "Domäne"   + $Tab + $Tab + $Tab + @Domain + $crlf
$LogonServer = "LogonServer"     + $Tab + $Tab + $LServer0 + $crlf
$Workstation = "Workstation"     + $Tab + $Tab + @Wksta + $crlf
$NodeAddress = "NIC Adresse"     + $Tab + $Tab + @Address + $crlf
$IPAddress   = "IP Adresse"      + $Tab + $Tab + @IPAddress0 + $crlf
$SID         = "Security ID"     + $Tab + $Tab + @SID + $crlf

;-- Netz-Laufwerks Zuordnung ------------------------------------------------------------------------

$H = "\\MDES001BAK\"+@UserID+"$"                 ; User Home Verzeichnis, individuell je Benutzer 
$I = "\\App_Server\E_D_V"                        ; IT
$J = "PMAN$"                                     ; ProduktManagement
$K = "KUKO$"                                     ; Kurse und Kongresse   
$L = "LAGR$"                                     ; Lager
$M = "MAKT$"                                     ; Marketing
$N = "FINA$"                                     ; Finanzen
$O = "CTRL$"                                     ; Controlling
$P = "\\App_Server\For all"                      ; Öffentliches (Public) Verzeichnis, jedaer hat jeden Zugriff 
$Q = ""                                          ;
$R = "GRAF$"                                     ; Grafik und Design 
$S = ""                                          ; 
$T = "EVNT$"                                     ; Event Management
$U = "\\190.191.63.245\doku"                     ; Dokumentationen Bettlach
$V = "VTID$"                                     ; Vertriebsinnendienst
$W = "VTAD$"                                     ; Vertriebsaussendienst
$X = ""                                          ;
$Y = "GELE$"                                     ; Geschäftsleitung
$Z = "\\App_Server\Repl$"                        ; Logon Verzeichnis auf PDC 

;-- Anzeige der ArbeitsumgebunG ---------------------------------------------------------------------

If $LServer0 = $LServer1 OR $LServer0 = $LServer2 OR $LServer0 = $LServer3  ;Prüfen Domain Logon
   $nicht = ""                                                              ;verbunden  
   $Text3 = ""
  Else 
   $nicht = "nicht "                                                        ;nicht verbunden  
   $Text3 = "Wenn Sie den Netz-Zugang benötigen, z.B. für SAP, wenden Sie sich bitte an die IT AbteilunG" + $crlf + $crlf
EndIf

$Text2 = "Sie sind " + $nicht + "mit der Domäne 'MDE' verbunden" + $crlf + $crlf
    
$Message = $Text1+
           $Text2+
           $Text3+
           $Text4+
           $Datum+
           $Zeit+
           $OS+
           $Build+
           $CSD+
           $CPU+
           $MHz+
           $Kix+
           $Domain+
           $LogonServer+
           $UserID+
           $Level+
           $FullName+
           $Workstation+
           $NodeAddress+
           $IPAddress+
           $SID+
           $crlf+
           $Text5

MessageBox($Message,$Titel,64,20)

;-- ZuweisunG der Ressourcen ------------------------------------------------------------------------

$i = 0

Do   
   $Group = EnumGroup($i)
   ? $Group
   $i = $i+1
Until Len($Group) = 0   

?"Delete *"
Use "*" /DELETE /PERSISTENT   ; Release all Drive Resources  
?@Error 

?"Delete Z"
Use Z: /DELETE                ; Release LOGON Drive  
?@Error 

?"Home"
?"Drive allocation H:"    
Use H: $H
?@Error

?"Public" 
Use P: $P
?@Error 

$RC = InGroup("EDV")
?"EDV"
?$RC
If $RC
   ?"Drive allocation I: Z:"    
;   Use I: "\\App_Server\E_D_V"  ; <=== works
   Use I: $I                     ; <=== works not!
   ?@Error 
   Use Z: $Z
   ?@Error 
EndIf

$RC = InGroup("Personal")
?"Personal"
?$RC
If $RC
   ?"Drive allocation"        
   
EndIf

$RC = InGroup("Controlling")
?"Controlling"
?$RC
If $RC
   ?"Drive allocation"        

EndIf

$RC = InGroup("Buchhaltung")
?"BuchhaltInG"
?$RC
If $RC
   ?"Drive allocation"        

EndIf

$RC = InGroup("Finanzen")
?"Finanzen"
?$RC
If $RC
   ?"Drive allocation"        

EndIf

$RC = InGroup("Lager")
?"Lager"
?$RC
If $RC
   ?"Drive allocation"        

EndIf

$RC = InGroup("VID")
?"VID"
?$RC
If $RC
   ?"Drive allocation"        

EndIf

$RC = InGroup("ADM")
?"ADM"
?$RC
If $RC
   ?"Drive allocation"        

EndIf

$RC = InGroup("Marketing")
?"Marketing"
?$RC
If $RC
   ?"Drive allocation"        

EndIf

$RC = InGroup("Eventmanagement")
?"Eventmanagement"
?$RC
If $RC
   ?"Drive allocation"        

EndIf

$RC = InGroup("Grafik")
?"Grafik"
?$RC
If $RC
   ?"Drive allocation"        

EndIf

$RC = InGroup("Doku")
?"Doku"
?$RC
If $RC
   ?"Drive allocation U:"
   Use "U:" $U /user:mmb\germany /password:synthes
   ?@Error 
EndIf

;-- Ende --------------------------------------------------------------------------------------------

Exit
 

---

Hope that helps

Peter

code:

---

 ;-- ZuweisunG der Ressourcen ------------------------------------------------------------------------

$i = 0
Do 
	$Group = EnumGroup($i)
	? $Group
	$i = $i+1
Until Len($Group) =  0 

---