JetSoft – Jeff Turner

Store this cmd file script somewhere and schedule it using the system task schedule, it will need to have administrator and “run when user not logged in” rights.

The exported XML file from the scheduled task contains this

<?xml version="1.0" encoding="UTF-16"?>
<Task version="1.2" xmlns="http://schemas.microsoft.com/windows/2004/02/mit/task">
  <RegistrationInfo>
    <Date>2016-01-13T10:41:23.3455701</Date>
    <Author>DOMAIN\adminuser</Author>
  </RegistrationInfo>
  <Triggers>
    <CalendarTrigger>
      <StartBoundary>2016-01-13T02:00:00</StartBoundary>
      <Enabled>true</Enabled>
      <ScheduleByWeek>
        <DaysOfWeek>
          <Sunday />
        </DaysOfWeek>
        <WeeksInterval>1</WeeksInterval>
      </ScheduleByWeek>
    </CalendarTrigger>
  </Triggers>
  <Principals>
    <Principal id="Author">
      <UserId>DOMAIN\adminuser1</UserId>
      <LogonType>Password</LogonType>
      <RunLevel>HighestAvailable</RunLevel>
    </Principal>
  </Principals>
  <Settings>
    <MultipleInstancesPolicy>IgnoreNew</MultipleInstancesPolicy>
    <DisallowStartIfOnBatteries>true</DisallowStartIfOnBatteries>
    <StopIfGoingOnBatteries>true</StopIfGoingOnBatteries>
    <AllowHardTerminate>true</AllowHardTerminate>
    <StartWhenAvailable>false</StartWhenAvailable>
    <RunOnlyIfNetworkAvailable>false</RunOnlyIfNetworkAvailable>
    <IdleSettings>
      <StopOnIdleEnd>true</StopOnIdleEnd>
      <RestartOnIdle>false</RestartOnIdle>
    </IdleSettings>
    <AllowStartOnDemand>true</AllowStartOnDemand>
    <Enabled>true</Enabled>
    <Hidden>false</Hidden>
    <RunOnlyIfIdle>false</RunOnlyIfIdle>
    <WakeToRun>false</WakeToRun>
    <ExecutionTimeLimit>P3D</ExecutionTimeLimit>
    <Priority>7</Priority>
  </Settings>
  <Actions Context="Author">
    <Exec>
      <Command>c:\windows\system32\cmd.exe</Command>
      <Arguments>/c "C:\program files\local\rebootme.cmd"</Arguments>
    </Exec>
  </Actions>
</Task>

the cmd file that logs and performs the actual reboot contains this

@set logfile="D:\Logfiles\rebootme.log"
echo %0 >> %logfile%
date /t >> %logfile%
time /t  >> %logfile%
shutdown /r /t 5

based on sendstats.ps1 , all the various reports as HTML formatted tables.

List mailboxes sorted by size

List mailboxes sorted by date last accessed.

List all email addresses assigned to mailboxes and public folders.

List of mailboxes being forwarded to other addresses.

List of rights to access of mailboxes

###
###
### to schedule this use PowerShell.exe -PSConsoleFile "C:\Program Files\Microsoft\Exchange Server\Bin\ExShell.psc1" -Command "getmailboxinformationandemail.ps1"
###
### Set the email addresses and server

Add-PSSnapin "Microsoft.Exchange.Management.PowerShell.Admin"

# set the from and to email addresses and other details
$FromAddress = "administrator@cortina.com"
$ToAddress = "jefft@cortina.com"
$MessageSubject = "Mailbox Size Report from $env:computername "
$MessageBody = "Attached is the current mailbox report."
## set the smtp servers name or address
$SendingServer = "smtp.local"

$body = @'
<style>
body { background-color:#dddddd;
       font-family:Tahoma;
       font-size:12pt; }
td, th { border:1px solid black; 
         border-collapse:collapse; }
th { color:white;
     background-color:black; }
table, tr, td, th { padding: 2px; margin: 0px }
table { margin-left:50px; }
</style>
'@

$body+="<h2>List of mailbox information</h2>"
#Get-MailboxDatabase | sort-object "server","storagegroup" | Select Server, StorageGroupName, Name, @{Name="Size (GB)";Expression={$objitem = (Get-MailboxDatabase $_.Identity); $path = "`\`\" + $objitem.server + "`\" + $objItem.EdbFilePath.DriveName.Remove(1).ToString() + "$"+ $objItem.EdbFilePath.PathName.Remove(0,2); $size = ((Get-ChildItem $path).length)/1048576KB; [math]::round($size, 2)}}, @{Name="Size (MB)";Expression={$objitem = (Get-MailboxDatabase $_.Identity ) ; $path = "`\`\" + $objitem.server + "`\" + $objItem.EdbFilePath.DriveName.Remove(1).ToString() + "$"+ $objItem.EdbFilePath.PathName.Remove(0,2); $size = ((Get-ChildItem $path).length)/1024KB; [math]::round($size, 2)}}, @{Name="No. Of Mbx";expression={(Get-Mailbox -Database $_.Identity -resultsize unlimited | Measure-Object).Count}} | Format-table -AutoSize
$body +=Get-MailboxDatabase | sort-object "server","storagegroup" | Select Server, StorageGroupName, Name, @{Name="Size (GB)";Expression={$objitem = (Get-MailboxDatabase $_.Identity); $path = "`\`\" + $objitem.server + "`\" + $objItem.EdbFilePath.DriveName.Remove(1).ToString() + "$"+ $objItem.EdbFilePath.PathName.Remove(0,2); $size = ((Get-ChildItem $path).length)/1048576KB; [math]::round($size, 2)}}, @{Name="Size (MB)";Expression={$objitem = (Get-MailboxDatabase $_.Identity ) ; $path = "`\`\" + $objitem.server + "`\" + $objItem.EdbFilePath.DriveName.Remove(1).ToString() + "$"+ $objItem.EdbFilePath.PathName.Remove(0,2); $size = ((Get-ChildItem $path).length)/1024KB; [math]::round($size, 2)}}, @{Name="No. Of Mbx";expression={(Get-Mailbox -Database $_.Identity -resultsize unlimited | Measure-Object).Count}}  | convertto-html -Fragment


foreach ($mbdatabase in Get-MailboxDatabase  | sort-object "server","storagegroup"  ) { 
$body += "<h3>Mailboxes in $mbdatabase.identity sorted by size</h3>" 
###Now get the stats and store in a text file
$body +=Get-MailboxStatistics -database $mbdatabase.identity  | Sort-Object    @{Expression="Database";Descending=$false}  ,@{Expression="TotalItemSize";Descending=$true}  | select database, DisplayName, lastlogontime ,@{label="TotalItemSize(MB)";expression={$_.TotalItemSize.Value.tomb()}}, ItemCount | convertto-html -fragment

$body +="<h2>Mailboxes in $mbdatabase.identity sorted by last logon (oldest first)</h2>" 
$body +=Get-MailboxStatistics -database $mbdatabase.identity  | Sort-Object @{Expression="Database";Descending=$false}  ,@{Expression="Lastlogontime";Descending=$false}  | select database, DisplayName, lastlogontime ,@{label="TotalItemSize(MB)";expression={$_.TotalItemSize.Value.tomb()}}, ItemCount |   convertto-html -fragment

}

$body+="<h2>Email addresses assigned to mailboxes</h2>"


$body += Get-Mailbox -ResultSize Unlimited |Select-Object DisplayName,ServerName,PrimarySmtpAddress, @{Name=“EmailAddresses”;Expression={$_.EmailAddresses |Where-Object {$_.PrefixString -ceq “smtp”} | ForEach-Object {$_.SmtpAddress}}} | convertto-html -Fragment

$body+="<h2>Email addresses assigned to public folders</h2>"

$body += get-mailpublicfolder  | select-object  displayname, WindowsEmailAddress, @{Name=“EmailAddresses”;Expression={$_.EmailAddresses |Where-Object {$_.PrefixString -ceq “smtp”}   | ForEach-Object {$_.SmtpAddress} } } | convertto-html -Fragment 

$body+="<h2>Forwarding addresses</h2>"

$fwds = get-mailbox | Where-Object { $_.ForwardingAddress -ne $null } | sort Name | select Name, ForwardingAddress

# now get the primary smtp adress of each forward address
foreach ($fwd in $fwds) {
$fwd | add-member -membertype noteproperty -name "ContactAddress" -value (get-Recipient $fwd.ForwardingAddress).PrimarySmtpAddress
}


$body +=  $fwds | convertto-html -Fragment 


$body+="<h2>Mailbox access permissions</h2>"

$body += Get-Mailbox  -ResultSize Unlimited | Get-MailboxPermission | where {$_.user.tostring() -ne "ausgold\nanotera" -and $_.user.tostring() -ne "NT AUTHORITY\SELF" -and $_.IsInherited -eq $false} | Select Identity,User,@{Name='Access Rights';Expression={[string]::join(', ', $_.AccessRights)}}  | convertto-html -Fragment 


$messageBody=$body 

###Create the mail message and add the statistics text file as an attachment
$SMTPMessage = New-Object System.Net.Mail.MailMessage $FromAddress, $ToAddress, $MessageSubject, $MessageBody 
$SMTPmessage.IsBodyHtml=$true

##$Attachment = New-Object Net.Mail.Attachment($tempfilename)
##$SMTPMessage.Attachments.Add($Attachment)


###Send the message
$SMTPClient = New-Object System.Net.Mail.SMTPClient $SendingServer
$SMTPClient.Send($SMTPMessage)

remove-variable SMTPclient
remove-variable SMTPmessage
Remove-Variable attachment

By adding an XML file (and related entries) to a word document you can add or remove menu items.

This includes the backstage as well as the ribbon interface. The objects in the interface need to be addressed using the Msoobjectname format. Microsoft supply a list of the standard items for most versions of office.

This link gives a list of all the objects in the Schema for Office 2010 (Fluent interface)
https://www.microsoft.com/en-us/download/confirmation.aspx?id=1574, for office 2007 https://www.microsoft.com/en-us/download/details.aspx?id=3582, this one gives a list of all the icons (buttons) used, so if you want to make a new tool but reuse the button you can link to it https://www.microsoft.com/en-us/download/confirmation.aspx?id=11675.

The customui tool is very useful for easily adding or editing the XML it is available from http://openxmldeveloper.org/blog/b/openxmldeveloper/archive/2009/08/07/7293.aspx and referenced here https://msdn.microsoft.com/en-us/library/cc508991%28office.11%29.aspx#UsingtheCustomUIEditor2_AddingTemplatestotheCustomUIEditor .

However you can open the document with something like 7-zip and then edit the xml with any text editor (such as notepad). But you then need to manually add the correct “relationship” code and it is fairly cryptic to work with.
Adding the XML below will remove the default “send as attachment”, “send as XPS” and “Send as internet fax” options from the word file menu (backstage). It then adds a new button using the same icon as the old save and send one and links it to a macro. The macro and XML can be saved into the normal.dotm template which means this customisation will be current for all documents.

<?xml version="1.0" encoding="UTF-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
  <backstage>
    <tab idMso="TabShare">
      <firstColumn>
        <taskFormGroup idMso="GroupShare">
          <category idMso="Share">
	      <task idMso="SendUsingEmail">
		  <group idMso="GroupSendAsAttachment" visible="false"/>
		  <group idMso="GroupSendAsXps" visible="false"/>
		  <group idMso="GroupSendAsInternetFax" visible="false"/>


              <group id="grpSaveCloseOpenSend" label=" " insertBeforeMso="GroupSendAsAttachment"  >
                <topItems>
                  <button id="btnSCOS" label="Save,Close,Open,Send" style="large" onAction="mySaveCloseOpenSend" imageMso="FileSendAsAttachment" />
                </topItems>
              </group>
            </task>
          </category>
        </taskFormGroup>
      </firstColumn>
    </tab>
  </backstage>
</customUI>

This is the VBA code called by the new item added to the “Save/Send” stage. Note that once you define the control As iRibbonControl part it doesnt show as a normal macro. If you dont do that your get “parameter” errors when calling it.

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub mysavecloseopensend(control As IRibbonControl)

        On Error GoTo MyError1
        ActiveDocument.Save
        On Error GoTo MyError2
        Debug.Print ActiveDocument.Name, ActiveDocument.FullName
        mydocumentname = ActiveDocument.FullName
        mytext = ActiveDocument.Name + " attachment. " + mydocumentname
        ActiveDocument.Close
        Documents.Open FileName:=mydocumentname
        'Stop
        On Error GoTo 0
        
        ActiveDocument.SendForReview Recipients:="email@emaildomain.com", Subject:=mytext, showmessage:=True, includeattachment:=True
        
Exit Sub

MyError1:
        Debug.Print MsgBox(mydocumentname + " Could  not be saved, please check the path and try again.", vbCritical, "Error saving document")
Exit Sub

MyError2:
        Debug.Print MsgBox(mydocumentname + " Could  not be opened, please check the path and try again.", vbCritical, "Error opening document")
    
End Sub

Anyone who has a large format inkjet plotter (HP A0 etc…) knows that if they sit idle for a long time the ink will dry up and clog the print heads. This can be an expensive repair so it is a good idea to print something regularly. If this is run from a server you can use the WORDPAD application to do the printing.
So first create a wordpad (.docx) document with enough color on it to give all the inkjets a good workout and then schedule it to print with the following powershell script. (Put your printer name into the script to make sure it goes to the correct one and the full path to the wordpad document).

$print= Get-WmiObject -Class win32_printer -Filter "Name='HP DesignJet 1055CM'"                                                                                
$print.SetDefaultPrinter()                                                                                                                                           
Start-Process -FilePath "C:\appdata\testprint\testprint.docx" -Verb print