Administration

OutlookFeiertage.vbs

' --------------------------------------------------
' FeiertageLocal.vbs
' Clientseitiges eintragen von Feiertagen in Outlook
' 15.01.2008 Wolfgang Führer
' --------------------------------------------------
 
' Const
Const olAppointmentItem = 1
Const ForAppending = 8
Const olFolderCalender = 9
' EndConst
 
Dim arrAppointmentsDate() 'array für termine datum
Dim arrAppointmentsSubject() 'array für termine text
Dim objOutlook
Dim intFrom 'ab diesem jahr
intFrom = 2008
Dim strLogName 'name des logfiles
strLogName   = "FeiertageLocal.log"

Outlook Feiertage

Kaum ist der Jahreswechsel vorbei, fällt Outlook unangenehm auf. Die aktuellen Feiertage sind nicht mehr eingetragen und müssen aktualisiert werden. Am sinnvollsten macht man das mit einem Script, dass die Feiertage in alle Mailboxen auf dem Exchange-Server einträgt. Bewährt hat sich da das Script von http://www.msexchangefaq.de/tools/feiertage.htm .

Rainmeter

Rainmeter ist ein kleines, nettes Tool, mit dem man sich Systeminformationen auf dem Desktop anzeigen lassen kann. Es eignet sich hervorragend dafür die Lastverteilung Virtueller PCs oder Server im Auge zu behalten.

Es gibt auch eine Menge an schönen Skins dafür, die teilweise aber sehr aufgemotzt wirken. Ich benötigte aber eine unauffällige und schlanke Variante. Da es nichts vergleichbares gab, habe ich selbst eine definiert.

SuRun

SuRun erleichtert es unter Windows XP, mit einem eingeschränkten Benutzerkonto zu arbeiten; Programme, die Administratorrechte benötigen, kann man damit leicht per Kontextmenü privilegieren.

http://kay-bruns.de/wp/software/surun/

Link Shell Extension

Shell-Erweiterung, die den Windows Explorer um Kontextmenübefehle zum Anlegen von Hardlinks, Junctions/Reparse Points und Symlinks (unter Vista) erweitert; unterstützt Drag-and-Drop. Die Hard Link Shell Extension erweitert das Explorer-Kontextmenü um spezielle Datei- und Ordnerverknüpfungen, die Windows nur auf NTFS-Laufwerken unterstützt. Nach einem Rechtsklick auf eine Datei oder ein Verzeichnis wählen Sie das Objekt mit „Pick Link Source“ aus, um andernorts mittels „Drop“ eine Verknüpfung darauf als Hard-Link oder Junction zu erstellen.

http://www.heise.de/software/download/dwl39057

ForceWSUS.cmd

::::::::::::::::::::::::::::::::::::::::::::
:: forceWSUS.cmd
:: Wolfgang Führer
:: 12.12.2007
::::::::::::::::::::::::::::::::::::::::::::
@echo off
color 71
 
:: hier bitte variablen des WSUS Servers definieren!
set SERVER=servername
set PORT=portnummer
 
call :maketime & title WSUS Integration - Start %zeit%
echo WSUS Integration
echo ----------------
echo.
 
:: Zuerst wird der WSUS Client installiert
 
call :maketime & echo %zeit% Installiere WSUS Client ...
start /wait WindowsUpdateAgent30-x86.exe /wuforce /quiet
ping 127.0.0.1 -n 30 >nul

WSUS Update beschleunigen

 

Wer als Administrator WSUS (Windows Server Update Services) betreut sucht schnell nach einem Weg den Updateprozess zu beschleunigen, denn ein Updatezyklus dauert in der Regel 24 Stunden. Das kann aber manchmal zu lange sein. Wird ein PC z.B. neu aufgesetzt oder ist neu eingekauft, so soll er in der Regel erst voll durchgepatched an den User übergeben werden.

DB_Audit_job2005.sql

/*
** ------------------------------
** database audit script SQL 2005
** job 
** mar 2005 - Wolfgang Führer
** ------------------------------
*/
 
USE [msdb]
GO
 
BEGIN TRANSACTION
DECLARE @ReturnCode INT
SELECT @ReturnCode = 0
 
IF NOT EXISTS (SELECT name FROM msdb.dbo.syscategories WHERE name=N'[Uncategorized (Local)]' AND category_class=1)
BEGIN
EXEC @ReturnCode = msdb.dbo.sp_add_category @class=N'JOB', @TYPE=N'LOCAL', @name=N'[Uncategorized (Local)]'
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
 
END
 
DECLARE @jobId BINARY(16)

DB_Audit_job2000.sql

/*
** ------------------------------
** database audit script SQL 2000
** job 
** mar 2005 - Wolfgang Führer
** ------------------------------
*/
 
 
--------------------------------
-- create daily job for audit --
--------------------------------
 
BEGIN TRANSACTION            
  DECLARE @JobID BINARY(16)  
  DECLARE @ReturnCode INT    
  SELECT @ReturnCode = 0     
IF (SELECT COUNT(*) FROM msdb.dbo.syscategories WHERE name = N'Database Maintenance') < 1 
  EXECUTE msdb.dbo.sp_add_category @name = N'Database Maintenance'

DB_Audit.sql

/*
** ----------------------------
** database audit script
** mar 2005 - Wolfgang Führer
** ----------------------------
*/
 
-------------------------------------
-- make Audit folder for later use --
-------------------------------------
USE master
exec xp_cmdshell 'c: & md "c:\program files\microsoft sql server\Audit"', no_output
 
--------------------------------------------
-- drop audit database if exist --
--------------------------------------------
IF DB_ID('DB_Audit') IS NOT NULL
BEGIN
    DROP database DB_Audit
END
go
 
--------------------------
Inhalt abgleichen