4,008
社区成员
发帖
与我相关
我的任务
分享
Set objSWbemServices = objSWbemLocator.ConnectServer(strComputer,strNameSpace,strUser,strPassword)
'objSWbemServices.Security_.ImpersonationLevel = wbemImpersonationLevelImpersonate
'objSWbemServices.Security_.AuthenticationLevel = wbemAuthenticationLevelPktPrivacy
if funType=0 then
' create Share folder
Set objNewShare = objSWbemServices.Get("Win32_Share")
errReturn = objNewShare.Create(sharebaseDir,shareDir, FILE_SHARE,MAXIMUM_CONNECTIONS, "Public share for the Finance group.")