Database Search

TechHome

	CDO
	Samples from Users

• 1129 OleInitiate Initiate Failed Using an LDAP Path
• Add Domain User to Local Group
• ADSI COM Example - Check User Logons
• ADSI COM Example - Delete a Computer
• ADSI COM Example - Delete a User
• ADSI COM Example - Get User Properties
• ADSI COM Example - List Connected Sessions
• ADSI COM Example - Upload a Photo
• ADSI Create Groups and Users Example
• ADSystemInfo Interface
• CDO Exchange 2000 Requirements
• CDO Collections and Global Address Book
• CDO Collections and Personal Address Book
• CDO Exchange Mailbox size
• CDO IMailBoxStore Interface
• Converting Active Directory Thumbnailphotos to File
• Create an AD User and an Exchange 2k Mailbox
• Create Exchange Distribution List Using CDO
• Create Mailbox - Exchange 2000 - CDO - ADSI
• Get a user certificate
• List Groups a User Belongs To
• List of AD Domains
• List User Paths on Default Domain
• Search Exchange-Outlook Infostores with CDO

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

ADSI COM Example - Delete a Computer

 Keywords: ADSI AD Delete Computer Object COM Container 

strContainer = ""       ; MODIFY TO FIT YOUR NEEDS
strName = "MyAdComuter"    ; MODIFY TO FIT YOUR NEEDS

; Obtain Root DSE
objRootDSE = ObjectGet("LDAP://rootDSE")

; Get Container Object
If strContainer == ""
  ldappath = "LDAP://" : objRootDSE.Get("defaultNamingContext")
  objContainer = ObjectGet(ldappath)
Else
  ldappath =  "LDAP://" : strContainer : "," : objRootDSE.Get("defaultNamingContext")
  objContainer = ObjectGet(ldappath)
EndIf

; Delete Computer
ret = AskYesNo( "Delete Computer?", "Are you sure you want to delete [": strName :"]?")
If ret
   objContainer.Delete("user", "cn=" : strName )
EndIf

; Clean up
objContainer = 0
objRootDSE = 0

Article ID:   W18046

Filename:   ADSI COM Example - Delete a Computer.txt

File Created: 2012:12:06:08:52:06

Last Updated: 2012:12:06:08:52:06