Database Search

TechHome

• !!DISCLAIMER!!
• AD Syncronization
• Add Computer to an Active Directory Group
• ADSI COM Find Primary Group
• ADSI COM List Groups
• ADSI Create Group
• ADSI Extender Security Descriptor Sample
• ADSI Get OU Properties
• ADSI Get Subgroups of Group
• ADSI List Group Names and Email Property
• ADSI Primer
• ADSI Query String Creator
• Create a Mail Enabled Contact
• Create Enable and Disable User Account
• Create Exchange 2000 User Account
• Create IIS Virtual Directory
• Create User in AD with CSV file
• Delete Computer Account
• Determine if a WS and a server are in the same AD Site
• Determine LastLogin
• DsGetDcName
• Figure out User Account Attributes
• Get a list of users and write out to CSV file
• Get all Domain printers
• Get Date User Account was Created
• Get Nested User Groups
• Get TCP IP Configuration From Each Domain Controller
• Get User Information From Another Domain
• Getting E-Mail Address for all users in OU
• Group Exist
• Hierarchically Adding Users to Groups
• JoinDomain
• List ADSI Paths of Groups and their Members
• List All Servers in the Current Domain
• List Users
• OLE COM dsGetMemGrps Alternative
• Recursive DsGetMemGrp Example
• REmove User from Printer Object
• Set Home Directory for User
• Translate NT Name to LDAP Path
• Traverse OU and Generate a Report of Objects
• Useful ADSI Site server functions

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

Remove User from Printer Object

 Keywords: Remove Delete User Group Printer Object AD Active Directory ADSI

AddExtender("WWADS44I.DLL")
; Domain to search.
; (Could be the path to your OU.)
sAdsiPath = "LDAP://sample"

; Get all Domain printers
sSearch   = "(&(objectCategory=PrintQueue)(objectClass=printQueue))"
lPrinters = dsFindPath(sAdsiPath,  sSearch)

; Display the result.
sPrinterPath = AskItemlist("Printers", lPrinters, @TAB, @UNSORTED, @SINGLE)

sUser = "Mydomain\Myuser"    ; MODIFY TO FIT YOUR NEEDS

sPropertyName = "ntSecurityDescriptor"

;Get theSD and DACL
sd = dsGetProperty(sPrinterPath, sPropertyName)
acl = dsGetSecProp(sd, "DiscretionaryAcl")

; Get the number of ace in acl
Aces = dsAclGetAces(acl, 1)
n = ItemCount(Aces, @TAB)

For i=1 To n
   ace = ItemExtract(i, Aces, @TAB)
   trustee = dsGetSecProp(ace, "Trustee")
   Acetype = dsGetSecProp(ace, "AceType")
   Pause('Property values of security objects', "Trustee: " : trustee : @LF : "AceType: " : acetype )

   ; REMOVE ACE - Only if it's our user and it is an allow ACE.
   If StriCmp(trustee, sUser) == 0 && Acetype == 0
      ret = AskYesNo( 'Remove ACE?', 'Are you sure you want to remove?') )
      If ret == @YES Then dsAclRemAce(acl, ace)
   EndIf
Next

; Place the SD back in the object.
dsSetSecProp(sd, "DiscretionaryAcl", acl)
dsSetProperty(sPrinterPath, sPropertyName, sd)

Article ID:   W17552

Filename:   REmove User from Printer Object.txt

File Created: 2010:12:16:10:02:20

Last Updated: 2010:12:16:10:02:20