Generate ActiveSync Report Exchange 2010

Question

Hello!
I would like to create a activesync report with Powershell in Exchange 2010 with users and devices from the last 30 days. I would like these attributes in the report:
- Display Name
- Department or Company
- Primarysmtpaddress
- DeviceType
- DeviceModel
- DeviceOS
- FirstSyncTime
- LastSuccessSync
 I've found a lot of scripts, but none with the Company or Department attribute from the Active Directory included. 
If anyone has a script for this, I would be truly grateful. 
Regards, Christian 
Christian Andersson, Exchange 2010 Administrator Jönköping Municipality, Sweden

Answer 1

This should get you started.  In the event that some users might have multiple devices registered in the last thirty days for a single account, you'll need to add an additional if logic for $ActiveSyncInfo.Count (if gt 1 -> foreach loop)
$Mailboxes = Get-Mailbox -ResultSize "unlimited"
$Date = Get-Date
$CSVPath = "c:\yoursavepathhere"
$CSVHeader = "DisplayName,Department,PrimarySMTPAddress,DeviceType,DeviceModel,DeviceOS,FirstSyncTime,LastSuccessSync"
$CSVHeader | Out-File -FilePath $CSVPath -Encoding ASCII
Foreach ($Mailbox in $Mailboxes)
$ActiveSyncInfo = $null
$ActiveSyncInfo = Get-ActiveSyncDeviceStatistics -Mailbox $Mailbox | Where-Object {$_.LastSuccessSync -ge $Date.AddDays(-30)}
If ($ActiveSyncInfo -ne $null)
$ADInfo = Get-ADUser -Identity $Mailbox -Properties "Department"
$DisplayName = $Mailbox.DisplayName
$Department = $ADinfo.Department
$PrimarySMTP = $Mailbox.PrimarySmtpAddress
$DeviceType = $ActiveSyncInfo.DeviceType
$DeviceModel = $ActiveSyncInfo.DeviceModel
$DeviceOS = $ActiveSyncInfo.DeviceOS
$FirstSync = $ActiveSyncInfo.FirstSyncTime
$LastSuccess = $ActiveSyncInfo.LastSuccessSync
[String]$CSVAdd = $DisplayName + "," + $Department + "," + $PrimarySMTP + "," + $DeviceType + "," + $DeviceModel + "," + $DeviceOS + "," + $FirstSync + "," + $LastSuccess
$CSVAdd | Out-File -FilePath $CSVPath -Encoding ASCII -Append
Thanks! This helped me alot :) 
Regards, Christian 
Christian Andersson, Exchange 2010 Administrator Jönköping Municipality, Sweden