Local Accounts and Windows NT 4.0 Accounts

Groups

List All the Local Groups a User Belongs To








' List All the Local Groups a User Belongs To


strComputer = "atl-win2k-01"
Set colGroups = GetObject("WinNT://" & strComputer & "")
colGroups.Filter = Array("group")

For Each objGroup In colGroups
    For Each objUser in objGroup.Members
        If objUser.name = "kenmyer" Then
            Wscript.Echo objGroup.Name
        End If
    Next
Next



search for scripts

VbsEdit contains all these sample scripts!

Download Now!