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