vbscript 导出AD组成员

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了vbscript 导出AD组成员相关的知识,希望对你有一定的参考价值。

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"

以上是关于vbscript 导出AD组成员的主要内容,如果未能解决你的问题,请参考以下文章

vbscript 算上AD小组成员

vbscript 导出OU成员

powershell 导出AD组成员

CSVDE导出AD域下指定子OU的Group中所有成员的信息

如何显示不在特定AD组中的列表Active Directory用户

vbscript 将整个工作簿导出为PDF