' Script finds domain admin and writes it to a text file. ' Test on windows 7 workstation on error resume next Const ForReading = 1 Const ForWriting = 2 Const OpenAsASCII = 0 Const CreateIfNotExist = True Dim strMember, strDNSDomain, strContainer, strOutput, strDesktopPath, Desktop Dim objGroup, objRootDSE, objOutput Dim arrMemberOf, strList, arrGroup Dim objFSO Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") strDesktopPath = WshShell.SpecialFolders("Desktop") Set objFSO = CreateObject("Scripting.FileSystemObject") strOutput = strDesktopPath & "\Domain Admins.txt" Set objOutput = objFSO.OpenTextFile(strOutput, ForWriting, CreateIfNotExist, OpenAsASCII) strContainer = "cn=Domain Admins,cn=Users, " Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("DefaultNamingContext") Set objGroup = GetObject ("LDAP://"& strContainer & strDNSDomain) objGroup.getInfo arrMemberOf = objGroup.GetEx("member") For Each strMember in arrMemberOf strMember = Mid(strMember, 4, 330) arrGroup = Split(strMember, "," ) strList = strList & " " & arrGroup(0) & vbcr Next objOutput.WriteLine strContainer & " contains " & " " & vbCr & strList If err.number <> 0 Then WScript.Echo ("Script Check Failed") Wscript.Quit (1001) Else WScript.Echo ("Successfully Passed") WScript.Quit(0) End If