Полный код для проверки, там с помощью msgbox видно как он работает, показывает половину шесть из 10 значений нормально, потом стирает все, пишет 7, 8 значения, потом все стирает и пишет сверху 9 и 10 значения только
<html>
<head>
<meta http-equiv=content-type content="text-html; charset=utf-8">
<meta http-equiv=MSThemeCompatible content=yes>
<hta:application
id="HTAApp"
/>
</head>
<script type="text/vbscript">
Sub MemberGroupOf
Const ForReading = 1, ForWriting = 2, ForAppend = 8
Dim ObjUser, ObjRootDSE, ObjConn, ObjRS
Dim GroupCollection, ObjGroup,StrUserName, StrDomName, StrSQL
Dim GroupsList,WriteFile
GroupsList = ""
Set ObjRootDSE = GetObject("LDAP://RootDSE")
StrDomName = Trim(ObjRootDSE.Get("DefaultNamingContext"))
Set ObjRootDSE = Nothing
StrUserName = InputBox("Enter user login", "Info needed", "")
'StrUserName = "GilmullinRR" 'ВВЕДИТЕ ЛОГИН для ПОИСКА
StrSQL = "Select ADsPath From 'LDAP://" & StrDomName & "' Where ObjectCategory = 'User' AND SAMAccountName = '" & StrUserName & "'"
Set ObjConn = CreateObject("ADODB.Connection")
ObjConn.Provider = "ADsDSOObject": ObjConn.Open "Active Directory Provider"
Set ObjRS = CreateObject("ADODB.Recordset")
ObjRS.Open StrSQL, ObjConn
If Not ObjRS.EOF Then
ObjRS.MoveLast: ObjRS.MoveFirst
Set ObjUser = GetObject (Trim(ObjRS.Fields("ADsPath").Value))
Set GroupCollection = ObjUser.Groups
'strHtml = "Looking for groups " & StrUserName & " is member of. This may take some time..."
For Each ObjGroup In GroupCollection
GroupsList = GroupsList & VbCrLf & "<br>" & ObjGroup.CN
CheckForNestedGroup ObjGroup
Next
Set ObjGroup = Nothing: Set GroupCollection = Nothing: Set ObjUser = Nothing
strHtml = strHtml & GroupsList
Else
strHtml = "Couldn't find user " & StrUserName & " in AD."
End If
ObjRS.Close: Set ObjRS = Nothing
ObjConn.Close: Set ObjConn = Nothing
DataArea.innerHTML = strHtml
end sub
Sub CheckForNestedGroup(ObjThisGroupNestingCheck)
On Error Resume Next
Dim AllMembersCollection, StrMember, StrADsPath, ObjThisIsNestedGroup, TabAdd, i
AllMembersCollection = ObjThisGroupNestingCheck.GetEx("MemberOf")
For Each StrMember in AllMembersCollection
If StrMember <> "" Then
StrADsPath = "LDAP://" & StrMember
Set ObjThisIsNestedGroup = GetObject(StrADsPath)
If InStr(GroupsList, ObjThisIsNestedGroup.CN) = 0 Then '(Uncomment this If and indent lines below to remove groups already in the list)
'TabAdd = ""
For i = 0 to Recurcount
TabAdd = TabAdd & vbTab
Next
'GroupsList = GroupsList & TabAdd & " " & ObjThisIsNestedGroup.CN & VbCrLf
GroupsList = GroupsList & ObjThisIsNestedGroup.CN & VbCrLf
End If
msgbox GroupsList
'Recursion to include nested groups of nested groups
Recurcount = Recurcount + 1
CheckForNestedGroup ObjThisIsNestedGroup
Recurcount = Recurcount - 1
End If
strHtml = GroupsList
DataArea.innerHTML = strHtml
Next
Set ObjThisIsNestedGroup = Nothing: Set StrMember = Nothing: Set AllMembersCollection = Nothing
End Sub
</script>
<body>
<input type="button" id="MemberGroupOf1" onclick="MemberGroupOf()" value="MemberGroupOf">
<div class="right_col">
<span id = "DataArea" name="value">нажмите.</span>
</div>
</body>
</html>1 картинка - как выводит в .hta
1 картинка - как выводит в .vbs - msgbox