Extract MSI vbs script

Set objdialog = Createobject ("useraccounts. commondialog ")
Objdialog. Filter = "Msi files | *. MSI"
Intresult = objdialog. showopen
If intresult = 0 then
Wscript. Quit
Else
End if
Msisource = objdialog. filename

Const my_computer = & H11 &
Const window_handle = 0
Const Options = 0
Set objshell = Createobject ("Shell. Application ")
Set objfolder = objshell. namespace (my_computer)
Set objfolderitem = objfolder. Self
Strpath = objfolderitem. Path
Set objshell = Createobject ("Shell. Application ")
Set objfolder = objshell. browseforfolder (window_handle, "extract MSI to:", options, strpath)
If objfolder is nothing then
Wscript. Quit
End if
Set objfolderitem = objfolder. Self
Objpath = objfolderitem. Path
Msidestination = objpath

Set objshell = Createobject ("wscript. Shell ")
Objcommand = "msiexec.exe/a" & CHR (34) & msisource & CHR (34) & "/Qn targetdir =" & CHR (34) & msidestination & CHR (34)
Objshell. Run (objcommand)

Msgbox "done"
Objshell. Run "assumer.exe/e," & msidestination

Download
/Files/CN/extractmsi.zip