IT Pro Tips for Eolsoft Winmail Opener 1

Deployment Tips (1)

Most Common Setup Type

Not Determined

Average Package Difficulty Rating

Rated 0 / 5 (Not Rated) based on 0 ratings

Most Commonly Reported Deployment Method

Not Determined

3

Note

To do a silent install, just use a '/S' command line switch. I ran into issues because it wouldn't populate the shortcuts when deployed with LANDesk to XP (worked fine with Windows 7, go figure).

I know this is a lot of code to do something that is pretty simple, but 95% of it is functions/snippets of code I reuse.

install.vbs

'Declare scripting objects
Set oNet = WScript.CreateObject("WScript.Network")
Set oShell = WScript.CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oSpecFolders = oShell.SpecialFolders

Dim eAllUsersDesktop, eAllUsersPrograms

'Declare Environment variables
eAllUsersProfile = oShell.ExpandEnvironmentStrings("%AllUsersProfile%")
eUserProfile = oShell.ExpandEnvironmentStrings("%UserProfile%")
eProgramFiles = oShell.ExpandEnvironmentStrings("%ProgramFiles%")
eAllUsersDesktop = oSpecFolders("AllUsersDesktop") 'C:\Documents and Settings\All Users\Desktop
eAllUsersPrograms = oSpecFolders("AllUsersPrograms")

'Install silently
oShell.Run """" & GetScriptPath & "Winmail_Opener.exe"" /S",0,True

'Delete the desktop shortcut if this isn't windows XP
If OSVersionLookup = "XP" Then
If oFSO.FolderExists(eAllUsersPrograms & "\Winmail Opener") = False Then oFSO.CreateFolder eAllUsersPrograms & "\Winmail Opener"
CreateIcon eAllUsersDesktop & "\Winmail Opener.lnk",eProgramFiles & "\Winmail Opener\wmopener.exe","","Winmail Opener",eProgramFiles & "\Winmail Opener",eProgramFiles & "\Winmail Opener\wmopener.exe,0"
CreateIcon eAllUsersPrograms & "\Winmail Opener\Winmail Opener.lnk",eProgramFiles & "\Winmail Opener\wmopener.exe","","Winmail Opener",eProgramFiles & "\Winmail Opener",eProgramFiles & "\Winmail Opener\wmopener.exe,0"
End If

sub CreateIcon(sPath,sTarget,sArguments,sDescription,sWorkingDir,sIconLocation)
set oShell = WScript.CreateObject("WScript.Shell")

set oLink = oShell.CreateShortcut(sPath)
oLink.TargetPath = sTarget
oLink.Arguments = sArguments
oLink.Description = sDescription
oLink.WorkingDirectory = sWorkingDir
oLink.IconLocation = sIconLocation
oLink.Save
end Sub

Function GetScriptPath
' Return path to the current script
Dim path
path = WScript.ScriptFullName ' script file name
GetScriptPath = Left(path, InstrRev(path, "\"))
End Function

Function OSVersionLookup
Set oWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = oWMIService.ExecQuery("Select * From Win32_OperatingSystem")

Dim sInstallType

'Check the version of Windows
For Each oItem in colItems
If Instr(oItem.Caption, "Windows Vista") Then
sInstallType = "VISTA"
ElseIf InStr(oItem.caption, "Microsoft Windows 7") Then
sInstallType = "WIN7"
ElseIf InStr(oItem.Caption, "Microsoft Windows XP") Then
sInstallType = "XP"
Else
'Defaulting to UNKNOWN
sInstallType = "UNKNOWN"
End If
Next
OSVersionLookup = sInstallType
End Function

Setup Information:

Setup Type: unspecified

Deployment Method Used: unspecified

Deployment Difficulty: unspecified

Platform(s): Windows

FarmerPete
04/06/2011
Show Comments ( 0 )

Inventory Records (4)

View inventory records anonymously contributed by opt-in users of the K1000 Systems Management Appliance.

Versions

Winmail Opener

Version

1.4

Uninstall String

C:\Program Files\Winmail Opener\uninst.exe C:\Program Files (x86)\Winmail Opener\uninst.exe C:\Programme\Winmail Opener\uninst.exe C:\Programfiler\Winmail Opener\uninst.exe

Questions & Answers (0)

Questions & Answers related to Eolsoft Winmail Opener

Blogs (0)

Blog posts related to Eolsoft Winmail Opener

Links (0)

Links related to Eolsoft Winmail Opener

Reviews (0)

Reviews related to Eolsoft Winmail Opener

Eolsoft Winmail Opener

Don't be a Stranger!