Ask Vance
Book Reviews
Peer 2 Peer
Software Reviews
Tips & Tweaks
COM Object Reference
Command Line Reference
RunDLL32 Library
Script Library
UDF / UDC Library
ADSI
HTML + HTA
KiXtart
MS-DOS
Powershell
RSS & ATOM
ScriptIt
VBScript
WMI Scripting
On-Line Courses
Libraries
Scripting
Visual Studio
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.
Property Write Example Script
Option Explicit Const ADS_PROPERTY_CLEAR = 1 Const ADS_PROPERTY_UPDATE = 2 Const ADS_PROPERTY_APPEND = 3 Const ADS_PROPERTY_DELETE = 4 Dim objComp, objRDSE Dim colItems, objItem 'Change LDAP path as needed Set objRDSE = GetObject("LDAP://rootDSE") Set objComp = GetObject("LDAP://cn=[Computer],cn=Users," & _ objRDSE.Get("defaultNamingContext")) WScript.Echo "GENERAL PROPERTIES PAGE" WScript.Echo String(45, "/") WScript.Echo "(Single Valued Attributes)" WScript.Echo String(45, "-") WScript.Echo 'Change Values as needed WScript.Echo "Description:........A Computer" objComp.Put "description", "A Computer" objComp.SetInfo 'Delete a Single Valued Attribute WScript.Echo "** Clearing the Description Data." objComp.PutEx ADS_PROPERTY_CLEAR, "description", vbNullString objComp.SetInfo Set objComp = Nothing Set objRDSE = Nothing
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: 3/20/2010 3:31:27 AM for Unknown