批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

vbs删除默认共享

  1. '////作者:youxi01@bbs.bathome.net
  2. '////很早期的作品;
  3. dim wsh,suc,err
  4. suc="成功删除下列共享:"
  5. err="以下共享删除失败:"
  6. set wsh=createobject("wscript.shell")
  7. set fso=createobject("scripting.filesystemobject")
  8. set dr=fso.drives
  9. for each d in dr
  10. delchk(d.driveletter)
  11. next
  12. delchk("ADMIN")
  13. delchk("IPC")
  14. function delchk(dshare)
  15. strreturn=wsh.run("net share " &dshare &"$ /del",false,1)
  16. if strreturn=2 then
  17. err=err & dshare& vbcrlf
  18. else
  19. suc=suc & dshare & vbcrlf
  20. end if
  21. end function
  22. wscript.echo err & suc
复制代码

返回列表