Delete Private AOT projects in AX 2012

staticvoid deleteAllProjectObjects3(Args _args)
{
/*
    msdn.microsoft.com/en-us/library/bb190038(v=ax.10).aspx
    */
SysModelElement     sysModelElement;
ProjectNode         privatePn;
ProjectNode         pn;
utilElementName     shortName;
int                 len;
str                 preFix;

// Navigate to the Private projects folder.
    privatePn = infolog.projectRootNode().AOTfindChild("Private");

    preFix = curuserid()+'_';
    len = strlen(preFix);


while select sysModelElement
where sysModelElement.ElementType == 38
            //&& sysModelElementName like "*TestProj*"
    {
// remove <userId>_ from the _projectName to get the name used in the Projects tree for a private project
if (substr(sysModelElement.Name, 1, len) == preFix)
        {
            shortName = strdel(sysModelElement.Name, 1, len);
        }

// Get a reference to the project.
        pn = privatePn.AOTfindChild(shortName);

        pn.AOTdelete();
    }
}