Option Explicit
On Error Resume Next


Dim sClamWinPath, oShell, oStatus


Set oShell = CreateObject("WScript.Shell")


sClamWinPath = oShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ClamWin\Path")


Set oStatus = oShell.Exec("""" & sClamWinPath & "\update.cmd"" """ & sClamWinPath & "\ClamWin.conf""")

Do While oStatus.Status = 0
  WScript.Sleep(100)
Loop