Platform SDK: Active Directory, ADSI, and Directory Services |
The following Visual Basic code deletes a user on a member server or workstation:
Dim cont As IADsContainer Dim oGroup As IADsGroup 'Example: Deleting a user on a member server or workstation ''''''''''''''''''''''''''''''''''''''' 'Parse the arguments ''''''''''''''''''''''''''''''''''''''' On Error Resume Next sComputer = InputBox("This script deletes a user from a member server or workstation." & vbCrLf & vbCrLf & "Specify the computer name:") If sComputer = "" Then Exit Sub End If sUser = InputBox("Specify the user name:") If sUser = "" Then Exit Sub End If ''''''''''''''''''''''''''''''''''''''' 'Bind to the computer ''''''''''''''''''''''''''''''''''''''' Set cont = GetObject("WinNT://" & sComputer & ",computer") If (Err.Number <> 0) Then BailOnFailure Err.Number, "on GetObject method" End If ''''''''''''''''''''''''''''''''''''''' 'Delete the user ''''''''''''''''''''''''''''''''''''''' cont.Delete "user", sUser If (Err.Number <> 0) Then BailOnFailure Err.Number, "on IADsContainer::Delete method" End If strText = "The user " & sUser & " was deleted on computer " & sComputer & "." Call show_users(strText, sComputer) ''''''''''''''''''''''''''''''''''''''' 'Display subroutines ''''''''''''''''''''''''''''''''''''''' Sub show_users(strText, strName) MsgBox strText, vbInformation, "Delete user on " & strName End Sub