We help IT Professionals succeed at work.

Disable User with VB6

CCIG2006
CCIG2006 used Ask the Experts™
on
How can I have VB enable/disable a user, the same way I would manually do it through "Control Panel/Administrative Tools/Computer Management/Local Users and Groups/Users" and right-click to open the "Properties" window and check/uncheck the "Account is Disable" checkbox?

Thanks,
Mike
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Commented:
Here is a quick example of one way you could do it.

Private Sub Command1_Click()
    Dim t As Object
    Dim strComputer As String
    strComputer = "."
    On Error GoTo HandleError
    Set t = GetObject("WinNT://" & strComputer & "/" & Text1.Text)
    MsgBox t.AccountDisabled
    t.AccountDisabled = True
    t.SetInfo
    MsgBox t.AccountDisabled
    Exit Sub
HandleError:
    MsgBox Err.Description
End Sub