Though this feature is good for security reasons it may be annoying for many users who use OWA regularly and they may not want to enter the password several times after the time out. This can settled down with a simple registry tweak on the CAS server that runs your Internet facing OWA site. This can be done by following registry modification:

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MSExchangeOWA
Name: PublicTimeout
Type: DWORD
Value: {value in minutes} (This value is 15 minutes by default)

The above suggestion applies only when the user selects the Public Computer option from the OWA logon screen. For the user who select the Private Computer from the logon screen you might want to modify:

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MSExchangeOWA
Name: PrivateTimeout
Type: DWORD
Value: {value in minutes} (This value is 8 hours by default)

If you don’t see the DWORD values named, PublicTimeout and PrivateTimeout then you have create then manually.

You can download Exchange 2007 Serivce Pack 2 here.

Get-EventLog *
(gives an overview of all the available event sources)

When you put the following commands into a PS1 file and schedule it on a specific server, you’ll receive the event logs in an e-mail!
(in this example you’ll receive an e-mail from eventviewer@e2k10.local with the 10 newest event logs)

—————————————————————————
$body = Get-EventLog -LogName “dns server” -Newest 10 | out-string
$From = “eventviewer@e2k10.local”
$to = “administrator@e2k10.local”
$server = “srv-exc2010.e2k10.local”
$subject = “Event Viewer – srv-exc2010.e2k10.local”
$msg = new-object System.Net.Mail.MailMessage $From, $to, $subject, $body
$client = new-object System.Net.Mail.SmtpClient $Server
$Client.Send($msg)
—————————————————————————

get-mailboxserver Servername | add-adpermission -user svc-backup -accessrights GenericRead, GenericWrite -extendedrights  Send-As, Receive-As, ms-Exch-Store-Admin

—————————————————————————————————
Get-DistributionGroup | select name , alias ,EmailAddresses | foreach {
  “Name: “+$_.name
  “Alias: “+$_.alias
   $_.EmailAddresses | foreach {
     if($_.SmtpAddress){
     “SmtpAddress: “+$_.SmtpAddress
   }
}
write-host
}
—————————————————————————————————

When you copy and past this code in notepad and save it as Get_Dis.ps1 , you get the following export for example:

Name: Exchange Team
Alias: ExchangeTeam
SmtpAddress: Exchange2003Team@e2k7.local
SmtpAddress: Exchange2007Team@e2k7.local
SmtpAddress: ExchangeTeam@e2k7.local

Name: ICT Helpdesk
Alias: ICTHelpdesk
SmtpAddress: Helpdesk@e2k7.local
SmtpAddress: ICTHelpdesk@e2k7.local

Name: ICT Management
Alias: ICTManagement
SmtpAddress: ICTManagement@e2k7.local

Get-Mailbox | Where {$_.HiddenFromAddressListsEnabled -eq $true} | ft -wrap

Get-Mailbox | Where {$_.HiddenFromAddressListsEnabled -eq $true} | Select Name, HiddenFromAddresslistsEnabled, ExchangeVersion

Get-Mailbox | Get-mailboxpermission | where {-not ($_.User -like “NT AUTHORITY\SELF”)} | Ft -wrap

When you want the full access permissions configured on one specific mailbox, you can add the -identity switch. For example:

Get-Mailbox -identity systeembeheer | Get-mailboxpermission | where {-not ($_.User -like “NT AUTHORITY\SELF”)} | Ft -wrap

Get-Mailbox | Get-ADPermission | where {($_.ExtendedRights -like “*Send-As*”) -and -not ($_.User -like “NT AUTHORITY\SELF”)} | Ft -wrap

When you want the Send-As permissions configured on one specific mailbox, you can add the -identity switch. For example:

Get-Mailbox -identity systeembeheer | Get-ADPermission | where {($_.ExtendedRights -like “*Send-As*”) -and -not ($_.User -like “NT AUTHORITY\SELF”)} | Ft -wrap

————————————————
# This script creates two storage groups named SG1 and SG2, with mailbox stores MB1 and MB2, and finally mounts them.
# C: – Operating System
# D: – Exchange Logfiles/Systemfiles
# E: – Exchange Databases

# Environment variables
$server = “srv-ex01″
$logfilepath = “D:\Log”
$mbxfilepath = “E:\Database”

# Creating the Storage Groups and Mailbox Stores
foreach (
$i in (1,2,3,4)
){
new-storagegroup -name SG$i -server $server -logfolderpath “$logfilepath\SG$i” -systemfolderpath “$logfilepath\SG$i”
}
foreach (
$i in (1,2,3,4)
){
new-mailboxdatabase -storagegroup $server\SG$i -name MB$i -edbfilepath “$mbxfilepath\MB$i\MB$i.edb”
mount-database MB$i
}
————————————————

—————————————————–
$body = Get-MailboxStatistics | sort-object -descending totalItemSize | ft DisplayName, @{expression={$_.totalitemsize.value.ToMB()};label=”Mailbox Size(MB)”}, itemcount, lastlogontime | out-string

$From = “administrator@e2k7.local”
$to = “m.swinkels@e2k7.local”
$server = “srv-ex01.e2k7.local”
$subject = “Mailbox overview – srv-ex01.e2k7.local”
$msg = new-object System.Net.Mail.MailMessage $From, $to, $subject, $body
$client = new-object System.Net.Mail.SmtpClient $Server
$Client.Send($msg)
—————————————————–

Copy this script into Notepad and save it as MailboxSizes.ps1. You can schedule this script to run every day, or every week using the following command:

C:\WINDOWS\system32\Windowspowershell\v1.0\powershell.exe -PSConsoleFile “D:\ExchSvr\Bin\exshell.psc1″ C:\Scripts\MailboxSizes.ps1

C:\WINDOWS\system32\Windowspowershell\v1.0\powershell.exe
The path to Powershell.exe needed to run the script

-PSConsoleFile “D:\ExchSvr\Bin\exshell.psc1″
Loads the specified Windows PowerShell console file. To create a console file
(Change the path to the installation path of Exchange 2007 in your environment)

C:\Scripts\MailboxSizes.ps1
The path to the script.
(Change the path where you save the script)

When you try to run the script, you may receive an error “Client was not authenticated”.  You have to add the Exchange 2007 Server to an Relay Connector, so that this server can send e-mail without authentication. If you’ve done this and run the script, you’ll receive the following e-mail.

It’s a great script, to overview the current mailboxsizes, items, growth history, quota used. Watch the screenshot below, to see the great script of scripting guru Glen

All you have to change is the OU$=”edir”.

If your Organizational Unit is called “Distribution Groups“, it will be: OU$=”Distribution Groups”

_____________________________

## This script will get all distrobution Groups and print out
## the Group Name and Members alias and Primary smtp address
##
## Example
## groupName: Group.Name
##
## alias               PrimarySmtpAddress
## —-              ——————
## Group.Alias    Group@primarySmtpAddress 
##
## groupsMembers:
##
## alias               PrimarySmtpAddress
## —-              ——————
## User.Alias      User@primarySmtpAddress

$OU=”edir”
##input OU path above

foreach($group in Get-DistributionGroup -OrganizationalUnit $Ou)
{
write-output “GroupName:$group ”
Get-DistributionGroup $group | ft alias,primarysmtpaddress
Write-output “GroupsMembers:”
Get-DistributionGroupMember $group | ft alias,primarysmtpaddress
write-output ‘ ‘
}
_____________________________

Here you can see the output of the script in the Exchange 2007 test environment.

###
clear-host
write-host -fore yellow “This script will get each mailboxdatabase and the current user count ”
foreach($name in get-mailboxdatabase)
{
write-output “$name”
$count=(get-mailbox -database $name).count
if($count -eq $null)
{ write-host -fore red “Empty Database, no users”
}
else
{ write-output $count }
}
write-host -fore yellow “The system has a total of “$user=(get-mailbox -resultsize:unlimited).count
write-host -fore red $user

__________________________________

The output of this script you can see below:

With the following script you can change the displaynames of all userobjects in the Domain, or in an Organizational Unit.

The only thing you have to change is: ‘LDAP://OU=edir, DC=e2k7 ,DC=local’. Let’s say your domain is company.lan and the Organizational Unit where the userobject are placed is CompanyUsers, it would be:

“LDAP://OU=CompanyUsers, DC=company, DC=lan’
_______________________________________________________

   On Error Resume Next
 Set con = CreateObject(“ADODB.Connection”)
 con.Provider = “ADsDSOObject”
 con.Open
 set command = CreateObject(“ADODB.Command”)
 set command.ActiveConnection = con
 command.CommandText = “SELECT adsPath, samAccountName,Sn, givenName, DisplayName, userAccountControl FROM ‘LDAP://OU=edir, DC=e2k7 ,DC=local’ WHERE  objectClass = ‘user’ AND samAccountName <> ‘Administrator’ AND samAccountName <> ‘*$’ AND userAccountControl <> 514  ORDER BY samAccountName”
 Set rs = command.Execute
 While not rs.EOF
  GebruikersNaam=rs.Fields(“adsPath”).Value
  set oUser = GetObject(GebruikersNaam)
  oUser.Displayname = rs.fields(“Sn”).value & CHR(44) &” ” &  rs.fields(“givenName”).value
  oUser.SetInfo
  Set oUser = Nothing
  rs.MoveNext
 Wend
 con.close
 Set con = nothing
 MSGBox “Klaar!”
_______________________________________________________