$RasSetEntryProperties ||= new("rasapi32", "RasSetEntryProperties", [P,P,P,N,P,N], N);

  my $ret = $RasSetEntryProperties->Call($PHONEBOOK||0,
	 $props->{name}, $RASENTRY, length($RASENTRY),0,0);