I guess I should be a little more specific.
I've only used the portion that removes profiles.

I've added the variables as well from the beginning of the script.

If $Profile_Remove = "YES"
; -- If it does not exist, delete out any odd-ball Profiles
; -- Like OEM user, etc.
$index = 0
:loop3
$keyname = ENUMKEY($profilelocation, $index)
IF @error = 0
;? "Name found: $KeyName" ; -- Uncomment for debugging
; -- Going to check for @userid
IF $keyname <> @userid OR $keyname <> "Sales"
$rc = DELTREE($profilelocation+"\"+$keyname)
;$RC = DELKEY($ProfileLocation, $KeyName)
$index = $index + 1
GOTO Loop3
ENDIF
ENDIF
ENDIF

I have the profile creation down cold but there are some leftover junk in the profile section that I need to clean up.