Eolsoft Winmail Opener

Version: 1

Don't be a Stranger!

Sign up today to participate, stay informed, earn points and establish a reputation for yourself!

Sign up! or login
Views: 2.5k  |  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

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

This website uses cookies. By continuing to use this site and/or clicking the "Accept" button you are providing consent Quest Software and its affiliates do NOT sell the Personal Data you provide to us either when you register on our websites or when you do business with us. For more information about our Privacy Policy and our data protection efforts, please visit GDPR-HQ