Windows disabled username

[maxthailand]

How disabled windows username?

and how delete windows username?

form link ==>

#windows server 2003

[water]

I assume you are from Thailand (based on your username).

You want to get a list of disabled local user accounts?

You want to delete this disabled accounts?

[maxthailand]

I assume you are from Thailand (based on your username).

You want to get a list of disabled local user accounts?

You want to delete this disabled accounts?

I assume you are from Thailand (based on your username)....Yes!

You want to get a list of disabled local user accounts?...Yes!

You want to delete this disabled accounts?...Yes!

[PhoenixXL]

Try with ControlHide

and ControlCommand with IsEnabled

_WinAPI_EnumChildWindows to enumerate the Child Controls -

Edited April 7, 2013 by PhoenixXL

[water]

Sorry PhoenixXL,

but are you sure you posted in the correct thread?

[maxthailand]

Try with ControlHide

and ControlCommand with IsEnabled

_WinAPI_EnumChildWindows to enumerate the Child Controls -

Example

[water]

If you search the forum you will find a lot of threads describing how to create a local user (). Modifying them to delete the user should be easy.

[PhoenixXL]

but are you sure you posted in the correct thread?

My Misunderstanding. Sorry

[water]

No problem.

I think the OPs problem can be solved using the WinNT provider.

[maxthailand]

Func Dis($UserName)
$strComputer = @ComputerName
$objUser = ObjGet("WinNT://" & $strComputer & "/" & $UserName)
if not @error Then
  $objUser.AccountDisabled = True
  $objUser.SetInfo
  ConsoleWrite("1")
Else
  ConsoleWrite("2")
  Exit
EndIf
EndFunc
Func Dele($UserName)
$strComputer = @ComputerName
$objUser = ObjGet("WinNT://" & $strComputer)
if not @error Then
  $objUser.Delete("user", $UserName)
  ConsoleWrite("1")
Else
  ConsoleWrite("2")
  Exit
EndIf
EndFunc

True or False

[water]

Doesn't look bad! Couldn't test it but it looks good!

I would return a value for the calling function to check for success or error. In case of an error set macro @error.

Example:

Global $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")
Func Dis($UserName)
    $strComputer = @ComputerName
    $objUser = ObjGet("WinNT://" & $strComputer & "/" & $UserName)
    If @error then Return SetError(1, @error, 0) ; Sets the return value = 0, @error = 1 and @extended to the COM error code
    $objUser.AccountDisabled = True
    $objUser.SetInfo
    If @error then Return SetError(2, @error, 0) ; Sets the return value = 0, @error = 2 and @extended to the COM error code
    Return 1 ; Sets the return value = 1
EndFunc
Func Dele($UserName)
   $strComputer = @ComputerName
   $objUser = ObjGet("WinNT://" & $strComputer)
   If @error then Return SetError(1, @error, 0) ; Sets the return value = 0, @error = 1 and @extended to the COM error code
   $objUser.Delete("user", $UserName)
   If @error then Return SetError(2, @error, 0) ; Sets the return value = 0, @error = 2 and @extended to the COM error code
   Return 1 ; Sets the return value = 1
EndFunc

; User's COM error function. Will be called if COM error occurs
Func _ErrFunc($oError)
    ; Do anything here.
    ConsoleWrite("err.number is: " & @TAB & $oError.number & @CRLF & _
            "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            "err.description is: " & @TAB & $oError.description & @CRLF & _
            "err.source is: " & @TAB & $oError.source & @CRLF & _
            "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            "err.retcode is: " & @TAB & $oError.retcode & @CRLF & @CRLF)
EndFunc   ;==>_ErrFunc

Edited April 7, 2013 by water

[JohnOne]

Do object methods or/and properties set @error?

for instance $objUser.AccountDisabled = True and $objUser.Delete("user", $UserName) or is an error handler needed.

[water]

Good question.

If running AutoIt 3.3.8.1 you need a COM error handler. With 3.3.9.x is is obsolete.

I will modify my post above.

[maxthailand]

Full Code

expandcollapse popup

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Global $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")
if $CmdLine[0] <> 2 Then
ConsoleWrite("0")
Exit
Else
$a = $CmdLine[1]
$UserName = $CmdLine[2]
if $a ==1 Then
$strComputer = @ComputerName
$objUser = ObjGet("WinNT://" & $strComputer & "/" & $UserName)
if not @error Then
$objUser.AccountDisabled = True
$objUser.SetInfo
ConsoleWrite("1")
Else
ConsoleWrite("2")
Exit
EndIf
Elseif $a = 2 Then
$strComputer = @ComputerName
$objUser = ObjGet("WinNT://" & $strComputer & "/" & $UserName)
if not @error Then
$objUser.AccountDisabled = False
$objUser.SetInfo
ConsoleWrite("1")
Else
ConsoleWrite("2")
Exit
EndIf
Elseif $a = 3 Then
$strComputer = @ComputerName
$objUser = ObjGet("WinNT://" & $strComputer)
if not @error Then
$objUser.Delete("user", $UserName)
ConsoleWrite("1")
Else
ConsoleWrite("2")
Exit
EndIf
EndIf
FileWrite("log.txt",$a&" | "&$UserName&@CRLF)
EndIf
Exit
; User's COM error function. Will be called if COM error occurs
Func _ErrFunc($oError)
; Do anything here.
ConsoleWrite("err.number is: " & @TAB & $oError.number & @CRLF & _
"err.windescription:" & @TAB & $oError.windescription & @CRLF & _
"err.description is: " & @TAB & $oError.description & @CRLF & _
"err.source is: " & @TAB & $oError.source & @CRLF & _
"err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
"err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
"err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
"err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
"err.retcode is: " & @TAB & $oError.retcode & @CRLF & @CRLF)
EndFunc ;==>_ErrFunc

Test for cmd = ="

(ma.exe 1 maxtesttest)

[water]

Don't understand what's going on.

Does the script write those messages forever or does it crash at the end?

[maxthailand]

Edit to...

expandcollapse popup

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
if $CmdLine[0] <> 2 Then
ConsoleWrite("0")
Exit
Else
$a = $CmdLine[1]
$UserName = $CmdLine[2]
if $a ==1 Then
$strComputer = @ComputerName
$objUser = ObjGet("WinNT://" & $strComputer & "/" & $UserName)
if not @error Then
$objUser.AccountDisabled = True
$objUser.SetInfo
$objUser = ObjGet("WinNT://" & $strComputer & "/" & $UserName)
if not @error Then
$objAccountDisabled = $objUser.Get("AccountDisabled")
if $objAccountDisabled == True Then
ConsoleWrite("1")
Else
ConsoleWrite("2")
EndIf
Else
ConsoleWrite("3")
EndIf
Exit
Else
ConsoleWrite("2")
Exit
EndIf
Elseif $a = 2 Then
$strComputer = @ComputerName
$objUser = ObjGet("WinNT://" & $strComputer & "/" & $UserName)
if not @error Then
$objUser.AccountDisabled = False
$objUser.SetInfo
$objUser = ObjGet("WinNT://" & $strComputer & "/" & $UserName)
if not @error Then
$objAccountDisabled = $objUser.Get("AccountDisabled")
if $objAccountDisabled == False Then
ConsoleWrite("1")
Else
ConsoleWrite("2")
EndIf
Else
ConsoleWrite("3")
EndIf
Exit
Else
ConsoleWrite("2")
Exit
EndIf
Elseif $a = 3 Then
$strComputer = @ComputerName
$objUser = ObjGet("WinNT://" & $strComputer)
if not @error Then
$objUser.Delete("user", $UserName)
$objUser = ObjGet("WinNT://" & $strComputer & "/" & $UserName)
if @error Then
ConsoleWrite("1")
Else
ConsoleWrite("2")
EndIf
Exit
Else
ConsoleWrite("2")
Exit
EndIf
EndIf
FileWrite("log.txt",$a&" | "&$UserName&@CRLF)
EndIf
Exit

:'(

[water]

You removed the COM error handler. So the script now crashes?

[maxthailand]

You removed the COM error handler. So the script now crashes?

If you put "COM error handler" It will endless error, like before this post. Edited April 10, 2013 by maxthailand

[water]

Which version of AutoIt do you run?

[maxthailand]

Which version of AutoIt do you run?

v3.3.6.1