Here is the entire snippet

 Code:
If $Checks[2] = -1
;VPN ADD
	$Nul = WriteLine($FH,"Function Requested = VPN ADD"+@CRLF)
	UpdateProgress(25)
	$Label3.Text = "Adding VPN - Telecommute to user "+$User
	$WS = GetObject("LDAP://CN=UPM_Test,OU=Login Script,OU=!Development,DC=Fabrikom,DC=Microsoft,DC=Com")
	$Usr = GetObject("LDAP://"+ TranslateName(3,"",3,@domain+"\"+$User,1)[0])
	$WS.add ($Usr.ADsPath)
	$WS.Setinfo
        If @Error = 0
	     $Nul = WriteLine($FH,"Added user "+$user+" to TermTelecom "+@Date+"-"+@Time+@CRLF)
        Else
             $Label3.Text = "Add User failed, please open a ticket!"
        EndIf
	ClearForm()
EndIf


Just have to get the delete to work now. \:\)
_________________________
Today is the tomorrow you worried about yesterday.