Click here to Skip to main content
Click here to Skip to main content

Check if a user has an Exchange mailbox

, 23 Sep 2003
Rate this:
Please Sign up or sign in to vote.
Check in a command file if a user has an exchange mailbox
<!-- Article Starts - DO NOT ADD HTML/BODY START TAGS--><!-- Add the rest of your HTML here -->

Introduction

This VBScript is used to check if a user has an exchange mailbox. The result is the Errorlevel variable which will be set. This script can be called in a command file. For example, you could run outlook only if the user has a mailbox.

Solution

The solution is to check if there is Exchange information in active directory for this user.
As you can see, the username (logonname) is optional. In case you do not give the username, then the name will be taken from the environment variable USERNAME.

In a command file (e.g. Logon script) it is sufficient to call this script and to check the Errorlevel.
REM *** Run Outlook when user has an exchange account ***
HasMailBox.vbs
If not errorlevel==1 outlook.exe

Change the Domain Controller information, replace MyMainDC with the domain controller you want to query. (LDAP)

DCServer = "MyMainDC"

'***********************************************
'
' HasMailbox.vbs
' (c) 2003 Computech 
' Written by Peter Verijke
' Checks is user has a mailbox in Exchange
'
' Usage : HasMailbox [LogonName]
' Returns : Errorlevel==1 : not found
'
'***********************************************
 

Dim ArgObj
Dim WshShell ' as object
Dim objEnv ' as collection
Dim objUser 'As IADsUser
Dim objMailbox 'As CDOEXM.IMailboxStore
Dim sUserLDAPName 'As String
Dim DCServer 'As String

 

' Get the Arguments object
Set ArgObj = WScript.Arguments

 

If ArgObj.Count < 1 Then
   Set WshShell = WScript.CreateObject("WScript.Shell")
   Set objEnv = WshShell.Environment("PROCESS")

 

   sUserName = objEnv("USERNAME")
else
   sUserName = UCase(ArgObj(0))
End If

 

DCServer = "MyMainDC"
sUserLDAPName = QueryActiveDirectory(sUserName)

 

Set objUser = GetObject("LDAP://" & DCServer + "/" & sUserLDAPName)

Set objMailbox = objUser
'check if user is mailbox enabled
If objMailbox.HomeMDB = "" Then
   WScript.Quit 1
Else
   WScript.Quit 0
End If

 


Public Function QueryActiveDirectory(sUserName)
'Function:      QueryActiveDirectory
'Purpose:       Search the Active Directory's Global Catalog for users
'Parameters:    UserName - user to search for
'Return:        The user's distinguished name
 
    Dim oAD 'As IADs
    Dim oGlobalCatalog 'As IADs
    Dim oRecordSet 'As Recordset
    Dim oConnection 'As New Connection
    Dim strADsPath 'As String
    Dim strQuery 'As String
    Dim strUPN 'As String

 

    set oRecordSet = CreateObject("ADODB.Recordset")
    set oConnection = CreateObject("ADODB.Connection")

 

    'Determine the global catalog path
    Set oAD = GetObject("GC:")
    For Each oGlobalCatalog In oAD
        strADsPath = oGlobalCatalog.AdsPath
    Next
    'Initialize the ADO object
    oConnection.Provider = "ADsDSOObject"
    'The ADSI OLE-DB provider
    oConnection.Open "ADs Provider"
    'Create the search string
    strQuery = "<" & strADsPath & _
      ">;(&(objectClass=user)(objectCategory=person)(samaccountName=" & _
      sUserName & "));userPrincipalName,cn,distinguishedName;subtree"  
        'Execute the query

    Set oRecordSet = oConnection.Execute(strQuery)
    If oRecordSet.EOF And oRecordSet.BOF Then    
       'An empty recordset was returned
        QueryActiveDirectory = "Not Found"
    Else    'Records were found; loop through them
        While Not oRecordSet.EOF
            QueryActiveDirectory = oRecordSet.Fields("distinguishedName")
            oRecordSet.MoveNext
        Wend
    End If
End Function

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Share

About the Author

Peter Verijke
Founder Computech bvba
Belgium Belgium
I´m a freelance ICT consultant and Technical Project Manager for the last 15 years already.
Before that, I was a Software Developer for the Pharmaceutical and Petrochemical industry.
I developed a very wide knowledge in the ICT world due to my intrest.
This includes Networking (Lan, Wan), Routing Switching Bridging, etc...
Windows environment, which has no secrets for me.
Developing: To many languages to mension here.
Of course, the latest one on the list is dot net.

Comments and Discussions

 
Questionhow to apply this code in Microsoft Script Editor Pinmembertatminglee20-Jul-06 19:27 
GeneralMonitor an Exchange Mailbox for replies Pinmembergyzmo7120-Jul-06 9:25 
GeneralNo output or HasMailbox.vbs(47, 1) (null): An invalid dn syntax has been specified. PinmemberTopCatt16-May-06 2:21 
GeneralRe: No output or HasMailbox.vbs(47, 1) (null): An invalid dn syntax has been specified. PinmemberPeter Verijke16-May-06 2:51 
GeneralRe: No output or HasMailbox.vbs(47, 1) (null): An invalid dn syntax has been specified. PinmemberTopCatt16-May-06 3:36 
GeneralRe: No output or HasMailbox.vbs(47, 1) (null): An invalid dn syntax has been specified. PinmemberPeter Verijke16-May-06 6:45 
GeneralDeleting redundant SMTP addresses PinmemberGeoffPeel11-Oct-04 19:58 
GeneralRe: Deleting redundant SMTP addresses PinmemberPeter Verijke13-Oct-04 6:58 
GeneralRe: Deleting redundant SMTP addresses PinmemberPeter Verijke13-Oct-04 15:03 
GeneralModifying attribute value PinsussMichel Paquin10-May-04 8:55 
GeneralRe: Modifying attribute value PinsussAnonymous13-May-04 4:45 
GeneralExchange Server Settings PinmemberRPA26-Sep-03 16:10 
QuestionMail retrieval? Pinmembertoticow24-Sep-03 23:59 
AnswerRe: Mail retrieval? PinmemberPeter Verijke25-Sep-03 0:36 
GeneralRe: Mail retrieval? Pinmembertoticow25-Sep-03 2:47 
GeneralRe: Mail retrieval? PinsussAnonymous26-Sep-03 6:51 
QuestionRe: Mail retrieval without pop3? PinmemberMFMan75826-Sep-07 5:25 
GeneralRe: Mail retrieval? Pinmember#teve26-Sep-03 6:24 
GeneralRe: Mail retrieval? PinmemberPeter Verijke26-Sep-03 6:57 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Terms of Use | Mobile
Web02 | 2.8.141223.1 | Last Updated 24 Sep 2003
Article Copyright 2003 by Peter Verijke
Everything else Copyright © CodeProject, 1999-2014
Layout: fixed | fluid