Cheap weekend/way to Ski/Snowboard at Mt Buller/ Victoria

Recently some friends got together for a cheap ski weekend at Mt Buller. We wanted to keep the costs down as much as possible due to the expense of skiing and snowboarding and came out with a weekend in Buller for $500 AUD each. If you have any cheaper Accom/Hire ideas post in the comments!

Lift Pass

• Entertainment Book – Check these out for deals , this year there was a : 3 day lift pass at 25%
• Earlier Deals – Like Mt Buller on Facebook , they do deals for Winter Olympics for Half Price Tickets!
• Full Price – A 2 day weekend pass will set you back $223 , and lifts open 8.30am and Close around 4.30pm

Accommodation

On Slope

• Hostel ( Ski in Ski Out ) : http://bullercentral.com.au/?page_id=9  in a 4 Bed Dorm ( $150/Night inc Meals )
• http://www.terama.com.au/ ( $190 Weekend)

Mansfield

Board / Ski Equipment Hire

Buller

• Ski/Snowboard Hire will cost you around $95 for the 2 days on the slope, you have the added convenience if anything goes wrong to take it back, but it isn’t the cheapest! You can buy the hire with your Lift Pass.

Melbourne CBD

• http://mustsnowboard.com.au/hire-gear.php – ($60 for the weekend )
  In the end we voted to get our Boards and Boots from the Melbourne Uni Snowboard Society.  They let us fit them earlier during the week and keep them for weekend. We had to do all the adjusting ourself on the boards as well as boot threading! Ski’s can be hired from
  http://www.sport.unimelb.edu.au/pdfs/2013%20Muski%20Ski%20Hire%20Prices.pdf
• http://www.auski.com.au/rentals ( $70)
• http://bumps.com.au/exfiles/Bumps_Hire_2014_A4.pdf ($70 ) St Kilda

Tags: Cheap Buller Accom, Cheap Buller Snowboarding, Cheap Ski Buller, Hire Snowboard Buller, Mt Buller, Snowboard Mt Buller

Failure to communicate with CIMC on Cisco UCS

Recently unboxing a UCS 420 M3, I tried to boot the server and access the CIMC , however upon pressing F8 to boot into the CIMC console, it would display the CIMC briefly with some Errors about DNS and Hostnames , then show Failure to communicate with CIMC then continue the normal boot procedure. I tried getting access to the CIMC through the BIOS ( Usually with the F8 key ) however this would not work either.

In the end I had to Update the Bios and other features of the server to the latest version (6b) via steps below

Download the HUU ISO file:

1. Navigate to the following URL: http:/?/?www.cisco.com/?cisco/?software/?navigator.html.
2. In the middle column, click Servers – Unified Computing.
3. In the right-hand column, click Cisco UCS C-Series Rack-Mount Standalone Server Software.
4. Choose the name of your model of server in the right column.
5. Click Unified Computing System (UCS) Server Firmware.
6. Choose the release number.
7. Click Download Now to download the ucs-server platform-huu-version_number.iso file.
8. Verify the information on the next page, and click Proceed With Download.

Tags: C420 M3, CIMC, Cisco Integrated Management Controller, Cisico, Failure to communicate with CIMC on Cisco UCS, UCS 420 M3

filename.xls cannot be saved in the current format. To save your changes, click OK, then save it as the latest format.

OK , so when you save a .xls file in 2010 from 2003 , explorer bugs you with : “filename.xls cannot be saved in the current format. To save your changes, click OK, then save it as the latest format.”

This dialogue box then breaks the iManage save as functionality which then brings up

 And you have to resave the document as a .xlsx or resave as a .xls which stops bugging you with message. This is no good for people with linked documents  . I have found no way to disable the first dialogue box/error

Solution for Explorer

1) Save the file to explorer , open the file with 2010 , click ok to the error message , then save it back as an xls ( overwrite )  , then you can open and save from explorer

Solution for iManage/Worksite

1) Save the file to explorer from your DMS file server, rename from docnumber.version to docnumber.xls , open the file with 2010 , click ok to the error message , then save it back as an xls ( overwrite ) , then you can open and save no drama’s from explorer

2) Rename file back to docunumber.version then copy this file back to the iManage file server and it enables the file to be opened saved from 2003 and 2010 no errors.

So 2010 must rewrite the file with new meta data!

Tags: cannot be saved in the current format. To save your changes, click OK, Excel 2010, imanage, Save operation is not successful, then save it as the latest format., worksite, XLSX

Spicest Food in Melbourne

Constantly being on the hunt for the new spiciest meal or dish in Melbourne , I have come up with a list below to share for fellow spice lovers!

1) Crazy Wings – The Crazy Wing – A small chinese restaurant that grill around 100 + random bits of meat on sticks reminding you of being back in Thailand. Sit down and you will be greated with a menu where you tick off your items and give back to the waiter. The place gets a bit smokey as you are never less that 4 meters away from the grill , but the Crazy Wing have a unique strong dry chilli flavour!

2) The Trunk – Stupid Hot Wings – Definitely on pare heat wise with Crazy Wings however an american style hot sauce which takes a while to kick in. They also offer an eating challenge of a whole 6 wings!

3) Mrs Parma’s - Parmagedon – A classic Australian dish – The Chicken Parma – dazzeled with a layer of chilli on top with a side of hallapino’s. Now you can ask the waiter for “EXTRA Gedon” and the chef takes this request as a serious challenge to your tastebuds.

4) Melbournes Mojo Pizza – The Volcano A “different” pizzastore in Richmond and Port Melbourne , a definate firey pizza layered with multiple chillis and jalapinos , but great for a take away / delivery dish!

5) Dainty Sichuan – Chinese hotpot -  A hot restaurant , where they will offer up a firey spicey soup to cook up a various range of fresh ingredients which will keep your nose running for the whole meal!

6) Gaylords – Curries – An Indian restaurant ( in china town) where they take you request of spice levels of any curries seriously! They add various fresh and powered spices to get the curry up to the correct spice level and are always happy to welcome you in day or night!

Tags: Chilli in Melbourne, Hot Food in Melbourne, Spicest Food in Melbourne, Spicey Melbourne Food

Mailchimp Approval List Subscribe System

Recently I helped a client setup a Mailchimp List , the users could sign up on the website however the client wanted to verify the users before they got added to the list with a file attachment upload so competitors didn’t subscribe to the list!

Unfortunately MailChimp doesn’t have this functionality , so I had to build something that would do this.

I created a seperate signup form via a separate form that would email the Approver , I used/purchased this form as it made upload attachments easy as well as HTML email headers. The email had the First Name , Last Name , Email and attachment.

The email also had an HTML approval link at the bottom , which was a link that passed the following details to a php file list,fname,lname, email below in the form test.php?list=1&fname=john&lname=smith&email=[email protected]

This then added the user to the list via the MailChimp API on clicking or displayed an error if the user was already signed up!

Once approved , the user gets emailed asking them to accept the subscription !

Source code

<?php
$api_key = "mailchimapikeyGetFromControlPanel";
 
switch ($_GET["list"]) {
    case "1":
$name = "List1";
$list_id = "getlistidfrommailchimpcontrol";
        break;
    case "2":
$name = "List2";
$list_id = "getlistidfrommailchimpcontrol";
        break;
}
 
 $merge_vars = Array( 
        'EMAIL' => $_GET['email'],
        'FNAME' => $_GET['fname'], 
        'LNAME' => $_GET['lname']
    );
 
//You need to download mailchimp API from here https://github.com/zf-fr/zfr-mailchimp
require('src/Mailchimp.php');
$Mailchimp = new Mailchimp( $api_key );
$Mailchimp_Lists = new Mailchimp_Lists( $Mailchimp );
$subscriber = $Mailchimp_Lists->subscribe( $list_id, array( 'email' => $_GET["email"]), $merge_vars );  
 
if ( ! empty( $subscriber['leid'] ) ) {
echo $_GET["email"]." Subscribed to ".$name;
}
else
{
echo "failed";
}
 
?>

Tags: Approval, MailChimp, mailchimp list approval

Disk is currently owned by the partner and cannot be assigned.

Recently I assigned a new drive that had failed in the Netapp System using

disk show -n ( for all unassigned disks )

disk assign 0b.xx.x or disk assign all ( for all drives )

The drive got assigned to the wrong controller so it assigned it as a Partner Disk when looking on the controller of the failed drive , ( Partner disks are those which are owned by the second (partner) controller. )

I tried to assign this back to the other controller using disk assign ob.xx.xx -s unowned -f on the controller that needed the spare drive however got the error message

Disk is currently owned by the partner and cannot be assigned.

sysconfig -r showed the disk as a partner disk, this means I was logged into the wrong controller to do this.

So SSH to right controller , disk assign ob.xx.xx -s unowned -f worked this time , then used disk assign 0b.xx.x  again

Tags: netapp, Partner Disks, Spare Disks

Script for AutoReply/Responder Using Exchange Web Services

Recently we needed to create an Exchange Web Services Script to Auto Reply from a Mailbox due to Auto Replies being disabled for Spam Reasons on the Hubtransports, below will do this and will move the item to a subfolder of Inbox when done

This can be run as a scheduled task as a powershell script

Source code

# Connect to Exchange server and load Exchange powershell modules
. 'C:\Program Files\Microsoft\Exchange Server\V14\bin\RemoteExchange.ps1'
Connect-ExchangeServer -auto
 
$mailbox = Get-Mailbox MailboxName
$mailAddress = $mailbox.PrimarySmtpAddress.ToString();
 
[Reflection.Assembly]::LoadFile("C:\Program Files (x86)\Microsoft\Exchange\Web Services\2.1\Microsoft.Exchange.WebServices.dll") | Out-Null
$s = New-Object Microsoft.Exchange.WebServices.Data.ExchangeService([Microsoft.Exchange.WebServices.Data.ExchangeVersion]::Exchange2007_SP1)
$s.AutodiscoverUrl($mailAddress);
 
$MailboxRootid = new-object  Microsoft.Exchange.WebServices.Data.FolderId([Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::MsgFolderRoot,$mailAddress)
$MailboxRoot = [Microsoft.Exchange.WebServices.Data.Folder]::Bind($s,$MailboxRootid)
 
# Get Folder ID from Path
Function GetFolder()
{
	# Return a reference to a folder specified by path
 
	$RootFolder, $FolderPath = $args[0];
 
	$Folder = $RootFolder;
	if ($FolderPath -ne '\')
	{
		$PathElements = $FolderPath -split '\\';
		For ($i=0; $i -lt $PathElements.Count; $i++)
		{
			if ($PathElements[$i])
			{
				$View = New-Object  Microsoft.Exchange.WebServices.Data.FolderView(2,0);
				$View.Traversal = [Microsoft.Exchange.WebServices.Data.FolderTraversal]::Deep;
				$View.PropertySet = [Microsoft.Exchange.WebServices.Data.BasePropertySet]::IdOnly;
 
				$SearchFilter = New-Object Microsoft.Exchange.WebServices.Data.SearchFilter+IsEqualTo([Microsoft.Exchange.WebServices.Data.FolderSchema]::DisplayName, $PathElements[$i]);
 
				$FolderResults = $Folder.FindFolders($SearchFilter, $View);
				if ($FolderResults.TotalCount -ne 1)
				{
					# We have either none or more than one folder returned... Either way, we can't continue
					$Folder = $null;
					Write-Host "Failed to find " $PathElements[$i];
					Write-Host "Requested folder path: " $FolderPath;
					break;
				}
 
				$Folder = [Microsoft.Exchange.WebServices.Data.Folder]::Bind($s, $FolderResults.Folders[0].Id)
			}
		}
	}
 
	$Folder;
}
 
$folderid = new-object  Microsoft.Exchange.WebServices.Data.Folderid([Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::Inbox,$mailAddress)
$InboxFolder = [Microsoft.Exchange.WebServices.Data.Folder]::Bind($s,$folderid)
 
$mails = $inboxFolder.FindItems(20) 
$mails | % {$_.Load()}
    foreach($Item in $mails.Items)
	{ 
 
#Get the email body
$body = Get-Content “C:\scripts\CareersEmailTemplate.htm”
$body = $body -replace “Placeholder”, $Placeholder
 
#Have to convert the object to a string to use in the mail body.
[string]$msgBody = $body
 
#Create the email message and set the Subject and Body
$message = New-Object Microsoft.Exchange.WebServices.Data.EmailMessage -ArgumentList $s
#Put Images inline
$message.Attachments.AddFileAttachment("C:\images\logo.png") | Out-Null
$message.Attachments[0].ContentId = "logo.png";
$message.From = “email@domain.com”
$message.Subject = “MessageSubject”
$message.Body = $msgBody
#Sets reciepients as sender
$message.ToRecipients.Add($item.Sender.Address)
 
#Send the message and save a copy in the users Sent Items folder (Alt is message.Send which will not save a copy.)
$message.SendAndSaveCopy()
 
#Move to Folder After Replying
$FolderObject = GetFolder($MailboxRoot, "\Inbox\Replied\");
		try
		{
		$Item.Move($FolderObject.Id) | out-null;
		}
		catch
		{
		Write-Host "Failed to move item", $Item.Id.UniqueId
		}
 
 
	}

Tags: AutoResponder, EWS, Exchange Web Services, InLine Attachments

Clearing Legacy Word 2003 Macro Icons from Word 2010 Add-Ins Bar

During an Office 2003 Migration to 2010 , some custom Interwoven Macro’s got converted into a User’s Normal.dotm file from Normal.dot and Displayed in the Users Add-In. The buttons did nothing when you pressed them.

Per this doco : http://blogs.msdn.com/b/cristib/archive/2012/03/30/vba-how-to-find-and-edit-the-office-2003-legacy-commandbars-and-menus-in-office-2010-add-remove-edit-controls-in-menu-commands-group-from-add-ins-tab.aspx

I tried to list all the controls using the below VB Script however the unlinked buttons where not listed, so I couldn’treference them in VB to remove by using :

Commandbars(1).Controls(“TheControl”).Delete

Source code

Sub ListAllControls()
 
Dim cmd As CommandBar
Dim ctr As CommandBarControl
 
Set cmd = Application.CommandBars("Menu Bar").Controls
 
On Error Resume Next
   For Each ctrl In ctr.Controls
     Debug.Print " " & ctrl.Caption & " "
 
     For Each sub_ctrl In cmd.Controls
         Debug.Print "  >> Caption: " & sub_ctrl.Caption & vbTab & vbTab; " OnAction: " & sub_ctrl.OnAction
     Next
   Next

I could remove them using the Gui in Word “Delete custom command” , however needed to roll this out across multiple users.

Instead I had to run the following command : ( Either as immediate ) ( Alt F11 then Ctrl G ) or in the macro code for main() which reset the whole toolbar

CommandBars.ActiveMenuBar.Reset

Tags: Customise Add-Ins Bar, Delete custom command, Normal.dotm, VB, Word 2003, Word 2010

Get BCC Field From Exchange Email via Tracking Logs

Recently we had a need to query emails sent to an Inbox and find out who the emails had been BCC’ed to. These would then need to be filed into folders based on the BCC address. When an email arrived in the inbox , the server striped the BCC field ( as normal ) so we had to find a way to get this value.

There are a few ways to get the BCC from a message in Exchange

• Envelope Journaling ( Setting up a rule to copy the whole email that was sent into a folder which still kept the BCC fields )
• You can build yourself a Transport Agent Dll http://gsexdev.blogspot.com.au/2011/06/processing-bccs-in-exchange-transport.html
• You can query the Exchange tracking logs based on MessageID

We opted for the third option and below is the scheduled task

Source code

# Connect to Exchange server and load Exchange powershell modules
. 'C:\Program Files\Microsoft\Exchange Server\V14\bin\RemoteExchange.ps1'
Connect-ExchangeServer -auto
 
$mailbox = Get-Mailbox -id mailboxname
$mailAddress = $mailbox.PrimarySmtpAddress.ToString();
 
[Reflection.Assembly]::LoadFile("C:\Program Files (x86)\Microsoft\Exchange\Web Services\2.1\Microsoft.Exchange.WebServices.dll") | Out-Null
$s = New-Object Microsoft.Exchange.WebServices.Data.ExchangeService([Microsoft.Exchange.WebServices.Data.ExchangeVersion]::Exchange2007_SP1)
$s.AutodiscoverUrl($mailAddress);
 
#Bind Root of Mailbox
$folderid = new-object  Microsoft.Exchange.WebServices.Data.FolderId([Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::MsgFolderRoot,$mailAddress)
$MailboxRoot = [Microsoft.Exchange.WebServices.Data.Folder]::Bind($s,$folderid)
 
# Function to Get Folder ID from Folder Path
Function GetFolder()
{
	# Return a reference to a folder specified by path
 
	$RootFolder, $FolderPath = $args[0];
 
	$Folder = $RootFolder;
	if ($FolderPath -ne '\')
	{
		$PathElements = $FolderPath -split '\\';
		For ($i=0; $i -lt $PathElements.Count; $i++)
		{
			if ($PathElements[$i])
			{
				$View = New-Object  Microsoft.Exchange.WebServices.Data.FolderView(2,0);
				$View.Traversal = [Microsoft.Exchange.WebServices.Data.FolderTraversal]::Deep;
				$View.PropertySet = [Microsoft.Exchange.WebServices.Data.BasePropertySet]::IdOnly;
 
				$SearchFilter = New-Object Microsoft.Exchange.WebServices.Data.SearchFilter+IsEqualTo([Microsoft.Exchange.WebServices.Data.FolderSchema]::DisplayName, $PathElements[$i]);
 
				$FolderResults = $Folder.FindFolders($SearchFilter, $View);
				if ($FolderResults.TotalCount -ne 1)
				{
					# We have either none or more than one folder returned... Either way, we can't continue
					$Folder = $null;
					Write-Host "Failed to find " $PathElements[$i];
					Write-Host "Requested folder path: " $FolderPath;
					break;
				}
 
				$Folder = [Microsoft.Exchange.WebServices.Data.Folder]::Bind($s, $FolderResults.Folders[0].Id)
			}
		}
	}
 
	$Folder;
}
 
#Bind Inbox of Mailbox
$Inboxid = new-object  Microsoft.Exchange.WebServices.Data.FolderId([Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::Inbox,$mailAddress)
$InboxFolder = [Microsoft.Exchange.WebServices.Data.Folder]::Bind($s,$Inboxid)
 
# Get x Items in Inbox
$mails = $InboxFolder.FindItems(5) 
 
    foreach($Item in $mails.Items)
	{  
	# Get list of Reciepients from Message ID that has been BCC'ed 
	$mailrecipeients = Get-MessageTrackingLog -MessageID $item.InternetMessageId | where{$_.RecipientStatus -eq "Bcc"} |% {$_.recipients}
 
		if ($mailrecipeients -match "[email protected]") 
		{
			$FolderObject = GetFolder($MailboxRoot, "\Moved\Folder");
			try
			{
				$Item.Move($FolderObject.Id) | out-null;
			}
				catch
			{
				Write-Host "Failed to move item", $Item.Id.UniqueId
		}
 
		}
 
 
 
	}

Tags: BCC, EWS, EWS Folder ID Function, Exchange Tracking Logs, Function to Get Folder ID from Folder Path EWS

Inbox Filer / Auto Filer not working – Enable

Per this blog post this is how to Auto Filer in iManage Emm Toolbar is supposed to work

When an e-mail is filed into a workspace, a tag is added to the subject line of the e-mail in brackets. The format of the Subject Tag is
<Original Subject> [<Firm ID>-<Database>.<Folder ID>].
The format and position of the Subject Tag can be customized by modifying registry keys. Refer to the WorkSite Desktop Client Customization Guide for more
information.

When an e-mail that you have sent and filed using E-mail Management is returned to you (for example, someone replied to your e-mail), it is flagged in the Inbox to
indicate that the e-mail has been automatically filed to the same WorkSite folder as the original.
An Inbox Filer checks the Subject Tag of each new e-mail in the Inbox. If the format of the Subject Tag is correct, the Inbox Filer checks whether the e-mail is
filed. If the e-mail is filed, the filer marks it as filed. If the e-mail is not filed, the Inbox Filer files the e-mail to the appropriate location, and then marks it as filed.

To enable this you need to have the following Registry Keys

HKEY_CURRENT_USER\Software\Interwoven\WorkSite\8.0\EMM\Config

DisableInboxFiler : False ( String )

DisableSentFiler : False ( String )

Tags: Auto Filer, imanage, InboxFiler, worksite