Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
Samples from Users
- !!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.
Delete Computer Account
Here is a script I wrote to delete a computer account out of AD.
;==============================================================================
; UDF_ADCOMPDELETE
;==============================================================================
#DefineFunction UDF_ADCompDelete(sCompName, sDomain)
; Load the ADSI Extender
AddExtender("wwads34i.dll")
DomPath = StrCat("LDAP://DC=", sDomain, ",DC=com")
sAdsiPath = DomPath
sSearch = StrCat('(&(objectCategory=computer)(CN=', sCompName, '))')
CompPath= dsFindPath(sAdsiPath, sSearch)
nCount = ItemCount(CompPath, @TAB)
If nCount != 1
BoxShut()
Return 0
EndIf
dsDeleteObj(CompPath) ; Delete the computer Account
Return 1
#EndFunction
sDomain="mydomain"
sCompName=AskLine( "AD Server Delete","Please enter a name of a computer you wish to delete", "")
q = AskYesNo('!! Computer Deletion Verification', StrCat("Are you sure you wish to delete all information regarding", @CRLF, sCompName))
If q != @YES Then Exit
BoxOpen("AD Server Delete", "Initializing")
CDel = UDF_ADCompDelete(sCompName, sDomain)
If CDel == 1
Display(2, "AD Server Delete", StrCat(sCompName, " server deleted successfuly"))
Else
Errmsg = StrCat("Error Reclaiming Server", @CRLF, sCompName, @CRLF, "could not be found or", @CRLF, "More than one server matched criteria - Exiting")
Message("AD Server Delete ERROR", Errmsg)
Exit
EndIf
BoxShut()
Article ID: W15825
File Created: 2012:12:06:08:32:26
Last Updated: 2012:12:06:08:32:26