Hi,
here is the more or less tested code:
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 ![[Smile]](images/icons/smile.gif)
Peter
