Hope This Helps

Problem:

An einem PC sollen per Skript (Logon-Skript) die Outlook-Mailsignatur entfernt werden.

Lösung:

Dieses Skript setzt die Mail-Signatur von Outlook auf "leer", sowohl bei "neue Nachricht" als auch bei "Antworten.."

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()

Set objSelection = objWord.Selection
Set objEmailOptions = objWord.EmailOptions

Set objSignatureObject = objEmailOptions.EmailSignature

objSignatureObject.NewMessageSignature = ""
objSignatureObject.ReplyMessageSignature = ""

set objSignatureObject = nothing
set objEmailOptions = nothing
set objSelection = nothing
set objDoc = nothing
set objWord = niothing

Problem:

Man möchte wissen, welcher Benutzer sich wann das letzte mal an der AD angemeldet hat.

Lösung:

Das nachfolgende Skript erzeugt eine Datei c:\lastlogogn.txt. In dieser wird der Benutzer inkl. OU und das letzte Anmeldedatum gespeichert.
Die Daten sind mittels Semikolon (;) getrennt und können so einfach in Excel importiert werden.

Benutzer dei ein Logon-Datum vom 01.01.1601 haben sind deaktiviert und können so einfach herausgefiltert werden!

Der Pfad und der Name des Logs kann im Skript geändert werden. Hier gibt es eine Variable:
logPfad = "C:\lastlogon.txt"

Diese einfach nach Wunsch ändern!

Download : lastlogon.zip

Locate Clone für Windows

Locate unter UNIX legt eine Datenbank an und indiziert alle Dateien.
Locateclone legt eine Datei C:\Locate.db an in der alle Dateien von C:\ D:\ E:\ aufgeführt sind.

Der Skriptinterpreter sollte auf cscript festgelegt werden.
Das Skript wird am besten ins System32 Verzeichnis kopiert (oder die Umgebungsvariablen angepasst)
Die Laufwerke können direkt im Quellcode des Skriptes angepasst werden.

Interpreter umstellen : C:\cscript //H:cscript

Download : locate.zip

Erstellt eine Datei Net.txt im Benutzerverzeichnis C:\Dokumente und Einstellungen\Benutzerkennung in der alle Netzlaufwerke und Netzwerkdrucker gesichert sind.

Spielt das Backup bei Bedarf auch zurück.

Download : Backup_Net.zip

Features :

- Backup
-- Netzlaufwerke
-- Drucker

- Restore
-- Netzlaufwerke
-- Drucker

Benötigte Objekte :

Dim ObjWsh : Set ObjWsh = CreateObject("WScript.Shell")

Der Aufruf erfolgt durch :

ProductKey(ObjWsh.RegRead("HKLM\Software\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

Funktion :

Function ProductKey(REG_BINARY) ' von Base24
If (REG_BINARY(0) - 1) = UBound(REG_BINARY) Then ' Gültig ?
Const CHARS = "BCDFGHJKMPQRTVWXY2346789"
Dim strPK, i, j, k

For i = 24 To 0 Step -1
k = 0
For j = 66 To 52 Step -1
k = k * 256 Xor REG_BINARY(j)
REG_BINARY(j) = k \ 24 ' Base24
k = k Mod 24
Next

strPK = Mid(CHARS, k + 1, 1) & strPK
If CBool(i) And ((i Mod 5) = 0) Then strPK = "-" & strPK
Next
End If

ProductKey = strPK
End Function

Benötigte Objekte :

Dim ObjWsh : Set ObjWsh = CreateObject("WScript.Shell")

Aufruf :

PID_KEY = die Variable des Registry Schlüssel der überprüft werden soll.

If CheckKey(PID_KEY) = true then

Funktion liefert True/False :

Function CheckKey(Key)
On Error Resume Next
Dim Dummy
Dummy = ObjWsh.RegRead(Key)
If Dummy = "" then
CheckKey = false
Else
CheckKey = true
End If
End Function