vbscript 导出AD组成员

Posted 2021-05-22

On Error Resume Next

''strGroupName = "GAP_VA_Product_Xpress_Designer_3.4"
strGroupName = InputBox("Group")
If strGroupName = "" Then WScript.Quit

strSourceGroupDN = "CN=" & strGroupName & ",OU=Virtuele Applicaties,OU=Groups,OU=Hoogehuys,OU=Bedrijven,DC=VERZ,DC=LOCAL"

Set objGroup = GetObject("LDAP://" & strSourceGroupDN)
objGroup.GetInfo

arrMemberOf = objGroup.GetEx("member")

Set objFSO = CreateObject("Scripting.FileSystemObject")

strScriptDir = Left(WScript.ScriptFullName, (Len(WScript.ScriptFullName))-(Len(WScript.ScriptName)))
strExportFileName = strScriptDir & strGroupName & ".csv"

Set ExportFile = objFSO.OpenTextFile(strExportFileName, 2, True)

''ExportFile.WriteLine("Name")

For Each strMember In arrMemberOf
	Set objUserS = GetObject("LDAP://" & strMember)
	objUserS.GetInfo
	ExportFile.Write(objUserS.Get("sAMAccountName")) & ";"
Next

ExportFile.Close

Set objUserS = Nothing
Set objFSO = Nothing
Set objGroup = Nothing

MsgBox "Klaar"