Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
DoRecursive("OU=computers,OU=Finance,OU=Departments,DC=domain.com") Function DoRecursive(strObjectDN) Set objOU = GetObject("LDAP://" & strObjectDN) objOU.Filter = Array("Computer") Set objUser = GetObject("LDAP://" & strObjectDN) Set objFSO = CreateObject("Scripting.FileSystemObject") For Each objComputer In objOU Set objNtSecurityDescriptor = objComputer.Get("ntSecurityDescriptor") Excel.Cells(counter,1).Value = objComputer.CN Excel.Cells(counter,2).Value = objComputer.OperatingSystem Excel.Cells(counter,3).Value = objNtSecurityDescriptor.owner Excel.Cells(counter,4).Value = objComputer.WhenCreated Excel.Cells(counter,5).Value = objComputer.DistinguishedName counter =counter +1 Next End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|ADFS: How would one include over 600 IP addresses in a claim rule?||5||76|
|Windows 10 Policy for Flash||3||55|
|domain controller shut down question||6||53|
|Office365, AZure ADSync and on prem AD with multiple email domains||9||26|
Join the community of 500,000 technology professionals and ask your questions.