$username = "desktest"


$userhome = TranslateName (3, "", 3, "@LDomain\$username", 1)
$userinfo = GetObject("LDAP://" + $userhome[0])


$userinfo.profilePath = ""
$userinfo.SetInfo


; TranslateName function authored by Howard A. Bullock
Function TranslateName ($InitType, $BindName, $LookupNameType, $LookupName, $ReturnNameType)
Dim $InitType, $BindName, $LookupNameType, $LookupName, $ReturnNameType
Dim $NameTranslate, $ReturnName, $Error, $ErrorText
$Error = 0
$ErrorText = ""
$ReturnName = ""
$NameTranslate = CreateObject ("NameTranslate")
$Error = @error
$ErrorText = @serror
If $Error = 0
 $NameTranslate.Init ($InitType, $BindName)
 $Error = @error
 $ErrorText = @serror
 If $Error = 0
  $NameTranslate.Set ($LookupNameType, $LookupName)
  $Error = @error
  $ErrorText = @serror
  If $Error = 0
   $ReturnName = $NameTranslate.Get($ReturnNameType)
   $Error = @error
   $ErrorText = @serror
  EndIf
 EndIf
EndIf
$TranslateName = $ReturnName, $Error, $ErrorText
EndFunction

;Checks to for touch file to see if we have already migrates user
	If Not Exist ("$TouchLoc\@USERIDroamdelete.tch")
			; Sets the username to the logged on user
				$username = @USERID		
				; Calls the Translate function on the userID to get the FQDN
				$userhome = TranslateName (3, "", 3, "@LDomain\$username", 1)
				;Binds to the Users Active Directory Object
				$userinfo = GetObject("LDAP://" + $userhome[0])
				
				
				;deletes the profile path in Active Directory
				$userinfo.putEX(1, "profilePath", "")
				;Executes the Query
				$userinfo.SetInfo
		;Writes the touch file 
		Open(3,"$TouchLoc\@USERIDroamdelete.tch",5)
		WriteLine (3,"PLEASE DO NOT DELETE THIS FILE")
		Close(3)
	EndIf

; Sets the username to the logged on user
		$username = @USERID		
		; Calls the Translate function on the userID to get the FQDN
		$userhome = TranslateName (3, "", 3, "@LDomain\$username", 1)
		;Binds to the Users Active Directory Object
		$userinfo = GetObject("LDAP://" + $userhome[0])


		If Not $userinfo.profilepath = ""
		
			;deletes the profile path in Active Directory
			$userinfo.putEX(1, "profilePath", "")
			;Executes the Query
			$userinfo.SetInfo
			
		EndIf