DHCP Server is not serving clients after SBS SP1 update

Q: My SBS servers DHCP server is not serving IP addresses to my clients since I updated to SBS SP1

A: Turns out that ISA 2004 protetects the internal firewall by default and that Internal network is not set up with the Broadcast address .255. This means that the DHCP requests never reaches the server.

Go to Configuration – Networks – Networks – Internal and edit it to include 255

Source

Manuyally registering proofing tools in Windows

1. Copy the .Dll and .Lex file for the language you want to add to c:Program FilesCommon FilesMicrosoft SharedProof

2. Add a registry hive pointing to the cossrect engine and lexicon for a specific language code:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINESOFTWAREMicrosoftShared ToolsProofing ToolsSpelling2068]

[HKEY_LOCAL_MACHINESOFTWAREMicrosoftShared ToolsProofing ToolsSpelling2068Normal]
“Dictionary”=”C:\PROGRA~1\COMMON~1\MICROS~1\Proof\NAME.LEX”
“Engine”=”C:\PROGRA~1\COMMON~1\MICROS~1\Proof\NAME.DLL”

[HKEY_LOCAL_MACHINESOFTWAREMicrosoftShared ToolsProofing ToolsSpelling2068NormalClients]
@=”C:\PROGRA~1\COMMON~1\MICROS~1\Proof\NAME.DLL”

 

Windows 2003 Server DNS fails to resolve some querys

When using Windows Server 2003 DNS some dns querys may fail because the Windows Server 2003 DNS Service is using Extension Mechanism which used UDP packets larger than 512 bytes. Some firewalls does not support this (so far I have seen this on Cisco PIX).

The Extension Mechanisms for DNS can be disabled using DNSCMD in Windows Support Tools

   dnscmd /config /enableednsprobes 0

Q832223: Some DNS Name Queries Are Unsuccessful After You Upgrade Your DNS Server to Windows Server 2003

More info on Extension Mechanisms for DNS

Using Extension Mechanisms for DNS (EDNS0)

Renaming Outlook System folders Part 2 (VBA Macro)

The Microsoft Outlook 2000 VBA macro, which can be used to change the Outlook default folder names.
Open the VBA macro with notepad and copy the code into the clipboard.

Open Outlook 2000 and select ‘Tools’, ‘Macros’, ‘Visual Basic Editor’ to open the Outlook 2000 VBA editor.
Expand the ‘ThisOutlookSession’ in the left-hand project window and paste the code into empty the right-hand window.

Select ‘Tools’, ‘References’ in the Outlook 2000 VBA editor and make sure ‘Microsoft CDO 1.21’ is selected.
Note that Outlook 2000 does not install CDO 1.21 by default. If you don’t see it in the Outlook VBA references
dialog CDO 1.21 might not be installed on your machine. If so, you have to run the Office 2000/Outlook 2000 setup
from CDO-ROM again and make sure CDO 1.21 is selected.

Close the Outlook 2000 VBA editor to save the changes.

To run the Outlook 2000 VBA macro open Outlook and chose ‘Tools’, ‘Macro’, ‘Macros’, select the desired macro and hit ‘Run’


Option Explicit

‘THIS CODE AND INFORMATION IS PROVIDED “AS IS” WITHOUT
‘WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED,
‘INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES
‘OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR
‘PURPOSE

‘——————————————————————————
‘ FILE DESCRIPTION: The macro ChangeFolder changes the name of all Outlook
‘ Default Folders to the language of your choice.
‘ AUTHOR: Siegfried Weber, http://www.cdolive.com
‘ VERSION INFO: Ver 1.0, 14 Jan 2000

‘ Copyright (c) 2000, free public use permitted with attribution
‘——————————————————————————

Sub ChangeFolder()

‘ Initialize error handling
On Error Resume Next

‘ MAPI property to access Drafts folder
Const CdoPR_Drafts = &H36D70102

‘Tyska
‘Const FOLDER_CALENDAR = “Kalender”
‘Const FOLDER_CONTACTS = “Kontakte”
‘Const FOLDER_DELETEDITEMS = “Gelöschte Objekte”
‘Const FOLDER_INBOX = “Posteingang”
‘Const FOLDER_JOURNAL = “Journal”
‘Const FOLDER_NOTES = “Notizen”
‘Const FOLDER_OUTBOX = “Postausgang”
‘Const FOLDER_SENTITEMS = “Gesendete Objekte”
‘Const FOLDER_TASKS = “Aufgaben”
‘Const FOLDER_DRAFTS = “Entwürfe”

‘Svenska
Const FOLDER_CALENDAR = “Kalender”
Const FOLDER_CONTACTS = “Kontakter”
Const FOLDER_DELETEDITEMS = “Borttaget”
Const FOLDER_INBOX = “Inkorgen”
Const FOLDER_JOURNAL = “Journal”
Const FOLDER_NOTES = “Anteckningar”
Const FOLDER_OUTBOX = “Utkorgen”
Const FOLDER_SENTITEMS = “Skickat”
Const FOLDER_TASKS = “Uppgifter”
Const FOLDER_DRAFTS = “Utkast”

‘Norska
‘Const FOLDER_CALENDAR = “Kalender”
‘Const FOLDER_CONTACTS = “Kontakter”
‘Const FOLDER_DELETEDITEMS = “Slettede Elementer”
‘Const FOLDER_INBOX = “Innboks”
‘Const FOLDER_JOURNAL = “Logg”
‘Const FOLDER_NOTES = “Notater”
‘Const FOLDER_OUTBOX = “Utboks”
‘Const FOLDER_SENTITEMS = “Sendte Elementer”
‘Const FOLDER_TASKS = “Oppgaver”
‘Const FOLDER_DRAFTS = “Kladd”

‘Danska
‘Const FOLDER_CALENDAR = “Kalender”
‘Const FOLDER_CONTACTS = “Kontakter”
‘Const FOLDER_DELETEDITEMS = “Borttaget”
‘Const FOLDER_INBOX = “Inkorgen”
‘Const FOLDER_JOURNAL = “Journal”
‘Const FOLDER_NOTES = “Anteckningar”
‘Const FOLDER_OUTBOX = “Utkorgen”
‘Const FOLDER_SENTITEMS = “Skickat”
‘Const FOLDER_TASKS = “Uppgifter”
‘Const FOLDER_DRAFTS = “Utkast”

‘Engelska
‘Const FOLDER_CALENDAR = “Calendar”
‘Const FOLDER_CONTACTS = “Contacts”
‘Const FOLDER_DELETEDITEMS = “Deleted Items”
‘Const FOLDER_INBOX = “Inbox”
‘Const FOLDER_JOURNAL = “Journal”
‘Const FOLDER_NOTES = “Notes”
‘Const FOLDER_OUTBOX = “Outbox”
‘Const FOLDER_SENTITEMS = “Sent Items”
‘Const FOLDER_TASKS = “Tasks”
‘Const FOLDER_DRAFTS = “Drafts”

‘ Declare variables
Dim objSession As MAPI.Session
Dim objFolder As MAPI.Folder
Dim objInboxFolder As MAPI.Folder
Dim objFields As MAPI.Fields
Dim strEntryID As String

‘ Initialize variables
Set objSession = Nothing
Set objFolder = Nothing
Set objInboxFolder = Nothing
Set objFields = Nothing

‘ Create CDO session and logon
Set objSession = New MAPI.Session

‘ Check if CDO session created
If Not objSession Is Nothing Then

‘ CDO session logon
Err.Clear
objSession.Logon “”, “”, ShowDialog:=False, NewSession:=False

‘ Check if CDO session logon successful
If Err.Number = 0 Then

‘ Get default calendar folder
Err.Clear
Set objFolder = objSession.GetDefaultFolder(CdoDefaultFolderCalendar)

‘ Check if folder found
If Err.Number = 0 Then

‘ Rename folder
objFolder.Name = FOLDER_CALENDAR

‘ Save changes
Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Get default contact folder
Err.Clear
Set objFolder = objSession.GetDefaultFolder(CdoDefaultFolderContacts)

‘ Check if folder found
If Err.Number = 0 Then

‘ Rename folder
objFolder.Name = FOLDER_CONTACTS

‘ Save changes
Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Get default deleted items folder
Err.Clear
Set objFolder = objSession.GetDefaultFolder(CdoDefaultFolderDeletedItems)

‘ Check if folder found
If Err.Number = 0 Then

‘ Rename folder
objFolder.Name = FOLDER_DELETEDITEMS

‘ Save change
s

Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Get default inbox folder
Err.Clear
Set objFolder = objSession.Inbox

‘ Check if folder found
If Err.Number = 0 Then

‘ Rename folder
objFolder.Name = FOLDER_INBOX

‘ Save changes
Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Get default journal folder
Err.Clear
Set objFolder = objSession.GetDefaultFolder(CdoDefaultFolderJournal)

‘ Check if folder found
If Err.Number = 0 Then

‘ Rename folder
objFolder.Name = FOLDER_JOURNAL

‘ Save changes
Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Get default notes folder
Err.Clear
Set objFolder = objSession.GetDefaultFolder(CdoDefaultFolderNotes)

‘ Check if folder found
If Err.Number = 0 Then

‘ Rename folder
objFolder.Name = FOLDER_NOTES

‘ Save changes
Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Get default outbox folder
Err.Clear
Set objFolder = objSession.Outbox

‘ Check if folder found
If Err.Number = 0 Then

‘ Rename folder
objFolder.Name = FOLDER_OUTBOX

‘ Save changes
Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Get default sent items folder
Err.Clear
Set objFolder = objSession.GetDefaultFolder(CdoDefaultFolderSentItems)

‘ Check if folder found
If Err.Number = 0 Then

‘ Rename folder
objFolder.Name = FOLDER_SENTITEMS

‘ Save changes
Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Get default tasks folder
Err.Clear
Set objFolder = objSession.GetDefaultFolder(CdoDefaultFolderTasks)

‘ Check if folder found
If Err.Number = 0 Then

‘ Rename folder
objFolder.Name = FOLDER_TASKS

‘ Save changes
Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Get default inbox folder
Set objInboxFolder = objSession.Inbox

‘ Get fields collection of inbox folder
Set objFields = objInboxFolder.Fields

‘ Get drafts folder entry ID
strEntryID = objFields.Item(CdoPR_Drafts).Value

‘ Check if entry ID found
Set objFolder = Nothing
If Trim(strEntryID) <> “” Then

‘ Get default drafts folder
Set objFolder = objSession.GetFolder(strEntryID, objInboxFolder.StoreID)
End If

‘ Check if folder found
If Not objFolder Is Nothing Then

‘ Rename folder
objFolder.Name = FOLDER_DRAFTS

‘ Save changes
Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Logoff
objSession.Logoff
MsgBox “Finished changing Outlook default folder names.”, vbInformation
Else

‘ Cannot logon to CDO session, display error message
MsgBox “Could not create CDO Session. Please check if CDO 1.x is installed on this computer.” _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
Else

‘ Cannot create CDO session, display error message
MsgBox “Could not create CDO Session. Please check if CDO 1.x is installed on this computer.” _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If

‘ Tidy up
Set objSession = Nothing
Set objFolder = Nothing
Set objInboxFolder = Nothing
Set objFields = Nothing
End Sub

Renaming Outlook System folders Part 1 (VB Script)

‘ RenFldr – Rename Outlook “Special Folders”
‘ (c) Neo (n…@mvps.org)
‘ 11.11.2000, v.1.0
‘ 11.06.2002, v.1.1

‘ Test System
‘ Windows Script Host v.
‘ VBScript v.
‘ Outlook 2000 (SR1a)
‘ Windows 2000 (SP1)

‘ Change Log
‘ 11.11.2000 – Creation Date
‘ 11.06.2002 – Added support drafts folder

Const olFolderDeletedItems = 3
Const olFolderOutbox = 4
Const olFolderSentItems = 5
Const olFolderInbox = 6
Const olFolderCalendar = 9
Const olFolderContacts = 10
Const olFolderJournal = 11
Const olFolderNotes = 12
Const olFolderTasks = 13
Const olFolderDrafts = 16

Dim Engine
Dim Outlook
Dim Folder

Select Case UCase(Right(WScript.FullName, 11))
Case “WSCRIPT.EXE”
Engine = “W”
Case “CSCRIPT.EXE”
Engine = “C”
End Select

Set Args = WScript.Arguments

If Args.Count = 0 Then
DisplayHelp()
WScript.Quit
End If

If Args.Item(0) = “-?” Or Args.Item(0) = “/?” Or Args.item(0) = “?” Then
DisplayHelp()
WScript.Quit
End If

If Args.Count <> 2 Then
DisplayHelp()
WScript.Quit
End If

Set Outlook = CreateObject(“Outlook.Application”)
Set Folder = Nothing

Select Case UCase(Args.Item(0))
Case “CALENDAR”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderCalendar)
Case “INBOX”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderInbox)
Case “OUTBOX”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderOutbox)
Case “SENTITEMS”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderSentItems)
Case “DELETEDITEMS”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderDeletedItems)
Case “CONTACTS”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderContacts)
Case “JOURNAL”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderJournal)
Case “NOTES”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderNotes)
Case “TASKS”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderTasks)
Case “DRAFTS”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderDrafts)
Case Else
DisplayHelp()
End Select

If Folder Is Nothing Then
WScript.Quit
End If

Folder.Name = Args.Item(1)

Set Folder = Nothing
Set Outlook = Nothing

Sub DisplayHelp()
If Engine = “W” Then
MsgBox “RenFldr:” & vbCRLF &_
” Change Name of Default Folders” & vbCRLF & vbCRLF &_
“Usage: RenFldr Folder NewName” & vbCRLF & vbCRLF &_
” Supported values for Folder:” & vbCRLF &_
” Inbox” & vbCRLF &_
” Outbox” & vbCRLF &_
” Calendar” & vbCRLF &_
” SentItems” & vbCRLF &_
” DeletedItems” & vbCRLF &_
” Contacts” & vbCRLF &_
” Journal” & vbCRLF &_
” Notes” & vbCRLF &_
” Tasks” & vbCRLF &_
” Drafts”
Else
WScript.StdOut.WriteLine “RenFldr:”
WScript.StdOut.WriteLine ” Change Name of Default Folders” & vbCRLF
WScript.StdOut.WriteLine “Usage: RenFldr Folder NewName” & vbCRLF
WScript.StdOut.WriteLine ” Supported values for Folder:”
WScript.StdOut.WriteLine ” Inbox”
WScript.StdOut.WriteLine ” Outbox”
WScript.StdOut.WriteLine ” Calendar”
WScript.StdOut.WriteLine ” SentItems”
WScript.StdOut.WriteLine ” DeletedItems”
WScript.StdOut.WriteLine ” Contacts”
WScript.StdOut.WriteLine ” Journal”
WScript.StdOut.WriteLine ” Notes”
WScript.StdOut.WriteLine ” Tasks”
WScript.StdOut.WriteLine ” Drafts”
End If
End Sub

Additional Mailboxes

Q: I have openened aditional mailboxes in Outlook. When I remove it it is still in my folderlist but I can’t find it in Tools | Services | Exchange Server | Properties | Advanced . How can I ger rid of it?

A: Start Regedit and go to HKEY_CURRENT_USERSoftwareMicrosoftWindows NTCurrentVersionWindows Messaging SubsystemProfiles<Name of Outlook Profile>

Look through the subkeys till you find the one containing the name of the mailbox thar you want to delete. Remove that key and start Outlook.