Command
SkypeSetupFull.exe /VERYSILENT /SP- /NOCANCEL /NORESTART /SUPPRESSMSGBOXES /NOLAUNCH
LANDesk Wrapper – Batch
@echo on cls title Skype Installer :: this is the LANDesk 32bit wrapper – to be compiled :: launch splash screen Echo Installing Skype… if exist C:\Progra~2\LANDesk\LDClient\sdmcache\apps\Microsoft\Skype\7.31.80.104\progress.hta ( start “” C:\Progra~2\LANDesk\LDClient\sdmcache\apps\Microsoft\Skype\7.31.80.104\progress.hta ) :: install Skype silently “C:\Progra~2\LANDesk\LDClient\sdmcache\apps\Microsoft\Skype\7.31.80.104\SkypeSetupFull.exe” /VERYSILENT /SP- /NOCANCEL /NORESTART /SUPPRESSMSGBOXES /NOLAUNCH :: delete exe del /q “C:\Progra~2\LANDesk\LDClient\sdmcache\apps\Microsoft\Skype\7.31.80.104\SkypeSetupFull.exe” :: kill splash %windir%\system32\taskkill.exe /f /im mshta.exe :: delete progress animation files del /q “C:\Progra~2\LANDesk\LDClient\sdmcache\apps\Microsoft\Skype\7.31.80.104\progress.*” :: delete this sequence file del /q “C:\Progra~2\LANDesk\LDClient\sdmcache\apps\Microsoft\Skype\7.31.80.104\sequence.cmd” exit /b 0
LANDesk Wrapper – VBScript
on error resume next
Dim CommandLine, CurrentFolder, objfso, Path64, Path86, LDFolder, objShell
set objShell = CreateObject("WScript.Shell")
Set objfso = CreateObject("Scripting.FileSystemObject")
'Determine if 32 or 64 bit LDClient is installed
Path64 = "C:\Progra~2"
Path86 = "C:\Progra~1"
LDFolder = "\LANDesk\LDClient\sdmcache\apps\Microsoft\Skype\7.31.80.104"
If (objfso.FolderExists(Path64 & LDFolder)) Then
CurrentFolder = Path64 & LDFolder
Else
CurrentFolder = Path86 & LDFolder
End If
'kills the progress bar
objShell.Run "taskkill.exe /f /im mshta.exe",0,False
WScript.Sleep 2000
'launches the progress bar
objShell.Run "%comspec% /c " & CurrentFolder & "\progress.hta",0,False
'set command line operation
CommandLine = "%comspec% /c " & chr(34) & CurrentFolder & "\SkypeSetupFull.exe" & Chr(34) & " /VERYSILENT /SP- /NOCANCEL /NORESTART /SUPPRESSMSGBOXES /NOLAUNCH"
'launch operation
objShell.Run CommandLine,0,True
WScript.Sleep 2000
'kills the progress bar
objShell.Run "taskkill.exe /f /im mshta.exe",0,false
'clear session
CommandLine = ""
CurrentFolder = ""
Path64 = ""
Path86 = ""
LDFolder = ""
objfso = ""
objShell = ""
WScript.Quit(0)
Elevated Wrapper – should be compiled
On Error Resume Next
Dim CommandLine, strTemp, objRegistry, strComputer, regValue, regValueName, regPath, objShell, strDate, BuildVersion, strComputerName, UName, PWord
Const HKEY_LOCAL_MACHINE = &H80000002
AppName = "Skype"
BuildVersion = "7.31.80.104"
'there are better ways to elevate processes
'see Microsoft's SecureString and ProcessStartInfo
UName = "administrator"
PWord = "TheAdminPassword"
strTemp = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%temp%" & "\" & AppName)
strComputer = "."
strComputerName = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%computername%")
'set event log command
CreateEventLog = "EVENTCREATE /T INFORMATION /L Application /ID 777 /d " & Chr(34) & "Software Packaging Engineer: " & AppName & " " & BuildVersion & " package installation"
Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
set objShell = CreateObject("WScript.Shell")
SetStringValue = REG_SZ
'set command line operation
CommandLine = strTemp & "\cpau.exe -u " & strComputerName &"\" & UName & " -p " & PWord & " -ex " & chr(34) & strTemp & "\SkypeSetupFull.exe /VERYSILENT /SP- /NOCANCEL /NORESTART /SUPPRESSMSGBOXES /NOLAUNCH" & chr(34) & " -lwop -wait"
'kills the progress bar
'objShell.Run "taskkill.exe /f /im mshta.exe",0,false
WScript.Sleep 2000
'launches the progress bar
'objShell.Run strTemp & "\progress.hta",9,false
'Launch operation with event logging
objShell.Run CreateEventLog & " STARTED" & Chr(34),0,True
objShell.Run CommandLine,0,True
objShell.Run CreateEventLog & " COMPLETED" & Chr(34),0,True
WScript.Sleep 2000
'Stamp registry for tracking
strDate = chr(34) & NOW & chr(34)
regValueName = "Timestamp"
regPath = "SOFTWARE\TRACKER\" & AppName & "\" & BuildVersion
'create main key
objRegistry.CreateKey HKEY_LOCAL_MACHINE, regPath
'set value
objRegistry.SetStringValue HKEY_LOCAL_MACHINE,regPath, regValueName, strDate
WScript.Sleep 2000
'kills the progress bar
'objShell.Run "taskkill.exe /f /im mshta.exe",0,false
'Clear session
CommandLine = ""
strTemp = ""
objRegistry = ""
strComputer = ""
regValue = ""
regValueName = ""
regPath = ""
objShell = ""
strDate = ""
AppName = ""
BuildVersion = ""
strComputerName
UName = ""
PWord = ""
WScript.Quit(0)