WMI脚本：建立和删除共享文件夹

' 在局域网建立共享的脚本
' GetObject函数用Moniker名字法连接到WMI创建引用在本机有三步
' 1、"winmgmts:"是前缀， 表示为WMI服务，必须
' 2、\\.\"代表本机，
' 3、CIM命名空间："root\cimv2"就是CIM命名空间，缺省可省略
' 4、建立共享主要使用Win32_Share类的Create函数'
' int Create //0表示成功完成
' (String SharePath; //共享路径,就是你要共享的文件夹的的路径
' String    ShareName; //共享后，访问时的标示名称
' Int       ShareType; //共享类型，一般赋 0 即可，表示磁盘共享
' Int       MaxUsers; //最大用户数
' String    Description; //描述
' String PassWord; //访问密码
' ）
'
'==========================================================================

Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 25

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set objNewShare = objWMIService.Get("Win32_Share")

errReturn = objNewShare.Create _
      ("C:\Finance", "FinanceShare", FILE_SHARE, _
          MAXIMUM_CONNECTIONS, "Public share for the Finance group.")
If errReturn =0 Then MsgBox "共享文件设置成功！"

'==========================================================================
'
' 删除共享用Delete函数，没有任何参数
' 只要用WQL筛选出符合条件的共享，调用函数就可以了
'
'==========================================================================

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colShares = objWMIService.ExecQuery _
      ("Select * from Win32_Share Where Name = 'FinanceShare'")

For Each objShare in colShares
      objShare.Delete
Next