码迷,mamicode.com
首页 > 其他好文 > 详细

如何快速取消所有文件夹共享?进来瞧瞧

时间:2016-07-30 18:04:47      阅读:178      评论:0      收藏:0      [点我收藏+]

标签:

原文:如何快速取消所有文件夹共享?进来瞧瞧

 快速取消所有文件夹共享:
把文件夹共享给别人但忘记取消,想取消共享但找不到那个文件夹了,怎么办?
双击这个工具,可清除所有共享。
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colShares = objWMIService.ExecQuery _
    ("Select * from Win32_Share Where Name <> ‘C$‘ and Name <> ‘D$‘ and Name <> ‘E$‘ and Name <> ‘F$‘")
For Each objShare in colShares
    objShare.Delete
Next
MsgBox "共享目录已清除"

 

将以上代码另存为.vbs格式的文件就可以了

如何快速取消所有文件夹共享?进来瞧瞧

标签:

原文地址:http://www.cnblogs.com/lonelyxmas/p/5721159.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!