Eolsoft Winmail Opener

Version: 1
Views: 1.7k  |  Created: 02/01/2007

Average Rating: 0
Winmail Opener has 4 inventory records, 0 Questions, 0 Blogs and 0 links. Please help add to this by sharing more!

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
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.


'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
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"
'Defaulting to UNKNOWN
sInstallType = "UNKNOWN"
End If
OSVersionLookup = sInstallType
End Function
Setup Information:
Setup Type: unspecified
Deployment Method Used: unspecified
Deployment Difficulty: unspecified
Platform(s): Windows
Please log in to comment

Inventory Records (4)

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

Winmail Opener



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

Reviews (0)

Reviews related to Eolsoft Winmail Opener