'On Error Resume Next

dim oShell
set oShell= WScript.CreateObject("WScript.Shell") 
dim str
str = "C:\WINDOWS\system32\regsvr32.exe  /s C:\Users\Alex\Desktop\WebBr\WBWeb.ocx"
oShell.Run str

\r\n\'On Error Resume Next\r\ndim PathProg, PathFile\r\ndim str\r\ndim oShell\r\nset oShell=WScript.CreateObject("WScript.Shell") \r\n\r\nPathProg="C:\\WINDOWS\\system32\\regsvr32.exe"\r\nPathFile="C:\\Documents and Settings\\ALEX\\Рабочий стол\\WebBr\\WBWeb.ocx"\r\nstr=chr(34) & PathProg & chr(34) & "/s" & " " & chr(34) & PathFile & chr(34)\r\n\r\noShell.Run str\r\n