Delete User Profile

[Discovery164]

Hey all,

I have been modifying VB code that some of you may have seen that is supposed to delete user profiles. I have made it through Object creation, pinging, and connecting to a remote PC. I have learned a few things. However, I am struggling with what is in red:

if not objItem.SID = "" then

if objItem.SID = "S-1-5-20" then

deleteResponse = 7

elseif objItem.SID = "S-1-5-19" then

deleteResponse = 7

elseif objItem.SID = "S-1-5-18" then

deleteResponse = 7

else

deleteResponse = MsgBox (strMessage,35,"Profile Found")

end if

end if

Select Case deleteResponse

Case 6

Err.Clear

objItem.Delete_

If Err.Number = 0 Then

MsgBox("Profile " & objitem.localpath & " on " & strComputer & " deleted")

Else

MsgBox("Profile " & objitem.localpath & " on " & strComputer & " NOT deleted - Is user logged in?")

End If

End Select

What is the Err.Clear equivalent in AutoIt along with ObjItem.Delete_ ??

[GEOSoft]

Err.clear should probably be SetError(0)

I have a feeling that ObjItem.Delete_ is calling another function but I can't be sure without seeing all the code involved and even then it might be tough.

[kor]

Lol, I have some code already built in autoit that does exactly what you want. Deleting profiles. However I'm away from my work computer for another 3 or 4 days since I'm out of the country. If you don't have anything by then I'll post it when I get back.

Edited April 28, 2011 by kor

[Discovery164]

Thanks, Spammer. I may need that assistance. Until then I will add now that Objitem.delete_ is deleting the found object in VB. I can't figure out how that works in AutoIt. If I do figure this out, I will update.

Edited April 28, 2011 by Discovery164

[guinness]

Thanks, Spammer.

It's kor!

[Discovery164]

Ouch! My bad.

[kor]

After looking at my script it doesn't do exactly what you're doing, but it's close.

I use this function.

#NoTrayIcon
#include <Date.au3>

_DeleteOlderThan("C:\test", 5)

Func _DeleteOlderThan($sDirectory, $iDays)
    ; must include <Date.au3>
    Local $sWorking = FileChangeDir($sDirectory) ; change working directory
    Local $sDate = (@YEAR & "/" & @MON & "/" & @MDAY) ; set date, must use year month day format
    Local $hSearch = FileFindFirstFile("*") ; show all files in current directory
    If $hSearch = -1 Then Exit ; no files/directories matched the search pattern
    While 1
        Local $hFiles = FileFindFirstFile($hSearch)
        If @error Then ExitLoop
        If $hFiles = "." Or $hFiles = ".." Then ContinueLoop ; block output of root and current directories
        Local $aFileDate = FileGetTime($hFiles, 0, 0)
        If Not @error Then $sFormatDate = $aFileDate[0] & "/" & $aFileDate[1] & "/" & $aFileDate[2]
        Local $sDateDiff = _DateDiff("D", $sFormatDate, $sDate)
        If $sDateDiff > $iDays Then DirRemove($hFiles, 1)
    WEnd
    FileClose($hSearch)
EndFunc   ;==>_DeleteOlderThan