Wget "http://www.sofaswitch.org/mikej/XGZip.dll", DestFolder\r
End If\r
\r
- Set oExec = WshShell.Exec("regsvr32 /s " & DestFolder & "XTar.dll")\r
+ WshShell.Run "regsvr32 /s " & DestFolder & "XTar.dll", 6, True\r
\r
- Do While oExec.Status = 0\r
- WScript.Sleep 100\r
- Loop\r
+ WshShell.Run "regsvr32 /s " & DestFolder & "XGZip.dll", 6, True\r
\r
- Set oExec = WshShell.Exec("regsvr32 /s " & DestFolder & "XGZip.dll")\r
- \r
- Do While oExec.Status = 0\r
- WScript.Sleep 100\r
- Loop\r
End Sub\r
\r
Sub UnTarGZ(TGZfile, DestFolder)\r