Hi all. I've got my array working, and pulling data, but my sGroup
variable isn't populating my innerHTML.
<HTML>
<HEAD>
<TITLE>Users Group Migration HTA</TITLE>
<HTA:APPLICATION
ID="MyApp"
APPLICATIONNAME="Template"
BORDER="thick"
BORDERSTYLE="complex"
CAPTION="yes"
CONTEXTMENU="no"
ICON="http://Your URL/your icon.ico"
INNERBORDER="yes"
MAXIMIZEBUTTON="yes"
MINIMIZEBUTTON="yes"
NAVIGABLE="no"
SCROLL="no"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
VERSION="1.0"
WINDOWSTATE="maximized"/>
</HEAD>
<SCRIPT Language="VBScript">
Dim arrUsers(1)
' Size window on load
Sub Window_onLoad
window.resizeTo 640, 480
End Sub
' Cancel button
Sub ExitProgram
window.close()
End Sub
Sub btnComp_Click
Set WshNetwork = CreateObject("Wscript.Network")
strDN = WshNetwork.UserDomain
arrUsers(0) = User1.value
arrUsers(1) = User2.value
For i = 0 To 1
If i = 0 Then
GetAllGroups(i)
UserGroup1.InnerHTML = sGroups
ElseIf i = 1 Then
GetAllGroups(i)
UserGroup2.InnerHTML = "Test 2"
End If
Next
End Sub
Function GetAllGroups(i)
' On Error Resume Next
Set WshNetwork = CreateObject("Wscript.Network")
strDN = WshNetwork.UserDomain
sUser = arrusers(i)
Set objUser = GetObject("WinNT://" & strDN & "/" & sUser)
For Each oGroup In objUser.Groups
sGroups = sGroups & oGroup.Name & vbCrLf & "<br>"
Next
End Function
</SCRIPT>
<body STYLE="font:10pt arial; color:white;
(background-color:Menu;
color:MenuText;
cursor:default
">
<p align=left><b>Group Migration Tool</b></font></p>
<table>
<tr>
<col align="left"></col>
<col width="160"></col>
<col align="left"></col>
<th><b>New User ID.</b></th>
<th> </th>
<th><b>Template User ID.</b></th>
</tr>
<tr>
<td><input type="text" name="User1" size=20><p align=left></td>
<td> </td>
<td><input type="text" name="User2" size=20><p align=left></td>
</tr>
<tr>
<td><input type="button" value="Compare" name="btnComp"
onClick="btnComp_Click" STyle='background-color: ButtonFace;'
STyle='color:ButtonText;'></td>
<td><input id=runbutton type="button" value="Cancel"
onClick="ExitProgram" STyle='background-color: ButtonFace;'
STyle='color:ButtonText;'></td>
</tr>
<p>
<td><Span ID = "DataArea"</Span></td>
<td><Span ID = "UserGroup1"</Span></td>
<td><Span ID = "UserGroup2"</Span></td>
</table>
</body>
</html>
The code works in msgBox, and it writes "Test 2" in the UserGroup2
InnerHTML as directed, it's just not writing to the InnerHTML that
I've got set to populate with the variable..