Exchange 2003 restart slow!!

Hello Friends..!
Ok, here is once again we have something going on in our head, yep, a long long long wait to get our beloved exchange server restarted..
This happens in cases where exchange 2003 is on Domain Controller.
Reason that i have noticed for delay in restart is coz of services, system wants to stop services like Microsoft Exchange System Attendant, IIS Admin Service, Netlogon..
What we can do here is stop these services prior to the process of shutdown, we will do this using a .vbs file, yes a VBScript.
Here is the script copy and paste in notepad and "save as" filename.vbs
--------------------
servername = "localhost"
set wmi = getobject("winmgmts://" & servername)
StopService ("Microsoft Exchange System Attendant")
StopService ("IIS Admin Service")
StopService ("Netlogon")

Sub StopService (ServiceName)
wql = "select state from win32_service " & "where displayname='"& ServiceName & "'"
set results = wmi.execquery(wql)
for each service in results
if service.state = "Running" then
service.stopService
end if
next
End Sub
--------------------

NOTE: Use this script on Exchange 2003 where IIS and Exchange processes are not interdependent.

Hope this article helped you guys.