none
查询域成员机本地组的成员信息脚本 RRS feed

  • 常规讨论

  • 给位脚本大师们,我有一个脚本如下:

    Set wsnetwork=WScript.CreateObject("WScript.Network")
    Const ADS_UF_DONT_EXPIRE_PASSWD=&H10000
    Const ADS_UF_ACCOUNTDISABLE = &H2
    PCName=wsnetwork.ComputerName

    Set objGroup01 = GetObject("WinNT://" & PCName & "/Administrators,group")
    Set objGroup02 = GetObject("WinNT://" & PCName & "/Remote Desktop Users,group")

    For Each objUser in objGroup01.Members
       Wscript.Echo PCName & "," & objGroup01.Name & "," & objUser.Name
    Next

    For Each objUser in objGroup02.Members
       Wscript.Echo PCName & "," & objGroup02.Name & "," & objUser.Name
    Next

    此脚本用于输出本地Administrators组 和 Remote Users组的成员。

    但是不足有如下:
    1. 输出的成员,只显示displayname,所以不知道这些成员是域用户还是本地用户。 能否显示出,这些成员是 域用户还是本地用户。

    另外能否再添加如下查询:
    1. 再显示出这些成员的displayname、samaccountname、上一次登录时间、上一次更改密码的时间、是否设置密码用不过期、账户是启用还是禁用
    2. 若成员是域用户,再显示其所在的OU的LDAP路径。

    输出格式要求:
    1. 还是使用Wscript.Echo 进程查询结果的输出。
    2. 一个成员信息对应一个msgbox输出,一个msgbox中显示出: 计算机名、所在组名(Administrators组或Remote Users组)、是域用户还是本地用户、此成员的displayname、samaccountname、上一次登录时间、上一次更改密码的时间、是否设置密码用不过期、账户是启用还是禁用、若是域用户还是显示其所在的OU的LDAP路径
    2014年3月19日 4:46

全部回复