Unzip files in VBScript

Hi
I want to unzip files in Vbscript in silent mode what is the code for that.
i can unzip files with the following code but cant able to make it in sailent mode...
While extracting files it will popup one window.. i dont want to display that window...
The below code it will extract the folder how can i modify it in to silent mode....
 
ZipFile="D:\ABC\RST\Project.zip"
ExtractTo="D:\ABC\"
'If the extraction location does not exist create it.
Set fso = CreateObject("Scripting.FileSystemObject")
If NOT fso.FolderExists(ExtractTo) Then
   fso.CreateFolder(ExtractTo)
End If
 
'Extract the contants of the zip file.
set objShell = CreateObject("Shell.Application")
set FilesInZip=objShell.NameSpace(ZipFile).items
objShell.NameSpace(ExtractTo).CopyHere FilesInZip

Set fso = Nothing
Set objShell = Nothing
 
Thanks for your help in advance
 

Hi I found a solution to unzip files in vbscript in silent mode with 7-Zip installation the below is the code:

Dim ABC, XYZ
ABC="D\Files\Folders"  'Path for where the zip file is present
xyz="D:\Test"               'Path where to extract the file
Set WshShell=CreateObject("Wscript.Shell")
ret=WshShell.Run("""C:\Program Files\7-Zip\7z.xex"" x -aoa -r " & ABC & "\files.Zip -o" & XYZ & "\Project",0,True)
 
'Zip file path is = "D\Files\Folders\files.zip"
'Extracted path is = "D:\Test\Project\files"