Hope This Helps

'************************************************************
'
' Datei: wmi-ping.vbs
'
' Gibt 'kurzfristig' zurück, ob ein PC erreichbar ist.
'
'************************************************************

Option Explicit

Dim Tst, ZielPC
ZielPC = "192.168.100.11"

Tst = Timer

' If WMIpingOK( ZielPC ) = False Then
If not WMIpingOK( ZielPC ) Then
MsgBox ZielPC & vbCRLF & vbCRLF & "ist momentan nicht erreichbar!"& vbCRLF & vbCRLF & "Später noch einmal versuchen.", , Timer - Tst & " - " & WScript.ScriptName
WScript.Quit
End If

MsgBox ZielPC & vbCRLF & vbCRLF & "ist jetzt erreichbar!", , Timer - Tst & " - " & WScript.ScriptName

WScript.Quit


' Aufruf z.B.: If not WMIpingOK( ZielPC ) Then MsgBox ZielPC & " ist nicht erreichbar." : WScript.Quit

Dim objPing, objStatus
WMIpingOK = True
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & PCName & "'")
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
WScript.Echo("PCName " & PCName & " is not reachable")
WMIpingOK = False
End If
Next
Set objPing = Nothing
End Function ' WMIpingOK( PCName )

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

Problem

Man hat zwei Daten in einer Excel-Tabelle und möchte gerne die Differenz in Monate anzeigen z.B.:

01.08.2004 - 01.03.2007 = Monate??

Lösung

Folgende Formel berechnet einen die Monatsdifferenz aus:
=DATEDIF(A$4;B$4;"M")

Wobei im Feld A4 das erste Datum und im Feld B4 das zweite stehen muß - kann natürlich beliebig angepaßt werden!

Das nachfolgende Makro für Excel überprüft und legt ggf. einen Ordner mit ensprechenden Monatsnamen und Unterordner an und öffnet das "Speichern unter"-Dialogfeld

ordner = MonthName(Month(Date))

MsgBox ordner

pfad = "e:\filme\" & ordner

MsgBox pfad

Datei = InputBox("Bitte Dateinamen eingeben", "Dateinamen angeben", "test
xls")

If Dir(pfad, vbDirectory) = ordner Then _

MsgBox "Verzeichnis existiert bereits" Else _

MkDir pfad

ActiveWorkbook.SaveAs pfad & "\" & Datei

Möchten Sie bspw. das Makro "Test_Makro" über die Tastenkombination [Strg] + [t] starten, dann können Sie dies mit dem OnKey-Befehl dann gehen Sie wie folgt vor:

Public Sub starten()
'Das Makro Test_Makro mit [Strg] + [t] starten
Application.OnKey "^t", "Test_Makro"
End Sub

Die Tastencodes für die einzelnen Tasten entnehmen Sie bitte der nachfolgenden Tabelle:



Quelle : http://www.excel-inside.de/.../tastencodes-fuer-die-funktion-onkey.html