Set objOU = GetObject("LDAP://OU=Finance,DC=fabrikam,DC=com")
objOU.Filter = Array("user")
For Each objItem in objOU
Wscript.Echo objItem.CN
Wscript.Echo objItem.msExchHomeServerName
Next
順便給您一些其他與 Exchange 相關的內容,如果有需要就拿去用吧:
Set objOU = GetObject("LDAP://OU=Finance,DC=fabrikam,DC=com")
objOU.Filter = Array("user")
For Each objItem in objOU
Wscript.Echo objItem.CN
Wscript.Echo objItem.mailNickname
Wscript.Echo objItem.msExchHomeServerName
Wscript.Echo objItem.homeMDB
Wscript.Echo objItem.mdbUseDefaults
Next