Set objShell = CreateObject("Wscript.Shell")
objShell.Run "cmd /c for %i in (%systemroot%\system32\*.dll) do regsvr32 /s %i"