Dx21 - ADSI

Home

eZine

Coding

Software

Network Admin.

Home > Coding > Scripting > ADSI > Mapping - Computer

	UDF / UDC Library
	Script Library

AD GUI to Property Map: Computer Object
Click A Tab To Navigate
	General

Property Mapping

RO	GUI Control	ADSI Property
X	{Computer Name}	name
X	Computer name (pre-Windows 2000)	name
X	DNS Name	dnsHostName
X	Role	userAccountControl
	Description	description

Property Read Example Script

Option Explicit

Dim objComp, objRDSE
Dim colItems, objItem
Dim objHash
Dim intuserAccountControl

'Change LDAP path as needed

Set objRDSE = GetObject("LDAP://rootDSE")
Set objComp = GetObject("LDAP://cn=[Computer],cn=Users," & _
	objRDSE.Get("defaultNamingContext"))

On Error Resume Next	'*

WScript.Echo "GENERAL PROPERTIES PAGE"
WScript.Echo String(45, "/")
WScript.Echo "(Single Valued Attributes)"
WScript.Echo String(45, "-")
WScript.Echo 

WScript.Echo "[Computer]:........" & objComp.Get("name")
WScript.Echo "Computer name:....." & objComp.Get("name")
WScript.Echo "DNS name:.........." & objComp.Get("dnsHostName")
WScript.Echo "Description:......." & objComp.Get("description")
WScript.Echo

WScript.Echo "(Account Control Attributes)"
WScript.Echo String(45, "-")
WScript.Echo 

'Not all of these apply to the computer class, but for 
'a reference they are all listed here.  
Set objHash = CreateObject("Scripting.Dictionary")
objHash.Add "ADS_UF_SCRIPT",							&h0001 
objHash.Add "ADS_UF_ACCOUNTDISABLE",					&h0002 
objHash.Add "ADS_UF_HOMEDIR_REQUIRED",					&h0008 
objHash.Add "ADS_UF_LOCKOUT",							&h0010 
objHash.Add "ADS_UF_PASSWD_NOTREQD",					&h0020 
objHash.Add "ADS_UF_PASSWD_CANT_CHANGE",				&h0040 
objHash.Add "ADS_UF_ENCRYPTED_TEXT_PWD_ALLOWED",		&h0080 
objHash.Add "ADS_UF_TEMP_DUPLICATE_ACCOUNT",			&h0100 
objHash.Add "ADS_UF_NORMAL_ACCOUNT",					&h0200 
objHash.Add "ADS_UF_INTERDOMAIN_TRUST_ACCOUNT",			&h0800 
objHash.Add "ADS_UF_WORKSTATION_TRUST_ACCOUNT",			&h1000 
objHash.Add "ADS_UF_SERVER_TRUST_ACCOUNT",				&h2000 
objHash.Add "ADS_UF_DONT_EXPIRE_PASSWORD",				&h10000 
objHash.Add "ADS_UF_MNS_LOGON_ACCOUNT",					&h20000 
objHash.Add "ADS_UF_SMARTCARD_REQUIRED",				&h40000 
objHash.Add "ADS_UF_TRUSTED_FOR_DELEGATION",			&h80000 
objHash.Add "ADS_UF_NOT_DELEGATED",						&h100000 
objHash.Add "ADS_UF_USE_DES_KEY_ONLY",					&h200000 
objHash.Add "ADS_UF_DONT_REQ_PREAUTH",					&h400000 
objHash.Add "ADS_UF_PASSWORD_EXPIRED",					&h800000 
objHash.Add "ADS_UF_TRUSTED_TO_AUTH_FOR_DELEGATION",	&h1000000

intuserAccountControl = objComp.Get("COMPAccountControl")

If intuserAccountControl And objHash.Item("ADS_UF_SERVER_TRUST_ACCOUNT") Then
	WScript.Echo "Role:..............Domain Controller"
Else
	WScript.Echo "Role:..............Workstation or Server"
End If
WScript.Echo

Set objComp = Nothing
Set objRDSE = Nothing
Set objHash = Nothing

'* Values not present in AD are not stored as 
'empty strings, but null properties and not returned
'in a query.  Accessing a non-present property will
'throw an error.

	FAQs \| Terms Of Use \| Privacy Policy \| Contact Us
	Copyright © 1997 - 2010 Dx21, LLC. All rights reserved. Dx21, LLC a Washington Limited Liability Company Page Rendered at: 9/2/2010 8:17:11 PM for Unknown

General

Property Mapping

Property Read Example Script

Property Write Example Script