my $cmd=qq|runas /profile /user:$user "$exe"|;
open(FH,"| $cmd")  || die $^E;
print FH "$pass\r\n";
close(FH);