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

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

Jeder Admin einer Domäne ist interessiert an den aktuellen Rechner Daten in seinem Netz. Aus diesem Grund habe ich vor drei bis vier Jahren mit Kix begonnen Skripte zu schreiben. Ich habe hier ein Kix Skript für die Anmeldung gebastelt, welches mir beim Login der User die Daten, der Rechner und die Infos wer sich An- bzw. Abgemeldet hat, in zwei Log-Files schreibt. Je eine für die Rechner Daten und eine für die Anmeldeinformationen.
Somit habe ich immer aktuelle Daten über die Konfiguration meiner Rechner im Netz und habe für jeden Tag eine Datei mit den An- und Abmeldungen. Ein weiterer Vorteil besteht darin das ich nun auch kontrollieren kann was alles an Software im Netz eingesetzt wird.

Was macht dieses Skript alles:

- verbinden und trennen von Netzwerk Freigaben
- verbinden und trennen von Netzwerk Druckern (Druckwarteschlangen auf Domänen Rechnern oder Servern)
- erfassen aller Benutzer An- und Abmeldungen
(für die Abmeldung ist ein zweites Skript mit gleichem Inhalt notwendig welches unterhalb der >>Login.kix<< steht)
- erstellen einer Datei für Alle An- und Abmeldungen pro Tag
- erfassen aller Rechner von denen sich angemeldet wird (nur Domänen Rechner)
- was wird erfasst: Harware (CPU, Betriebssystem, NetBios Name, RAM, MAC Adresse, IP Adresse)
Software (Alle installierten Programme sowie Patche)

Wobei zu sagen bleibt daß dies bei weitem nicht alles ist was mit Kix möglich ist.

So nun fangen wir mal an

Als erstes laden wir uns mal das aktuelle <a href="http://www.kixtart.org/binary/distrib/KiX ... Paket</a> von <a href="http://www.kixtart.org/&quot;&gt;Kixtart. ...; herunter. Derzeitig ist die aktuelle Version 4.51. Nach dem entpacken der Datei benötigen wir erstmal nur die Datei "Kix32.exe" welche wir uns in einen neuen Ordner auf unserer Platte kopieren.
In diesem Ordner erstellen wir eine neue Datei welche wir "login.kix" nennen.

Diese Datei öffnen wir nun mit dem Notepad oder einem beliebigen anderen Editor, Tipp: ich würde die Endung .kix direkt dem Editor zuordnen denn beim arbeiten wird doch öfters mal getestet und dann kann man die Datei mit einem einfachen Doppelklick wieder bearbeiten.

Um unser Skript später zu testen ziehen wir per Drag and Drop unser Skript auf die kix32.exe oder direkt in der DOS Eingabeauffordung
mit "kix32.exe login.kix".

Zur Funktion:


Bereich Variablen

Hier werden die jeweiligen Servernamen gesetzt. In den meisten Fällen wird zwar alles auf einem einzigen Server durchgeführt, sollte es jedoch eine größeres LAN mit mehreren Servern sein, kann es durch aus Sinn machen die einzelnen Funktionen (File-, Druckserver, etc.) auf verschiedene Maschinen zu verteilen


Bereich Netzlaufwerke

Als erstes werden alle vorhandenen Netzlaufwerke getrennt, ganz klar erstmal reinen Tisch machen. Anschließend werden vom Fileserver die Freigaben Benutzer und / oder Gruppen bezogen gemappt. Sollte es mal einen Account "Gast" geben, was ich ja kaum glaube, dann soll dieser nur das Laufwerk "Public" gemappt bekommen. Aus diesem Grund wird direkt nach dem Mapping der Standard Block übersprungen "goto EndSharing" und an der Sprungmarke <:EndSharing> mit dem Skript fortgefahren.
Etwas spezielles ist noch die Freigabe <use z: "\\"+$Fileserver+"\"+@userid+"$">. Hier wird für jeden User ein individuell eine Freigabe, auf die nur er Zugriff hat, gemappt. Ich Verbinde mit dieser Funktion für jeden User ein persönliches Laufwerk, auf welchen er persönliche Dinge ablegen kann. Durch das $ hinter der Freigabge wird diese als nicht sichtbar deklariert und wird beim browsen in der Netzwerk Umgebung auf den Servern nicht angezeigt.


Druck Warteschlangen verbinden

Wenn ich auf dem einem Server Drucker Freigegeben habe, werden diese hier verbunden. Da alte Drucker, welche nicht mehr vorhanden sind, nicht automatisch auf den Clients gelöscht werden, kann ich die Löschung auch per Skript vornehmen. Hier wird Beispielhaft ein nicht mehr vorhandener Laser Drucker von den Clients gelöscht. Anschließend werden noch zwei weitere Drucker verbunden. Die Druckertreiber werden in der Regel automatisch vom Server auf die Clients übertragen. Wenn sich die Clients das erste mal mit dem Server verbinden dauert die Anmeldung etwas länger da die Druckertreiber komplett mit übertragen werden müssen. Bei weiteren Anmeldungen geht der Anmeldevorgang dann zügiger von statten.


Bereich Hardware

Kix stellt einige Variablen zur Verfügung, welche Informationen über das System enthalten. Diese Variablen an einem beginnenden @ Zeichen (Bsp.: @CPU) zu erkennen. Hier verweise ich auf die Dokumentation "Kix2010.doc" welche im Download enthalten ist. Die Hardware Informationen sind bis auf die IP-Adresse (@IPADRESS0) selbsterklärend. Bei @IPADRESSx muß das x durch einen Wert zwischen 0 und 3 ersetzt werden. Dieser gibt an welche IP-Adresse angezeigt werden soll. Ich habe mich in diesem Skript auf die erste Adresse beschränkt da es leider nur eine Möglichkeit gibt die MAC Adresse der ersten NIC anzuzeigen. Die einzelnen Blöcke der IP-Adresse werden mit führenden Leerzeichen dargestellt (z.B. 192.168. 2. 12). Wer dieses umgehen möchte, da die Daten eventuell weiterverarbeitet werden sollen, der sollte sich einmal den Befehl Split und Element anschauen. Hiermit ist es möglich die Leerzeichen zu entfernen. Ich habe diesen Code aus dem Skript rausgelassen, habe ihn jedoch am Ende der Doku angefügt. Diesen Code bei Bedarf mit der Stelle mit der Ausgabe der IP-Adresse ersetzen.


Bereich Software

Um zu erfahren welche Software installiert ist, liest das Skript die Registry Einträge aus dem Pfad "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" aus. Wie hier zum auslesen der Software, ist es auch möglich eigene Registry Einträge zu erstellen, auszulesen, zu ändern oder zu löschen. Ich hatte diese einmal genutzt um in Zeiten wo es noch keinen SUS bzw. WSUS gab erfahren ob Microsoft Patche installiert sind (Jaja die guten alten Würmer). Bitte in der Doku nach "DELKEY, DELVALUE, ENUMKEY, ENUMVALUE, KEYEXIST, READTYPE, READVALUE, WRITEVALUE" suchen.


Bereich Anmeldung und Abmeldung

Hier wird lediglich zu Beginn geschaut, ob es für den aktuellen Tag bereits eine Login Datei gibt. Wenn die Datei noch nicht existiert wird zusätzlich zu den Anmeldeinformationen ein Header geschrieben, damit die Datei übersichtlicher wird. Auch hier werden wieder System Variablen welche Kix zu Verfügung stellt angewendet um Informationen zu erhalten. In meinem Beispiel wird für jeden Tag eine neue Login Datei generiert. In kleineren Domänen könnte man sich auch auf eine Datei Pro Woche bzw. Pro Monat beschränken. Hierfür muß lediglich der Datei name angepasst werden (z.B. Anmeldungen "+" @YEAR+"."+@MONTHNO+".TXT" für eine Datei Pro Monat).

Für die Abmeldung wird der gleiche Code verwendet wie für die Anmeldung, wobei zu beachten ist das in der Zeile <? "¦"$user"¦ "$client" ¦ "@DATE" ¦ "@TIME" ¦ "$lserver" ¦ i ¦"> das kleine i durch ein o ersetzt wird. Es ist natürlich möglich hier einen x-beliebigen Begriff für Login und Logoff einzusetzen.


Wo setze ich nun die Skripte ein und wie aktiviere ich diese?

Die drei Dateien kix32.exe, login.kix und die logoff.kix kopieren wir in die NETLOGON Freigabe in unserer Domäne. Jetzt erstellen wir noch eine Gruppenrichtlinie die für alle User greift. Am besten eine eigene OU a la "Firmen User" erstellen und alle User Konten hierher verschieben wenn noch nicht geschehen. Für diese OU eine GPO erstellen. In dieser GPO folgende Eigenschaften eintragen.
- Benutzerkonfiguration -> Windows-Einstellungen -> Skripts (Anmeldn/Abmelden)
-Anmelden-
- Skriptname = "\\DeinDomänenname\SYSVOL\DeinDomänenname\scripts\kix32.exe"
- Skriptparameter "login.kix"
-Abmelden-
- Skriptname = "\\DeinDomänenname\SYSVOL\DeinDomänenname\scripts\kix32.exe"
- Skriptparameter "logoff.kix"

So jetzt nur noch speichern der GPO und anschließen testen.
Wenn man nur das Anmeldeskript benötigt (warum auch immer) kann man das Skript auch für jeden User in den Benutzereinstellungen auf der Reiterkarte Profil einrichten ("kix32.exe login.kix"). Zum testen kann man das Skript auch erstmal in einem DOS Fenster laufen lassen um zu prüfen ob alles einwandfrei funktioniert.

Hier nochmal der Link zur offiziellen Kixtart Seite http://www.kixtart.org

So das war es erstmal soweit von mir, ich denke jetzt schickts auch. Ich habe in diesem Skript nicht alles umgesetzt was möglich ist, lediglich die Dinge welche bei mir aus der Praxis heraus wichtig sind. Deshalb sollte dieses Tutorial bitte nicht als Versuch einer Komplett Dokumentation von Kix und dessen Möglichkeiten gesehen werden sondern nur als Anregung und Starthilfe für An- und Abmeldeskripte in Windows Domänen. Eine interessante Erweiterung wäre z.B. eine Erweiterung dahin, das für Lizenzpflichtige Softwarepakete ein Datei mit den aktuell installierten Lizenzen generiert wird. Naja Ihre habt bestimmt auch noch ettliche Ideen was Sinnvoll ist oder auch nicht. Ich hoffe das im Forum noch ein wenig darüber diskutiert wird damit wir alle nach kurzer Zeit mit einer optimierten Skript Lösung arbeiten können. Denn eigentlich haben wir doch alle das gleiche Ziel?

Grüße und viel Spaß beim Skripten

PS: Ich bitte um nachsehen für eventuelle Fehler, für unklare Beschreibungen und ich hoffe ich habe nichts wichtiges vergessen. Because pobody is nerfect!


!!!Die Namen für die / den Server sowie die Freigaben, User- und Gruppennamen müssen natürlich an Eure Struktur angepasst werden!!!

>>login.kix<< -- Ab hier den Inhalt markieren und in die Datei login.kix kopieren.
<font class="code">
; ### 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<<

>>Logoff.kix<<-- 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 ¦"
</font>
>>Ende Logoff.kix<<

>>Funktion zum entfernen der Leerzeichen in der IP Adresse<<

Den Code <?"IP Adresse: " @IPADRESS0> mit diesem ersetzen.

<font class="code">
; ### 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
</font>

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

; 

; 

; * 

; Variablen deklarieren 

; * 

; 

$FileServer="FileServer" 

; ### Name des Servers auf welchem sich die Freigaben befinden 

; ### alternativ kann auch natürlich auch eine IP-Adresse angegeben werden 

; 

$ProtokollServer="FileServer" 

; ### Name des Servers auf welchem die Freigabe für die Dokumentation 

; ### der An- und Abmeldungen sowie der Rechner Infos liegt 

; 

$PrintServer="FileServer" 

; ### 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("grpFibu") 

use f: "\\"+$FileServer+"\Fibu" 

endif 

if ingroup("grpITadministration") 

use z: "\\"+$ FileServer +"\admin-win" 

endif 

if ingroup ("grpMarketing") 

if m: "\\"+$ FileServer +"\marketing" 

endif 

if ingroup ("grpGef") 

use n: "\\"+$ FileServer +"\gef" 

endif 

if ingroup ("grpControlling") 

use k: "\\"+$ FileServer +"\controlling" 

endif 

if ingroup ("grpfile-sek-gf") 

use o: "\\"+$ FileServer +"\file-sek-gef" 

endif 

; ### Für weitere Freigaben einfach einen oberen Block kopieren und anfügen 

; 

; 

; 

; Netzlaufwerke Benutzer bezogen verbinden 

; 

if @userid="Administrator" 

use x: "\\"+$ FileServer +"\login$" 

;das ist die Freigabe wo die Login Protokolle abgelegt werden 

;natürlich soll diese nur der Admininstrator sehen 

endif 

; 

;Netzlaufwerk für Admin1 und Admin2 weil dies ein IT-Administrations-Laufwerk ist 

if @userid="Admin1" 

use y: "\\"+$ FileServer +"\it-administration$" 

endif 

if @userid="Admin2" 

use y: "\\"+$ FileServer +"\it-administration$" 

endif 

if @userid="Gast" 

use p: "\\"+$Fileserver+"\public" 

goto EndSharing 

endif 

; 

; 

; 

; Netzlaufwerke für jeden User verbinden 

; 

use p: "\\"+$ FileServer +"\ablage" 

use r: "\\"+$ FileServer +"\Projekte" 

use t: "\\"+$ FileServer +"\Technik" 

use u: "\\"+$ FileServer +"\"+@userid+"$" 

:EndSharing 

; 

; 

; 

; Alte Drucker löschen 

; 

;If DELPRINTERCONNECTION ("\\"+$FileServer +"\LaserJet") = 0 

;? "Alter Laserdrucker wurde erfolgreich entfernt" 

;Endif 

; 

; 

; * 

; Drucker verbinden 

; * 

;If ADDPRINTERCONNECTION ("\\"+$FileServer +"\LaserJetColor") = 0 

;? "Drucker Farblaserdrucker wurde verbunden" 

;Endif 

;If ADDPRINTERCONNECTION ("\\"+$FileServer +"\LaserZentrale") = 0 

;? "Drucker Laserdrucker Zentrale wurde verbunden" 

;Endif 

; 

; 

; * 

; Hardware Informationen auslesen 

; * 

; 

: ### Ausgabe auf die Datei "Rechnername_info.txt" umleiten anstelle des Bildschirmes 

$result=ReDirectOutput ("\\"+$FileServer +"\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 ("\\"+$FileServer +"\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("\\"+$FileServer +"\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