Option Explicit
dim objShell, objWshShell, objFolder, zipFile, i

if WScript.Arguments.Count < 1 or WScript.Arguments.Count > 2 then 
    WScript.Echo "Usage: CScript.exe UnZip.VBS ZIPFile [objFolder]"
    WScript.Quit 
end if

Set objShell = CreateObject("Shell.Application")
Set objWshShell = WScript.CreateObject("WScript.Shell")
Set zipFile = objShell.NameSpace (WScript.Arguments(0)).items
if WScript.Arguments.Count = 2 then 
    Set objFolder = objShell.NameSpace (WScript.Arguments(1))
else
    Set objFolder = objShell.NameSpace (objWshShell.CurrentDirectory)
end if

objFolder.CopyHere zipFile, &H14  'no dialog box & all of selections are yes


