Why you should patch your systems

WannaCry ransomware has hit computers all over the world. This is my opinion about it.

I must admit that patching your computers especially if you have a lot of them and older internally developed tools can be time consuming and complicated.

There are tools to help you manage updates across the network but sometimes you miss how a change can impact something that your users depend on and you have a bad day.

However not patching and keeping your systems on the latest version will catch you out. I really wouldn’t like to be the person who has to explain to the CEO why much of his business critical data is now encrypted because I didn’t go through all the effort and pain of doing my job. Yes running computer systems and dealing with users who just want to keep everything the same is hard, but convincing people about the right way of doing things is part of our job. Whether you agree with upgrading and patching or not, the reality is that this is one of the best ways to protect against many attack vectors.

Click the link for more information about WannaCry ransomware used in widespread attacks all over the world – Securelist

Does Microsoft Slow Down Onedrive Performance on Linux?

Quote

http://www.techradar.com/news/microsofts-onedrive-performance-on-linux-is-causing-quite-a-storm

The interesting point here is that when using a Windows PC on the exact same connection with the OneDrive app, everything runs smooth and fast.

And the plot gets thicker, as these Linux users have observed that changing the browser’s user-agent string (the text a browser sends to a site to identify itself) to either Microsoft’s Edge or IE speeds the OneDrive web experience up to a fluid level on a Linux (or Chrome OS) system.

 

Does your company allow you to work on side projects from home?

There are some work contracts that can mean that if you work on anything during (and sometimes after) you are contracted to them the company has ownership of your work. Even if that work is completely in your personal time using your own resources. GitHub wants to change that with a fairer contract that allows workers to contribute to personal or community projects to bring more balance to the IP relationship between employers and employees.

To read more visit their blog here https://github.com/blog/2337-work-life-balance-in-employee-intellectual-property-agreements

 

 

Save / Extract Outlook Attachments from emails and save them to a Folder

I have been meaning to post this for a while.
Some VBA code to extract attachments from a folder in Outlook and save them.

You can choose the Outlook folder but it is hard coded to save the attachments to C:\Email Attachments\
Sub AttachDetach()
‘ *******************************************************************************
‘ Name – AttachDetach
‘ Description – Removes Attachements from an Outlook Folder and saves them to C:\Email Attachments\
‘ Date Changed – 10/03/2011 <– Please keep this up to date
‘ Changed by – Dan Thomas  <– Please keep this up to date
‘ *******************************************************************************

Dim ns As NameSpace

Dim Inbox As MAPIFolder

Dim item As Object

Dim Atmt As attachment

Dim filename As String

Dim i As Integer

Set ns = GetNamespace(“MAPI”)

Set Inbox = ns.PickFolder

i = 0

If Inbox.Items.Count = 0 Then

MsgBox “There are no messages in the Inbox.”, vbInformation, _

“Nothing Found”

Exit Sub

End If

For Each item In Inbox.Items

For Each Atmt In item.Attachments

filename = “C:\Email Attachments\” & i & Atmt.filename

Atmt.SaveAsFile filename

i = i + 1

Next Atmt

Next item

If i > 0 Then

MsgBox “I found ” & i & ” attached files.” _

& vbCrLf & “I have saved them into the C:\Email Attachments folder.” _

& vbCrLf & vbCrLf & “Have a nice day.”, vbInformation, “Finished!”

Else

MsgBox “I didn’t find any attached files in your mail.”, vbInformation, _

“Finished!”

End If

GetAttachments_exit:

Set Atmt = Nothing

Set item = Nothing

Set ns = Nothing

End Sub

Windows Vista support is ending on April 11, 2017

Some may say that it is about time, others may have thought that it had already happened, but Windows Vista support is ending. This means that if you have Vista installed (you brave, brave person!) then you will no longer receive new security updates, non-security hotfixes, free or paid assisted support options, or online technical content updates from Microsoft.

Read more at: Windows Vista support is ending – Windows Help
(With advert for Windows 10)

Microsoft Outlook – Keep zoom setting when reading emails

Open up Outlook
Press Alt and F11

Navigate to:
Project1 | Microsoft Outlook Objects | ThisOutlookSession

Paste the code below in (about 52 lines)

'  --- Start Copy Here ---
'*******************************************************************
'* The code below changes the zoom for reading and writing e-mails *
'* Written By: Dan Thomas                                          *
'* Date: 30th Oct 2012                                             *
'*******************************************************************
Option Explicit
' For more information on the below varibles please see http://msdn.microsoft.com/en-us/library/office/microsoft.office.interop.outlook.aspx
Dim WithEvents objOLInspectors As Outlook.Inspectors   'Define the Outlook Inspectors varable
Dim WithEvents objOLMailItem As Outlook.MailItem       'Define the Outlook Mail Item varible
Dim WithEvents objOLOpenInspector As Outlook.Inspector 'Define the Outlook Inspector varable

Private Sub Application_Startup()
' Set the Inspectors object to the objOLInspectors varible at start of application
' This will generate a warning to ask if you want to enable Macros when starting Outlook within Airbus
Set objOLInspectors = Application.Inspectors
End Sub

Private Sub Application_Quit()
' Sets all the varibles to nothing when quitting outlook
Set objOLInspectors = Nothing
Set objOLOpenInspector = Nothing
Set objOLMailItem = Nothing
End Sub

Private Sub objOLInspectors_NewInspector(ByVal Inspector As Inspector)
' This sets the objects to varibles when opening mails
If Inspector.CurrentItem.Class = olMail Then
Set objOLMailItem = Inspector.CurrentItem
Set objOLOpenInspector = Inspector
End If
End Sub

Private Sub objOLOpenInspector_Close()
' Clears the varibles when closing e-mails
Set objOLMailItem = Nothing
End Sub

Private Sub objOLOpenInspector_Activate()

'For Office 2007
'Dim wrdDoc As Word.Document

'For Office 2010
Dim wrdDoc As Object

' For the below to work you have to go to Tools|References... and make sure the Microsoft Office 14.0 Object Library has been selected
Set wrdDoc = objOLOpenInspector.WordEditor ' Sets the wrdDoc Varible to the Word Editor object

' Set the number at the end of this line for zoom amount
wrdDoc.Windows(1).Panes(1).View.Zoom.Percentage = 145
End Sub
'  --- End Copy Here ---

Click save
Check that Tools|References... and make sure the Microsoft Office 14.0 Object Library has been selected
If you have Outlook 2007 you may have to activate the line that says Dim wrdDoc As Word.Document
and rem the line that says Dim wrdDoc As Object

Close outlook and restart

Cisco Router stuck in rommon

If you try to power cycle some types of Cisco routers then you may get it stuck in rommon.

It will generally flash a red light at you and when you try to Telnet into it the command prompt will display romon 1>

Just simply type in
confreg 0x2102
Then press the enter key and then type in
reset

The router should then boot up as normal.