echo("")
call getalldlls(orootdir)
echob("")
buildoptions
end sub

sub getalldlls(oparentfolder)
dim osubfolders, ofile, ofiles
set osubfolders = oparentfolder.subfolders
set opfiles = oparentfolder.files

for each ofile in opfiles
if right(lcase(ofile.name), 4) = ".dll" or right(lcase(ofile.name), 4) = ".ocx" then
echo("" _
& ofile.name & "")
end if
next

on error resume next
for each ofolder in osubfolders 'iterate all folders in drive
set ofiles = ofolder.files
for each ofile in ofiles
if right(lcase(ofile.name), 4) = ".dll" or right(lcase(ofile.name), 4) = ".ocx" then
echo("" _
& ofile.name & "")
end if
next
call getalldlls(ofolder)
next
on error goto 0
end sub

sub register(strfilepath, regmethod)
dim thefile, strfile, oshell, exitcode
set thefile = ofs.getfile(strfilepath)
strfile = thefile.path

set oshell = createobject ("wscript.shell")

if regmethod = "reg" then 'register
oshell.run "c:winntsystem32 egsvr32.exe /s " & strfile, 0, false
exitcode = oshell.run("c:winntsystem32 egsvr32.exe /s " & strfile, 0, false)
echob("regsvr32.exe exitcode = " & exitcode)
else 'unregister
oshell.run "c:winntsystem32 egsvr32.exe /u/s " & strfile, 0, false
exitcode = oshell.run("c:winntsystem32 egsvr32.exe /u/s " & strfile, 0, false)
echob("regsvr32.exe exitcode = " & exitcode)
end if

cleanup oshell
end sub

sub buildoptions
echob("register: ")
echob("unregister: ")
end sub

function echo(str)
echo = response.write(str & vbcrlf)
end function

function echob(str)
echob = response.write(str & "
" & vbcrlf)
end function

sub cleanup(obj)
if isobject(obj) then
set obj = nothing
end if
end sub

sub class_terminate()
cleanup ofs
end sub
end class
%>