Beispielcode zum Löschen von Benutzern auf einem Mitgliedsserver oder Windows 2000 Professional
Mit dem Visual Basic Code wird ein Benutzer auf einem Mitgliedsserver oder einer Arbeitsstation gelöscht.
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