asked on

Find Disabled users with mailbox.

Hi,

I got this script .What i need is to get the results to a file.This shows the results with popup's

' List all disabled users with a mailbox enabled, reporttheir login name, title manager, description
' and other mailbox information. At the end it gives the total number of disabled users, how many of
' them have mailbox, and how much the total size of those mailboxes.
' Created by Edward Aractingi 01/10/2006 http://edward.aractingi.net
On Error Resume Next
Dim intDisabledTotal, intDisabledWithMailboxTotal,strManager,intMailboxSize,strUserDisplayName,strLDAP
'The following is needed to write the mailboxes DNs to text file for use with exmerge to export them to PST files
strOutputFile = "c:\scripts\DisabledUsersWithMailbox.txt"
strLDAP = "'LDAP://dc=development,dc=group,dc=co,dc=uk'"
Const ForAppending = 1
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFSO.OpenTextFile(strOutputFile, ForAppending, True)
objLogFile.WriteLine ("##################################")
objLogFile.WriteLine ("### Script run at "& Now & " ###")

'Connect to AD
Const ADS_SCOPE_SUBTREE = 2
Const ADS_UF_ACCOUNTDISABLE = 2 ' used to determine if the account is disabled
intTotal = 0
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 2000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

objCommand.CommandText = _
"SELECT userAccountControl,sAMAccountName,displayName,title,manager,description" & _
",HomeMDB,msExchHomeServerName,legacyExchangeDN " & _
"FROM "& strLDAP & " WHERE objectCategory='user' "
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
intUAC=objRecordset.Fields("userAccountControl")

If (intUAC AND ADS_UF_ACCOUNTDISABLE) Then ' if the account is not disabled, check to see if it has a mailbox
      intDisabledTotal = intDisabledTotal + 1
      If objRecordSet.Fields("HomeMDB").Value <> "" Then
            intDisabledWithMailboxTotal = intDisabledWithMailboxTotal + 1
       Wscript.Echo "----------------------------------------------"
       Wscript.Echo "User Name: " & objRecordSet.Fields("displayName").Value
       Wscript.Echo "Account: " & objRecordSet.Fields("sAMAccountName").Value
       Wscript.Echo "Title: " & objRecordSet.Fields("title").Value
       'Converting the Manager's Distinguised name to simple name
                  strManager = objRecordSet.Fields("Manager").Value
                  strManager = Mid(objRecordSet.Fields("Manager").Value, 4, 330)
                  If not IsNull (strManager)then
                  strManagerA = Split(strManager, "," )
                  Wscript.Echo "Manager: " & strManagerA(0)
                  End If
            'Find Exchange Server where the mailbox reside
            strServerName = objRecordSet.Fields("msExchHomeServerName").Value
            strServerNameA = Split(strServerName, "Servers/cn=")
            strServerName = strServerNameA(1)
            WScript.echo "Mailbox Server: " & strServerName
            'loop through the description lines sinces it's an Array
            If Not IsNull(objRecordset.Fields("description").Value) Then
                  For Each varRecord In objRecordset.Fields("description").Value
                         WScript.Echo "Description: " & varRecord & " "
                   Next
             End If
             'Run MailboxInfo Function on the user's mailbox
            strUserDisplayName =objRecordSet.Fields("displayName").Value
             intMailboxSize = intMailboxSize + CLng(MailboxInfo (strServerName,strUserDisplayName))
             objLogFile.WriteLine (objRecordset.Fields("legacyExchangeDN").Value)
             WScript.Echo objRecordset.Fields("legacyExchangeDN").Value
     End If
End If
objRecordSet.MoveNext
Loop
Wscript.Echo "Total Number of disabled users is " & intDisabledTotal
Wscript.Echo "Total Number of those with active mailbox is " & intDisabledWithMailboxTotal
WScript.Echo "Total size of all mailboxes is " & intMailboxSize & " bytes." & FormatNumber(intMailboxSize /(2^30),1)& " KB."

' function mailboxinfo retrieve mailbox information from exchange server through WMI
Function MailboxInfo(strComputer, strUserDisplayName)
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & _
"\ROOT\MicrosoftExchangeV2")
Dim colItems
Set colItems = objWMIService.ExecQuery _
("Select * from Exchange_Mailbox where MailboxDisplayName ='" & strUserDisplayName & "'")
If colItems Is Nothing Then
WScript.Echo "User "&strUserDisplayName&" not found on " & strComputer
Else
For Each objItem in colItems
Wscript.Echo "Last logged-on user account: " & _
objItem.LastLoggedOnUserAccount
Wscript.Echo "Last logoff time: " & objItem.LastLogoffTime
Wscript.Echo "Last logon time: " & objItem.LastLogonTime
Wscript.Echo "Server name: " & objItem.ServerName
Wscript.Echo "Size: " & objItem.Size
Wscript.Echo "Storage group name: " & objItem.StorageGroupName
Wscript.Echo "Store name: " & objItem.StoreName
Wscript.Echo "Total items: " & objItem.TotalItems
If IsNull (objItem.Size) Then
      MailboxInfo = 0
Else
      'MailboxInfo = FormatNumber(objItem.Size/2^30,1)
      MailboxInfo = objItem.Size
End If
Next
End If
End Function
'''''''''''''''''''''''''''''''''End of script'''''''''''''''''''''''''''''''''''''''''''''''''

Regards
Sharath

kmotaweh

try to run run the script from a command prompt and follow the script name by >c:\report.txt as an example that will parse the result to that file called report.txt

kmotaweh

i think the script do that try to check this path "c:\scripts\DisabledUsersWithMailbox.txt"