Exchange & Outlook UPDATE, Exchange Edition, February 3, 2005

Hard-working programmers solve problems, but good programmers solve their problems once by writing tools to automate repetitive tasks.

Paul Robichaux

February 2, 2005

10 Min Read
ITPro Today logo

This email newsletter comes to you free and is supported by the following advertisers, which offer products and services in which you might be interested. Please take a moment to visit these advertisers' Web sites and show your support for Exchange & Outlook UPDATE.

High Availability and DR for Your Exchange Server

Exchange Availability: The Five Fatal Flaws of Traditional Replication Systems



~~~~ Sponsor: Neverfail ~~~~ High Availability and DR for Your Exchange Server Downtime is expensive, disruptive--and unacceptable. Neverfail's easy to use high availability software solutions enable companies of all sizes to keep their users continuously connected to working applications, regardless of the cause of the failure. Neverfail's "cluster-class" solution ensures server reliability, application availability and data protection--at a fraction of the cost and complexity of traditional alternatives. Learn how to keep your users connected to your Exchange Server, no matter whether a failure occurs in the operating system, a hardware component, a software application, or somewhere within the network. To view a demo or access a free whitepaper:


Editor's note: Share Your Exchange Discoveries and Get $100 Share your Exchange Server and Outlook discoveries, comments, or problems and solutions for use in the Exchange & Outlook Administrator print newsletter's Reader to Reader column. Email your contributions (500 words or less) to [email protected]. We edit submissions for style, grammar, and length. If we print your submission, you'll get $100.



WScript.Echo "Computer: " & strComputer WScript.Echo "


Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootMicrosoftExchangeV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Exchange_DSAccessDC", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "ConfigurationType: " & objItem.ConfigurationType
WScript.Echo "Description: " & objItem.Description
WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
WScript.Echo "IsFast: " & objItem.IsFast
WScript.Echo "IsInSync: " & objItem.IsInSync WScript.Echo "IsUp: " & objItem.IsUp
WScript.Echo "LDAPPort: " & objItem.LDAPPort
WScript.Echo "Name: " & objItem.Name WScript.Echo "Status: " & objItem.Status
WScript.Echo "Type: " & objItem.Type
Next Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm: WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) __
& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
End Function




~~~~ Contact Us ~~~~ About the newsletter -- [email protected]
About technical questions --
About product news -- [email protected]
About your subscription -- [email protected]
About sponsoring UPDATE -- [email protected] >


This email newsletter is brought to you by Exchange & Outlook Administrator, the leading publication for IT professionals managing, securing, optimizing, and migrating Exchange and Outlook. Subscribe today!

Manage Your Account

You are subscribed as #EmailAddr#.

You received this email message because you subscribed to this newsletter on our Web site. To unsubscribe, click here:

View the Windows IT Pro Privacy policy at

Windows IT Pro a division of Penton Media Inc.
221 East 29th Street, Loveland, CO 80538,
Attention: Customer Service Department
Copyright 2005, Penton Media, Inc. All Rights Reserved.

Sign up for the ITPro Today newsletter
Stay on top of the IT universe with commentary, news analysis, how-to's, and tips delivered to your inbox daily.

You May Also Like