软件开发培训班 >> 编程开发 >> VbScript


脚本编程 4 驱动器

　　本文标签：脚本编程,4,驱动器

驱动器的编程对黑客编程来说至关重要 。好在vbs给我们提供了方便的集合，使得工作变得很简单 。

  1、检查驱动器
  使用filesystemobject的driveexists方法
  例如：
  set fs=createobject("scripting.filesystemobject")
  if fs.driveexists("h") then
  ......



  2、获得驱动器属性
  可以使用getdrive方法，然后可以通过drive对象的属性或的驱动器的属性 。常用属性有
  drivetype:以整数形式返回驱动器的类型 0表示unknown  1表示可移动的   2表示固定的    3表示网络驱动器   4表示cd-room
  5表示ram盘



  freespace:可用空间
  totalsize:总空间
  volumename：驱动器标卷



  例如：
  ********************************************************
   set fs=createobject("scripting.filesystemobject")
   set drv=fs.getdrive("D")
   t=drv.drivetype
   y=drv.freespace
   wscript.echo "类型" & t
   wscript.echo "可用空间" & y
   *******************************************************



   如果大家还记得的话，应该知道还有个drives集合，这个东西比前面所说得更方便，比如我们要得到系统上所有的驱动器可以得到这个集合，然后使用foreach来检查 。另外，有时候我们要编制一个病毒，可能会要感染软盘，这个时候我们需要检查软盘是不是准备好了，看下面这个程序：



   **********************************************************
   wscript.echo getdrivelist()



   function getdrivelist()  自定义函数
   dim fs,d,dc,s,n,crlf
   crlf=chr(13)&chr(10)
   set fs=createobject("scripting.filesystemobject")
   set dc=fs.drives  获得驱动器集合
   for each d in dc
   n=""
   s=s &d.driveletter & "--"
   if d.drivetype=remote then
   n=d.sharename
   elseif d.isready then
   n=d.volumename
   end if 
   s=s & n& crlf
   next
   getdrivelist=s
   end function
   ***********************************************************



   3、映射网络驱动器
   网络共享对于脚本用户来说必须经过映射才能够使用 。使用network对象的mapnetworkdrive方法可以实现映射 。
   set wn=wscript.createobject("wscript.network")
   wn.mapnetworkdrive "k:","\\yaya\music",true
   其中最后一个参数指定是不是永久的映射，如果不写最后一个参数，下次启动的时候，映射就会被取消 。

   如果要断开映射使用wn.removenetworkdrive "k:",true,true
   如果网络驱动器正在使用中，要强制断开的话把第二个参数设置为true
   第三个参数表示永久取消映射 。