注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

K8拉登哥哥's Blog

K8搞基大队[K8team] 信息安全 网络安全 0day漏洞 渗透测试 黑客

 
 
 

日志

 
 

VBS和JS列出所有驱动器[K8team]  

2011-07-11 20:20:32|  分类: 脚本编程 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

VBS和JS列出所有驱动器[K8team]

<script language="vbscript">
Sub ShowDriveList()
    Dim fs, d, dc, s, n
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set dc = fs.Drives
    For Each d In dc
        If d.isready Then
            s = s & d.DriveLetter & " - "
            If d.DriveType = 3 Then
                n = d.ShareName
            Else
                n = d.VolumeName
            End If
            s = s & n & "<br>"
        End If
    Next
    document.write(s)
End Sub
call ShowDriveList
</script>

<--document.write(s)   MsgBox s   vbCrLf-->


<script>
function ShowDriveList()
{
    var partion=null;
    var statistics='';
    var fso =new ActiveXObject("Scripting.FileSystemObject");
    var e = new Enumerator(fso.Drives);
    var s = "";
    for (; !e.atEnd(); e.moveNext())
    {
        x = e.item();
        s = s + x.DriveLetter;
        s += " - ";
        if (x.DriveType == 3)
            n = x.ShareName;
        else if (x.IsReady)
            n = x.VolumeName;
        else
            n = "[驱动器未就绪]";
        s +=   n + "<br>";
   }
    document.write(s);
}
ShowDriveList();
</script>
  评论这张
 
阅读(536)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2016