কিভাবে উইন্ডোজ গ্রুপ থেকে একটি টেক্সট ফাইল সব ব্যবহারকারী মুদ্রণ করতে?


4

আমি "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

উত্তর:


4

আপনি যদি PowerShell ব্যবহার করতে পারেন তবে এই কৌশলটি চালানো উচিত (স্থানীয় কম্পিউটারে কাজ করে, পরিবর্তন করুন $GroupName পরিবর্তনশীল এবং আউটপুট ফাইল পাথ আপনার প্রয়োজন অনুযায়ী):

$GroupName = "Administrators"
$GroupMembers = @()
$Server = $env:computername
$Group= [ADSI]"WinNT://$Server/$GroupName,group"
$Members = @($Group.psbase.Invoke("Members"))
$Members | ForEach-Object { $GroupMembers += $_.GetType().InvokeMember("Name", 'GetProperty', $null, $_, $null) }
Write-Output $GroupMembers | out-File "C:\somefolder\somefile.txt"

ধন্যবাদ, কাজ করছে যে। কিন্তু এদিকে আমি ভিবি নেট দিয়ে প্রোগ্রাম করেছি (আমার সম্পাদনা দেখুন)।
Rango

2

আপনি ব্যবহার করার চেষ্টা করতে পারে net localgroup সঙ্গে /domain পরামিতি:

net localgroup "Students" /domain >> students.txt

আমি মুছে ফেলার সময় এটি খুব কাজ করছে /domain, ধন্যবাদ. সিমের কে এর সমাধান ছাড়া জার্মানির মতো বিশেষ অক্ষরগুলির সাথে এটি কোনও সমস্যা ছাড়াই ভিন্ন ö
Rango
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.