Passed the 70-624…

Yesterday I passed the 70-624 exam. TS: Deploying and Maintaining Windows Vista Client and 2007 Microsoft Office System Desktops.

• Deploying desktop operating systems
• Automating and customizing deployments by using scripts and answer files
• Deploying applications during and after operating system deployments
• Deploying upgrade packages
• Using Business Desktop Deployment (BDD) tools
• Using Windows Preinstallation Environment (PE)
• Upgrading existing systems

So now I will receive a new certificate from Microsoft 🙂 and i’m proud to say that i’m now Microsoft Certified Technology Specialist (MCTS): Business Desktop Deployment.

Free monitoring tool for Exchange 2000/2003

Solarwinds has a new free monitoring tool available on the website, the Exchange Monitor 1.0. This sound great, so I’ve installed it in a test environment.

Requirements:
Operating System Select a 32-bit or 64-bit edition of one of the following operating systems:
Microsoft Windows XP
Microsoft Windows Vista
Microsoft Windows Server 2003
Microsoft Windows Server 2008

 
.NET Framework Microsoft .NET Framework 2.0
Hard Drive space 10MB
Microsoft Exchange Server 2000/2003
Exchange Server Credentials Administrator-level access to the Microsoft Exchange Server
 

Ports Open the following ports to and from the Exchange Server:
135/tcp
445/tcp

       

       

Fill in the Exchange server for the Solarwinds Monitor. In our example its: srv01.e2k3.local.

PressOK

   

The first looks are great…..but let’s do some little test to wath the real monitoring! We are going to stop the Exchange Information Store manualy.

   

Great job, the monitoring tool gives a critical warning as you can see. The Exchange Information Store is not running any more…

This is realy a nice free tool to monitor the baseline information for your Exchange 2000 of 2003 environment. Can’t wait for the Exchange 2007 version 😉

Custom Recipient Policy Exchange 2003

In some environments there are users who needs a custom e-mailaddress. You can make all this custom e-mailaddresses user for user…but that’s a wast of time! Let’s make a custom Recipient Policy for the specific users.

First off all open Active Directory and open the users that needs a custom e-mailaddress. Open the tab Exchange Advanced, Custom Attributes, extensionAttribute1. Add a value in this field, so you can use this field later on…for example: User with custom address.

    

Open the Exchange System Manager, Recipients, Recipients policies. Make a new Recipient Policy.

       

Click on Modify. Here we are going to make a query to make the user selection. Go to the tab Advanced, Field, User, Custom Attribute 1, Condition (is exactly). Here we are going to add our value that we filled in earlier in Active Directory, User with custom address. Click on Add. If you want to see the selection of users within this query, you can click on Find now.

Now we are going to add a custom e-mailaddress for this user(s). Go to the tab E-mail Address (Policy). Click on the first SMTP address and click Edit.

       

Apply the custom policy. Apply this policy now. If your going to Active Directory again, you will see that the custom e-mailaddress is added to the specific user.

 

 

Create a Room Mailbox in Exchange 2007 with auto accept

We are going to add a new Room Mailbox for reserving an Meetingroom. Here we go…

       

       

Now we are going to change the mailboxcalendarsettings for this Room Mailbox to AutoAccept.

Open the EMS (Exchange Management Shell)

Set-MailboxCalendarsettings -Identity MeetingRoom1 -automateprocessing:AutoAccept

Get-MailboxCalendarSettings -Identity meetingroom1 | fl

All the users must have Read permissions to view the calendar of Meetingroom01.

Add-MailboxPermission -identity meetingroom01 -user “Domain Users” -AccessRights readpermission

Lets reserve the MeetingRoom01 on Monday.

       

       

As you can see, the organisator received an automatic e-mail from MeetingRoom01 that the appointment is accepted.

What if another person also wants to reserve this MeetingRoom01 on the same time…..watch this.

   

Exactly…the meeting is not accepted by MeetingRoom01 because there is an timeconflict!
Pretty  easy in your environment to configure this on the different room mailboxes.

      

Do you speak SMTP…?

With this little script, you can send an e-mail to the outside world without using any mailclient.

————————————————–
ehlo console
mail from: sender@domain.com
rcpt to: recipient@domain.com
data
To: recipient@domain.com
From: sender@domain.com
Subject: Test Message Mailflow

This is a message for testing the mailflow.
.
quit
————————————————–

Add custom e-mail addresses with VBS script

A collegue of mine, Alexander Carlucci, also working as an Microsoft Consultant for Ictivity, has written a VBS script to add custom e-mailaddress to Active Directory users. Let’s have a look on this script.

There are two files, addmailadres.txt and addmailadres.vbs. In the file addmailadres.txt you fill in the users with the e-mail addresses. The first collum is the SAMaccountname, the second collum is the Mailaddress. Watch the example that we are going to run….

   

addmailadres.txt:
markswinkels, admin@e2k3.nl
markswinkels, info@e2k3.nl
markswinkels, helpdesk@exchange2003.nl

addmailadres.vbs:
**Don’t forget to change the NETBIOS name in the script from e2k3 to your own domain name.
———————————————————-
‘De input van de tekstfile is comma separated
ON ERROR RESUME NEXT

Const ForReading = 1
Const ADS_PROPERTY_APPEND = 3
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objTextFile = objFSO.OpenTextFile (“.\addmailadres.txt”, ForReading)
Do Until objTextFile.AtEndOfStream
 ‘lees een regel uit de tekstfile
 strNextLine = objTextFile.Readline
   ‘zet de variabale weer op nul
 sADSPath=””
     ‘de separator is een comma
 arr = Split(strNextLine , “,”)
 arr(0)=TRIM(arr(0))
 arr(1)=TRIM(arr(1))
 ‘msgbox arr(0) & ” en ” & arr(1)
        call Writelogfile (“.\log.txt”, “TOEVOEGEN : gebruiker: ” & arr(0) & ” email: ” & arr(1) )
 ‘Zet de samaccountname om naar de Distinguishedname, dit is nodig om het mailadres te zetten
 Set WshNetwork = WScript.CreateObject(“WScript.Network”)
 sName = arr(0)
 Set oTrans = CreateObject(“NameTranslate”)
 oTrans.Init 1, “e2k3”
 oTrans.Set 3, “e2k3” & “\” & sName

 sAdsPath = oTrans.Get(1)
        ‘Voeg het mail adres toe in de AD
 msgbox “LDAP://” & sAdsPath
 Set objUser = GetObject (“LDAP://” & sAdsPath)
 objUser.PutEx ADS_PROPERTY_APPEND, “proxyAddresses”, Array(“smtp:”&Arr(1))
 ‘commit de wijziging in de AD
 objUser.SetInfo
 set objuser=nothing
        call Writelogfile (“.\log.txt”, “TOEVOEGEN : gebruiker: ” & arr(0) & ” gereed met errorcode ” & err.number & ” ” & err.description)
Loop
msgbox “klaar”

Function WriteLogFile (strLogName, strText)
‘ Deze functie probeert een entry in een logfile te schrijven. Deze logfile is door
‘ meerdere scripts te schrijven. Daartoe wordt de logfile steeds geopend en
‘ gesloten. De functie controleert of de file te openen is, zo nee dan wacht het
‘ script 500 miliseconden, waarna opnieuw geprobeert wordt het logbestand te openen.
‘ Enable error handling
On Error Resume Next
‘ Locale variabelen
 CONST ForAppending=8
  Dim objFSLog, objLogFile, strLogText, intDelayed
‘ Initialiseer het filesystemobject en de variabelen
 Set objFSLog = CreateObject(“Scripting.FileSystemObject”)
        intDelayed = -1
‘ Open de log file
    Do
        Err.Clear
        intDelayed = intDelayed + 1
            Set objLogFile = objFSLog.OpenTextFile(strLogName, ForAppending, True)
            If Err.Number <> 0 Then ‘ fout bij openen log file
                ‘ MsgBox Err.Number & ” ” & Err.Description, , “Test log B”
                WScript.Sleep (500) ‘ wacht 500 miliseconden en probeer opnieuw
            Set objLogFile = Nothing
            End If
        Loop Until Err.number = 0
‘ Heeft het script moeten wachten op de log file?
    If intDelayed <> 0 Then
        strText = strText & “, (Write to log delayed for ” & intDelayed * 500 _
                & ” milliseconds)”
    End If

‘ Maak en schrijf het log record.
        strLogText = FormatDateTime(Now(), vbShortDate) & “, ” _
                        & FormatDateTime(Now(), vbLongTime) & “, ” _
                        & WScript.ScriptName  & “, ” & strText
        objLogFile.WriteLine strLogText
‘ Sluit het logbestand
        objLogFile.Close
        Set objLogFile = Nothing
End Function
———————————————————-

Installing Exchange 2003 on Windows 2003 server

In this article we are going to install an new Exchange 2003 server. Take the following steps to perform the installation.

First off all the following pre-requisites must be installed.

       

Next step is to prepair the Forest with the commando: D:\setup /forestprep

Next step is to prepair the Domain with the commando: D:\setup /domainprep

       

   

Now we can start out installation of Exchange 2003 with the commando: D:\setup

       

       

We finshed the installation as you can see. Now we can install Service Pack 2 for Exchange 2003.