AD账号加到本机Power Users

最新推荐文章于 2023-03-22 14:37:28 发布

weixin_34113237

最新推荐文章于 2023-03-22 14:37:28 发布

阅读量269

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/weixin_34113237/article/details/85101934

本文介绍了一种通过脚本自动将域用户组提升至PowerUsers权限级别的方法。该脚本适用于域环境中需要提高域用户权限的情况，确保域用户能够进行如设置共享等操作。

大家都知道，在域环境中，默认情况下，所有域用在本地电脑中只有Users组的权限，但是，在实际应用中，Users的权限很少，连设置共享都不行，有些环境需要给域用户POWER USERS的权限，下面的脚本，就是为实现些功能而写！

注意上：应用时，请将下面黑体的domain改为你自已的域名！

dim sFlag
Dim oWshNetwork
Set oWshNetwork = WScript.CreateObject("WScript.Network")

strComputer = oWshNetwork.ComputerName
sFlag=0
Set colGroups = GetObject("WinNT://" & strComputer & "/power users")

For Each objUser In colGroups.Members
'Wscript.Echo objUser.Name

Next

strTestString = "/" & strComputer & "/"

Set colGroups = GetObject("WinNT://" & strComputer & "/power users")

For Each objUser In colGroups.Members
    If InStr(objUser.AdsPath, strTestString) Then
        'Wscript.Echo "Local user: " & objUser.Name
    Else
        IF objuser.Name = "Domain users" Then
           sFlag=1
            'wscript.echo "IN"
        end if

      'Wscript.Echo "Domain user: " & objUser.Name

    End If
Next
if sFlag=0 then
   'wscript.echo "NO"
Set objGroup = GetObject("WinNT://" & strComputer & "/power users")
             Set objUser = GetObject("WinNT://domain/domain users")
             objGroup.Add(objUser.ADsPath)
end if