Identify the Exchange servers

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Identify the Exchange servers

Logged in as: Guest

arrSession:exec spGetSession 2,2,61100

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Identify the Exchange servers
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Identify the Exchange servers - 6/5/2008 8:04:45 PM

4scriptmoni

Posts: 208
Score: 0
Joined: 5/3/2007
Status: offline

I am trying to come up with a way to automaticly gets the avaiable exchange servers in the domain,
does anybody have anything similar to this? I looked in AD but could not find a particular parameter... maybe wmi...

_____________________________

Enterprise Microsoft Scripts
Exchange, Login/Logout Monitor,TS, Monitoring, Security, AD, etc...
http://www.felipeferreira.net

Post #: 1

RE: Identify the Exchange servers - 6/6/2008 1:27:22 AM

dm_4ever

Posts: 2665
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

Try limiting your search to this container

LDAP://CN=Microsoft Exchange,CN=Services,CN=Configuration,dc=yourdomain,dc=com

The trick would be finding the query to narrow it down to the server names here....use ADSI edit to help you out.

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to 4scriptmoni)

Post #: 2

RE: Identify the Exchange servers - 6/6/2008 2:14:49 AM

4scriptmoni

Posts: 208
Score: 0
Joined: 5/3/2007
Status: offline

Its done... Although its not that easy.
note: the Domain user with a vaild mailbox must run the script.
It will not get all exchange servers, just a single server from the user login.

Maybe someone can improve the code, or help me get all exchange servers in the domain???

'Get the Exchange Server -> only of the User Logged in  (Warning: will not get multiple Exchange Servers!)
'Author: Felipe Ferreira
'Date: 06/06/08
'Version: 1.0

Option Explicit
Dim username,userdomain,homeServer,homeMDB,cn,USERDN
Dim arrhomeS
Dim objShell : Set objShell = CreateObject("WScript.Shell")   ' Run cmds

wscript.echo "EXCHANGE SERVER = " & GetExchangeServer()
wscript.quit

'@@@@@@@@@@@@@@@@@@@@@@SUBS AND FUCNTIONS@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function GetExchangeServer()
   set cn = createobject("adodb.connection")
   cn.provider = "ADsDSOObject"
   cn.open
   getUserInfo
   USERDN = query("objectClass='user' AND sAMAccountName='" & USERNAME & "'", cn)
   checkLocalMailbox
   GetExchangeServer = homeServer
end function

sub getUserInfo()
   Dim env : set env = objShell.environment("PROCESS")    
   USERNAME = env("USERNAME")
   USERDOMAIN = env("USERDOMAIN")
   if USERDOMAIN = "" then 
       wscript.echo "You Must be in a Domain!" 
       wscript.quit    
   end if
end sub

sub checkLocalMailbox()
   homeMDB = getprop(USERDN, "homeMDB")
   if homeMDB = "" then mailboxContinue
   homeMDB = getobject("LDAP://" & USERDN).get("homeMDB")
   homeServer = getobject("LDAP://" & homeMDB).get("msExchOwningServer")
   if homeServer = "" then
       Wscript.echo "Could not get the Exchange Server, be sure the user you are login is in a domain and have a Mailbox!"
       wscript.quit
   end if
   arrhomeS = split(homeServer,"CN=")
   arrhomeS(1) =  replace(arrhomeS(1),",","")
   arrhomeS(1) =     trim(arrhomeS(1))
   'wscript.echo "EXCHANGE SERVER : " & arrhomeS(1)
   homeServer = arrhomeS(1)    
end sub

function query(where_, cn_)
   Dim rcset_ : set rcset_ = createobject("adodb.recordset")
   rcset_.open "SELECT distinguishedName FROM 'LDAP://" & USERDOMAIN & "' WHERE " & where_, cn_
   if rcset_.recordcount = 0 then quit("Active Directory search failed, so either 1) The specified Workflow Account or Exchange Domain Servers group does not exist.  2) Commonly this is due to replication delays in the Active Directory, in which case you should try again after waiting a reasonable amount of time for your topology.")
   if rcset_.recordcount > 1 then quit("Unexpected error")
   query = rcset_.fields("distinguishedName")
end function

function getprop(dn_, prop_)
   Dim o,value
   set o = getobject("LDAP://" & dn_)
   on error resume next
   value = o.get(prop_)
   on error goto 0
   if err = 0 then getprop = value
end function

_____________________________

Enterprise Microsoft Scripts
Exchange, Login/Logout Monitor,TS, Monitoring, Security, AD, etc...
http://www.felipeferreira.net

(in reply to dm_4ever)

Post #: 3

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Identify the Exchange servers

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts