| 关键词: SHARE objWMIService CONNECTIONS objNewShare MAXIMUM Public Const FILE 25strComputer strComputer |
Const FILE_SHARE = 0 Const MAXIMUM_CONNECTIONS = 25strComputer = "atl-ws-01" Set objWMIService = GetObject _ ("winmgmts:\\" & strComputer & "\root\cimv2")Set objNewShare = objWMIService.Get("Win32_Share")errReturn = objNewShare.Create _ ("C:\Public", "PublicShare", FILE_SHARE, _ MAXIMUM_CONNECTIONS, "Public share for Fabrikam employees.") |
|
声明:文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|