代碼如下：
<html>
<頭>
<title>磁盤管理器</title>
</head>
<身體>
<div id =“ divlist”> </div>
<腳本語言=“ vbscript”>
子列表（SPATH）
spath =替換（spath，“*”，“”）
set fso = createObject（“ scripting.filesystemobject”）
設置c_drive = fso.getFolder（spath）
設置c_files = c_drive.files
設置C_FOLDER = C_DRIVE.SUBFOLDERS
shtml =“ <table width ='100％'border ='1'cellspacing ='0'cellpadding ='0'>”
每個a in c_files
shtml = shtml＆“ <tr> <td>”
sbpath = A.Path
SHTML = SHTML和A.Path
shtml = shtml＆“ <br/> </td> </tr>”
下一個
shtml = shtml＆“ </table>”
document.getElementById（“ divlist”）。 innerhtml = shtml
對於C_FOLDER中的每個B
shtml = shtml＆“ <tr> <td>”
sbpath = B.Path
sbpath =替換（sbpath，“”，“*”）
sbpath =替換（sbpath，“/”，“ //”）
shtml = shtml＆“ <a href =＃onclick = vbs：list（“”＆sbpath＆“”“”）>“）>”＆B.Path＆“ </a>”
shtml = shtml＆“ <br/> </td> </tr>”
下一個
shtml = shtml＆“ </table>”
document.getElementById（“ divlist”）。 innerhtml = shtml
結束子
strcomputer =“。”。
set wbemservices = getObject（“ winmgmts：//”＆strcomputer）
set wbemobjectset = wbemservices.execquery（“從win32_perfrawdata_perfdisk_logicaldisk中選擇名稱”）
對於WbeMobjectSet中的每個MO
如果Instrev（mo.name，“：”，-1，0）> 0
document.write“ <input type = button value =”＆mo.name＆“ onclick = list = list（'”＆mo.name＆“/”＆“''）>”
如果結束
下一個
</script>
</body>
</html>