'Startup VB script to install Windows Live Mail for Windows 7
on error resume next
Dim WshShell, Fso
Set WshShell = CreateObject("WScript.Shell")
Set Fso = CreateObject("Scripting.FileSystemObject")
If Not (Fso.FileExists((WshShell.ExpandEnvironmentStrings("%PROGRAMFILES%"))&"\Windows Live\Mail\wlmail.exe")) Then
   WshShell.Run "\\share\wlsetup-all.exe /AppSelect:Mail /quiet", 1,True
End If