导出AD用户信息到 XSL

$objOU=[ADSI]"LDAP://OU=TEST,OU=XXX

Users,DC=XXX,DC=intranet,DC=asia"
$searcher=new-object directoryservices.directorysearcher($objOU)
$searcher.Filter="(&(objectclass=user))"
$users=$searcher.findall()
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $True
$workbook = $excel.Workbooks.add()
$workbook.workSheets.item(2).delete()
$workbook.workSheets.item(2).delete()
$workbook.WorkSheets.item(1).Name = "UsersInfo"
$sheet = $workbook.WorkSheets.Item("UsersInfo")
$sheet.cells.item(1,1) = "Name"
$sheet.cells.item(1,2) = "Description"
$sheet.cells.item(1,3) = "Dep"
$sheet.cells.item(1,4) = "Tel"
$intRow=2
foreach ( $user in $users){
$Path=$user.Path
$account=[ADSI]$Path
$sheet.cells.item($intRow,1) = $account.Name.Value
$sheet.cells.item($intRow,2) = $account.description.Value
$sheet.cells.item($intRow,3) = $account.physicaldeliveryofficename.Value
$sheet.cells.item($intRow,4) = $account.telephonenumber.Value
$intRow++
}
$strPath = "D:\Test.xls"
IF(Test-Path $strPath)
  {
   Remove-Item $strPath
   $Excel.ActiveWorkbook.SaveAs($strPath)
  }
ELSE
  {
   $Excel.ActiveWorkbook.SaveAs($strPath)
  }
$Excel.Quit()