#Code [Active Directory Report]

[DeepMa1]

Hi All,
I got below code when searching on google
Sub DemoDomainName()
Set wshNetwork = CreateObject("WScript.Network")
strUserDomain = wshNetwork.UserDomain
strCompName = wshNetwork.ComputerName
MsgBox "User Domain: " & strUserDomain & vbNewLine & "Computer Name: " & strCompName
End Sub


this works fine on which ever system we run it give that users info.
Instead which ever user name i give for that user I need to get the report.

Or can any one help how to extract all users info for a given AD Group name. I mean which ever active directory group name i pass i want all users details exported to excel for given group.

TIA

[alansidman]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [code]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/code] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)