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               ¦"

; ### 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