June 2005
Intermediate to advanced
464 pages
13h 2m
English
You have an Excel spreadsheet (or some other data source that can easily be turned into an Excel sheet) and you want to add many mailboxes at once based on its contents.
' This code will read the contents of an Excel file and use the fields ' to create a set of mailboxes ' ------ SCRIPT CONFIGURATION ------ strComputerName = "<ServerName>" ' e.g., batman strWorksheetName = "<pathToExcelFile>" ' e.g., "c:\data\excelSheet.xls" strTargetMDB = "<mailboxDBDN>" strTargetContainer = "cn=Users,<ForestRootDN>" ' ------ END CONFIGURATION --------- ' create an invisible Excel instance and open our specified file set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(strWorksheetName) ' assume that row 1 is header data, and that rows 2-N contain data ' Columns: ' 1: first name ' 2: last name ' 3: CN ' 4: alias currentRow = 2 Do until objExcel.Cells(currentRow, 1).Value ="" userFirst = objExcel.Cells(currentRow, 1).Value userLast = objExcel.Cells(currentRow, 2).Value userCN = objExcel.Cells(currentRow, 3).Value userAlias = objExcel.Cells(currentRow, 4).Value Set objTargetContainer = GetObject(strTargetContainer) Set objUser = objOU.objTargetContainer _ ("User", "cn=" & userCN) objUser.sAMAccountName = userAlias objUser.GivenName = userFirst objUser.SN = userLast objUser.AccountDisabled = true objUser.SetInfo objUser.CreateMailbox targetMDB currentRow = currentRow + 1 Loop objExcel.quit ...