my $cmd_line = sprintf(qq~runas /user:%s\\%s cscript.exe "c:\\windows\\system32\\Printing_Admin_Scripts\\de-DE\\%s.vbs" "%s"|~, 
    $ENV{USERDOMAIN}, $ENV{USERNAME}, @_);
open (CMD, $cmd_line) or die "Unable to open external program: $!";
# ...