代碼如下:
<html>
<head>
<title>磁盤管理器</title>
</head>
<body>
<div id=divlist></div>
<script language=vbscript>
sub list(spath)
spath = replace(spath, *, )
set fso = createobject(scripting.filesystemobject)
set c_drive = fso.getfolder(spath)
set c_files = c_drive.files
set c_folder = c_drive.subfolders
shtml = <table width='100%' border='1' cellspacing='0' cellpadding='0'>
for each a in c_files
shtml = shtml & <tr><td>
sbpath = a.path
shtml = shtml & a.path
shtml = shtml & <br /></td></tr>
next
shtml = shtml & </table>
document.getelementbyid(divlist).innerhtml = shtml
for each b in c_folder
shtml = shtml & <tr><td>
sbpath = b.path
sbpath = replace(sbpath, , *)
sbpath = replace(sbpath, \, \\)
shtml = shtml & <a href=# onclick=vbs:list( & sbpath & )> & b.path & </a>
shtml = shtml & <br /></td></tr>
next
shtml = shtml & </table>
document.getelementbyid(divlist).innerhtml = shtml
end sub
strcomputer = .
set wbemservices = getobject(winmgmts:\\ & strcomputer)
set wbemobjectset=wbemservices.execquery(select name from win32_perfrawdata_perfdisk_logicaldisk)
for each mo in wbemobjectset
if instrrev(mo.name,:, -1, 0)>0 then
document.write <input type=button value=&mo.name& onclick=list('&mo.name&\&')>
end if
next
</script>
</body>
</html>