Rechner Inventarisierung, Login Skript und Login Dokumentation mit Kix und Active Directory

; ### Das Anmeldeskript soll sichtbar ausgeführt werden und das Fenster für das Skript erhält mit SETTITLE eine Bezeichnung.
; ### Hier könnte stehen der Firmenname, auch Datum und Uhrzeit oder Informationen für Mitarbeiter.
; ### Wobei diese auch mit einer MessageBox realisiert werden können.
;
SETCONSOLE("show")  
SETCONSOLE("maximized")  
SETTITLE("Anmeldeskript für Meine Domäne 2006")  
;
;
; *********************
; Variablen deklarieren
; *********************
;
$FileServer="ServerNameFileServer"   
; ### Name des Servers auf welchem sich die Freigaben befinden
; ### alternativ kann auch natürlich auch eine IP-Adresse angegeben werden
;
$ProtokollServer="ServerNameProtokollServer"  
; ### Name des Servers auf welchem die Freigabe für die Dokumentation
; ### der An- und Abmeldungen sowie der Rechner Infos liegt
;
$PrintServer="ServerNameDruckWarteSchlangen"  
; ### Name des Servers auf welchem (falls vorhanden) die Drucker
; ### eingerichtet und freigegeben sind die verbunden werden sollen
;
; **************************************
; Alle vorhandenen Netzlaufwerke löschen
; **************************************
use "*" /delete  
;
;
; ***************************************
; Netzlaufwerke Gruppen bezogen verbinden
; ***************************************
if ingroup("grpBuchhaltung")  
	use f: "\\"+$Fileserver+"\Buchhaltung"  
endif
if ingroup("grpLeitung")  
	use l: "\\"+$FileServer+"\Leitung"  
endif
; ### Für weitere Freigaben einfach einen oberen Block kopieren und anfügen
;
;
; ****************************************
; Netzlaufwerke Benutzer bezogen verbinden
; ****************************************
if @userid="Administrator"  
	use x: "\\"+$ProtokollServer+"\login$"   
	;das ist die Freigabe wo die Login Protokolle abgelegt werden
	;natürlich soll diese nur der Admininstrator sehen
endif
if @userid="Gast"  
	use p: "\\"+$Fileserver+"\public"  
	goto EndSharing
endif
;
;
; **************************************
; Netzlaufwerke für jeden User verbinden
; **************************************
use g: "\\"+$Fileserver+"\Gemeinsames"  
use s: "\\"+$Fileserver+"\Schriftverkehr"  
use v: "\\"+$Fileserver+"\Vorlagen"  
use z: "\\"+$Fileserver+"\"+@userid+"$"  
:EndSharing
;
;
; ********************
; Alte Drucker löschen
; ********************
If DELPRINTERCONNECTION ("\\"+$PrintServer+"\LaserJet") = 0  
   ? "Alter Laserdrucker wurde erfolgreich entfernt"  
Endif
;
;
; *****************
; Drucker verbinden
; *****************
If ADDPRINTERCONNECTION ("\\"+$PrintServer+"\LaserJetColor") = 0  
   ? "Drucker Farblaserdrucker wurde verbunden"  
Endif
If ADDPRINTERCONNECTION ("\\"+$PrintServer+"\LaserZentrale") = 0  
   ? "Drucker Laserdrucker Zentrale wurde verbunden"  
Endif
;
;
; *******************************
; Hardware Informationen auslesen
; *******************************
;
: ### Ausgabe auf die Datei "Rechnername_info.txt" umleiten anstelle des Bildschirmes 
$result=ReDirectOutput ("\\"+$ProtokollServer+"\login$\"+@Hostname+"_info.txt" ,1)  
;
; ### Ab jetzt werden alle Printanweisungen in die Datei "Rechnername_info.txt" ausgegeben 
  ? "Stand "@DATE" - "@TIME  
  ? ""  
  ? "*** Rechner Information ***"  
  ?"NetBIOS Name:     "@WKSTA  
  ?"Letzter Login von: "@USERID  
  ?"OS: "@PRODUCTTYPE" with "@CSD  
  ?"CPU Modell:  " @CPU  
  ?"CPU Takt:    "@MHZ " MHz"  
  ?"Speicher:    "MemorySize(0)" MB"  
  ?"IP Adresse:  " @IPADRESS0  
  ?"MAC Adresse: "@ADDRESS  
  ?""  
;
; *******************************
; Software Informationen auslesen
; *******************************
;
; ### die installierte Software wird anhand der Uninstall Informationen der Registry ausgelesen, es wird
; ### solange gelesen bis im Reg Pfad keine Einträge mehr vorhanden sind, durch den Error wird dann die
; ### Schleife zur Sprungmark :Login verlassen

;
  ?"*** installierte Software ***"   
$Index = 0
:Loop1
  $KeyName =   EnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $Index)  
  If @ERROR = 0
    Goto DisplayCheck
    Else
      Goto Login
  EndIf
  :DisplayCheck
  $Displayname =   ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$Keyname","DisplayName")  
  If @ERROR = 0
    $Index = $Index + 1
    ?$Displayname    
    Goto Loop1
  Else
    Goto Login
  endif
:Login
;
; ****************************
; Login Informationen pro User
; ****************************
;
; ### hier wird die Ausgabe wieder auf die Protokoll Datei für den jeweiligen Tag umgeleitet
$result=ReDirectOutput ("\\"+$ProtokollServer+"\login$\Anmeldungen " + @YEAR + "."+ @MONTHNO + "." + @MDAYNO + ".txt" ,0)  
;
; ### jetzt wird geprüft ob die Datei bereits existiert, wenn ja wird der Header nicht noch einmal in die Datei geschrieben
; ### da dieser bereits vorhanden ist.
$logExist=Exist("\\"+$ProtokollServer+"\login$\Anmeldungen " + @YEAR + "."+ @MONTHNO + "." + @MDAYNO + ".txt")  
if $logExist = 0
  ? "+-------------------------------------------------------------------------------------------------+"  
  ? "¦Benutzername ¦ Client               ¦ Datum      ¦ Uhrzeit  ¦ Anmeldeserver    ¦ i=login o=logout¦"  
  ? "¦-------------+----------------------+------------+----------+------------------+-----------------¦"  
endif 
$user = @userid+left("             ",(13-len(@userid)))  
$client = @WKSTA+left("                   ",(20-len(@WKSTA)))  
$lserver = @LSERVER+left("                ",(18-len(@LSERVER)))  
$lserver = right($lserver,(len($lserver)-2))
  ? "¦"$user"¦ "$client" ¦ "@DATE" ¦ "@TIME" ¦ "$lserver" ¦ i               ¦"  
Exit
</font>
>>Ende Login.kix<<

<u><b>>>Logoff.kix<<</u></b>-- Ab hier den Inhalt markieren und in die Datei logoff.kix kopieren.
<font class="code">  
; *****************************
; Logoff Informationen pro User
; *****************************
;
$result=ReDirectOutput ("\\"+$ProtokollServer+"\login$\Anmeldungen " + @YEAR + "."+ @MONTHNO + "." + @MDAYNO + ".txt" ,0)  
$logExist=Exist("\\"+$ProtokollServer+"\login$\Anmeldungen " + @YEAR + "."+ @MONTHNO + "." + @MDAYNO + ".txt")  
if $logExist = 0
	? "+-------------------------------------------------------------------------------------------------+"  
	? "¦Benutzername ¦ Client               ¦ Datum      ¦ Uhrzeit  ¦ Anmeldeserver    ¦ i=login o=logout¦"  
        ? "¦-------------+----------------------+------------+----------+------------------+-----------------¦"  
endif 
$user = @userid+left("             ",(13-len(@userid)))  
$client = @WKSTA+left("                   ",(20-len(@WKSTA)))  
$lserver = @LSERVER+left("                ",(18-len(@LSERVER)))  
$lserver = right($lserver,(len($lserver)-2))
? "¦"$user"¦ "$client" ¦ "@DATE" ¦ "@TIME" ¦ "$lserver" ¦ o               ¦"  

<?"IP Adresse:  " @IPADRESS0>

; ### Dieser Code entfernt Leerzeichen aus der @IPADRESS0
$a = 0
$Myarray = Split(@IPADDRESS0 , " ")  
For Each $Element In $MyArray
 if $a = 0  
    $IP0 = $Element
  endif
  if $a= 1  
    $IP1= $Element
  endif
 if $a= 2  
    $IP2= $Element
   endif
  if $a = 3  
    $IP3 = $Element
  endif
  if $a = 4  
    $IP4 = $Element
  endif
  if $a = 5
    $IP5 = $Element
  endif
 if $a = 6  
    $IP6 = $Element
  endif
  if $a= 7  
    $IP7 = $Element
  endif
 if $a= 8  
    $IP8 = $Element
   endif
  if $a = 9  
    $IP9  = $Element
  endif
  if $a = 10
    $IP10 = $Element
  endif
   $a = $a + 1
Next
 ?"IP Adresse:  " + +$IP0 + $IP1 + $IP2 + $IP3 + $IP4 + $IP5 + $IP6 + $IP7 + $IP8 + $IP9 + $IP10