elixiat 发表于 2018-6-27 07:16:43

Windows Script

objRecordSet.MoveFirst　　Do Until objRecordSet.EOF
　　UserName = objRecordSet.Fields("Name").Value
　　‘Set objUser = GetObject("WinNT://emark/" & UserName)
　　Set objUser = GetObject("WinNT://" & WshNetwork.userdomain & "/" & UserName)
　　if not objUser. AccountDisabled then
　　pPath = UserPath & UserName
　　If not (fso.FolderExists(pPath)) Then
　　ActTimes = ActTimes + 1
　　fso.CreateFolder(pPath)
　　Set BatFile = fso.CreateTextFile(UserPath & "setper.bat", True)
　　cLine = "xcacls " & pPath & " /Y /P " & WshNetwork.UserDomain & "\" & UserName & ":F Administrators:F SYSTEM:F"
页: [1]
查看完整版本: Windows Script