Find the location of a computer account in Active Directory
From Wiki
Creator: IT Support Staff @ HCHS
Script Language: VBS
Forum topic Link: http://www.edugeek.net/forums/wiki-announcements/17301-find-location-computer-account-active-directory.html#post172265
This script will find and display the exact location of a computer user account in Active Directory.
OPTION EXPLICIT DIM objNetwork DIM computerName DIM ou ' Get the computerName of PC set objNetwork = createobject("Wscript.Network") 'computerName = objNetwork.ComputerName computername = Inputbox("Enter the network name of the PC to find :") ' Call function to find OU from computer name ou = getOUByComputerName(computerName) IF ou = "" THEN ou = "Not Found" wscript.echo ou function getOUByComputerName(byval computerName) ' *** Function to find ou/container of computer object from computer name *** DIM namingContext, ldapFilter, ou DIM cn, cmd, rs DIM objRootDSE ' Bind to the RootDSE to get the default naming context for ' the domain. e.g. dc=HCHS,dc=co,dc=uk set objRootDSE = getobject("LDAP://RootDSE") namingContext = objRootDSE.Get("defaultNamingContext") set objRootDSE = nothing ' Construct an ldap filter to search for a computer object ' anywhere in the domain with a name of the value specified. ldapFilter = "<LDAP://" & namingContext & _ ">;(&(objectCategory=Computer)(name=" & computerName & "))" & _ ";distinguishedName;subtree" ' Standard ADO code to query database set cn = createobject("ADODB.Connection") set cmd = createobject("ADODB.Command") cn.open "Provider=ADsDSOObject;" cmd.activeconnection = cn cmd.commandtext = ldapFilter set rs = cmd.execute if rs.eof <> true and rs.bof <> true then ou = rs(0) ' Convert distinguished name into OU. ' e.g. cn=CLIENT01,OU=HCHS_Computers,dc=HCHS,dc=co,dc=uk ' to: OU=HCHS_Computers,dc=HCHS,dc=co,dc=uk ou = mid(ou,instr(ou,",")+1,len(ou)-instr(ou,",")) getOUByComputerName = ou end if rs.close cn.close end function



