আমি "Student.txt" টেক্সটফাইলের একটি গ্রুপ "ছাত্রদের" সমস্ত ব্যবহারকারীদের মুদ্রণ করার চেষ্টা করছি।
আমি একটি ডোমেনে নেই, তাই এটি কাজ করে না:
net group "Students" >> students.txt
কারণ আমি নিম্নলিখিত পেতে পারি:
This command can be used only on a Windows Domain Controller.
তুমাকে অগ্রিম ধন্যবাদ
যদি কেউ VB.Net সমাধানতে আগ্রহী হয় তবে আমি সদস্যদের একটি অনুলিপি / আটকানোর জন্য একটি মাল্টিলাইন টেক্সটবক্সের সাথে একটি উইনফর্ম সমাধান প্রোগ্রাম করেছি (যাইহোক, আপনার সহায়তার জন্য ধন্যবাদ):
Imports System.DirectoryServices 'first add a refernce to it from .Net Tab'
....
Public Function MembersOfGroup(ByVal GroupName As String) As List(Of DirectoryServices.DirectoryEntry)
Dim members As New List(Of DirectoryServices.DirectoryEntry)
Try
Using search As New DirectoryServices.DirectoryEntry("WinNT://./" & GroupName & ",group")
For Each member As Object In DirectCast(search.Invoke("Members"), IEnumerable)
Dim memberEntry As New DirectoryEntry(member)
members.Add(memberEntry)
Next
End Using
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
Return members
End Function
Private Sub TxtGroup_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtGroup.KeyDown
If e.KeyCode = Keys.Enter Then
Me.TxtGroupMembers.Text = String.Empty
If Me.TxtGroup.Text.Length <> 0 Then
Dim members As List(Of DirectoryServices.DirectoryEntry) = MembersOfGroup(Me.TxtGroup.Text)
For Each member As DirectoryServices.DirectoryEntry In members
Me.TxtGroupMembers.Text &= member.Name & vbCrLf
Next
End If
End If
End Sub