Visual Basic

Imports System.Management  'Need to reference System.Management.dll<br />
<br />
<br />
Public Module NTDomain<br />
<br />
    Public Function GetNTUsers(ByVal NTDomain As String) As DataTable 'This function uses System.Management namespace<br />
        Dim dtNTUsers As New DataTable<br />
        With dtNTUsers<br />
            .Columns.Add(New DataColumn("FullName"))<br />
            .Columns.Add(New DataColumn("Name"))<br />
            .Columns.Add(New DataColumn("Domain"))<br />
            .Columns.Add(New DataColumn("LocalAccount"))<br />
<br />
            Try<br />
                Dim searcher As New ManagementObjectSearcher( _<br />
                           "\\" & NTDomain & "\root\CIMV2", _<br />
                           "SELECT * FROM Win32_UserAccount")<br />
<br />
                Dim en As System.Management.ManagementObjectCollection.ManagementObjectEnumerator = searcher.Get.GetEnumerator<br />
                While en.MoveNext<br />
                    Dim queryObj As ManagementObject = en.Current<br />
                    Dim dr As DataRow<br />
                    dr = .NewRow<br />
                    dr("FullName") = queryObj("FullName")<br />
                    dr("Name") = queryObj("Name")<br />
                    dr("Domain") = queryObj("Domain")<br />
                    dr("LocalAccount") = queryObj("LocalAccount")<br />
                    .Rows.Add(dr)<br />
                End While<br />
                .AcceptChanges()<br />
            Catch ex As System.Exception<br />
                Throw New PDM.DBA.GetNTUserListException<br />
            Finally<br />
                Dim drUser As DataRow<br />
                drUser = .NewRow<br />
            End Try<br />
            Return dtNTUsers<br />
        End With<br />
    End Function<br />
<br />
    Public Function GetNTGroups(ByVal NTDomain As String) As DataTable 'This function uses System.Management namespace<br />
<br />
        Dim searcher As New ManagementObjectSearcher( _<br />
               "\\" & NTDomain & "\root\CIMV2", _<br />
               "SELECT * FROM Win32_AccountSID")<br />
<br />
        Dim dtNTGroups As New DataTable<br />
        With dtNTGroups<br />
            .Columns.Add(New DataColumn("Type"))<br />
            .Columns.Add(New DataColumn("Name"))<br />
            Dim en As System.Management.ManagementObjectCollection.ManagementObjectEnumerator = searcher.Get.GetEnumerator()<br />
            While en.MoveNext<br />
                Dim queryObj As ManagementObject = en.Current<br />
                Dim sSplit() As String = Split(queryObj("Element"), ",")<br />
                Dim sType As String<br />
<br />
                If sSplit(0).Contains("Win32_Group") Then<br />
                    sType = "Group"<br />
                ElseIf sSplit(0).Contains("Win32_SystemAccount") Then<br />
                    sType = "System Account"<br />
                ElseIf sSplit(0).Contains("Win32_UserAccount") Then<br />
                    sType = "User"<br />
                Else<br />
                    sType = "Unknown"<br />
                End If<br />
<br />
                sSplit(1) = Replace(sSplit(1), "Name=", "")<br />
                sSplit(1) = Replace(sSplit(1), """", "")<br />
<br />
                Dim dr As DataRow<br />
                dr = .NewRow<br />
                dr("Type") = sType<br />
                dr("Name") = queryObj("Element")<br />
                .Rows.Add(dr)<br />
            End While<br />
            .AcceptChanges()<br />
        End With<br />
        Return dtNTGroups<br />
    End Function<br />
<br />
End Module

Set WshShell = WScript.CreateObject("WScript.Shell")
ProfilePath = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
    Dim listItemCount As Integer = -1
    Dim totalColNum As Integer = GridView1.Columns.Count
    Dim valNum As Integer = -1
    If Not Page.IsPostBack Then
        totalColNum = totalColNum - 1
        While listItemCount < -1
            listItemCount += 1
            valNum += 1
            CheckBoxList2.Items.Add(GridView1.Columns(listItemCount).ToString)
            CheckBoxList2.Items.Item(listItemCount).Value = valNum.ToString
        End While
    End If
End Sub