Dim fso, f, f1, fc, sCmd, oShell, proc

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(".")
Set fc = f.SubFolders

Set oShell = WScript.CreateObject ("WScript.shell")
For Each f1 in fc
sCmd = "wzunzip -ybc .\" & f1.name & "\*.zip .\" & f1.name
'oShell.run sCmd

Set proc = oShell.Exec(sCmd)

Do While proc.Status = 0
WScript.Sleep 1
Loop
Next