Search results for query: *

Hello, I am trying to determine the actual local userid from a script that is running under the elevated SMS service account ID. Does anyone know how I can do this? I'm using Kix as the script but am open to any ideas. Thank you!

Hello, We are trying to install the Cisco VPN Client v3.6.4a to XP laptops. These laptop users are set as "Power Users" and so we have to use the elevated security from the SMS client. The installation seems to work fine but after the final reboot the laptop is unable to locate the...

So far I have this for "press any key" - I'm thinking there's a better way but this actually works with "ANY KEY" insted of the ENTER key and anything prior to it. The Win32::Console is part of perl now I think so you don't have to do any install. Hope it helps, I'm always...

Hello, I've found many instances where I am processing large text files as input to a process. I would like to be able to give some sort of indication of progress without scrolling a number off the screen. My thought is to read in the input text file and determine its size (number of lines...

I guess I feel kinda silly now. My intent of the while was the same as the resutl of foreach. I've mis-used while before and had troubles as well. That seems to take care of my problem =) Thank you very much (back to the books ;) heheh.

...are intact. I however cannot seem to find a way to get them out of the array and intact for manipulation, printing, etc. Any help appreciated *scratching head* I've thought about a global search replace on backslashes or something but I can't help but think I'm missing something obvious...

I might try a variation on that, I'm not so great at my Regex's ;) I have several paramaters I pass so I would need to get everything up to the next space which is doable I'm sure =) Thanks for the tip, I'll try to get that to work!

...why it won't accept full pathing such as "D:\utility\filename.txt" which comes out as just "D" if ($input =~ m/-[oO] (\w+\.?\w*)/) { # fileout $fileout = $1; $input =~ s/\s*(\-[oO])\s*//; $input =~ s/$fileout//i; print "Fileout: $fileout\n"; open...

Is there an easy way to exit / restart the Perl script you're currently running? Also, is there anything special to calling another external Perl script. Thank you in advance for any help. Grabbing the Perl books now =) -G

Ooooh! Looks like eval will work!!! Thank you thank you thank you! Justice41, you've probably answered every one of my "I'm stumped" questions - Just let me know if you need me to mail you a case of beer someday =) Thanks again! -Goliath

I've been trying to simulate this in a smaller script which turned out to be surprisingly difficult. Yet I came up with this: $x = "DEF"; $y = "ABC \$x"; print "$y"; - gives "ABC $x" instead of "ABC DEF". I'm wondering if there's a way I...

Help! I guess I'm stumped on some useage for variables. I've written a menu in perl. The menu script reads from a text file to determine what to display on the menu and then what to do for that selection. Sample of menu data file($description, $command): Copy data, Copy $from $to Delete...

...) ) { if( "\r" eq $Data ) { last; } elsif( "\ch" eq $Data ) { if( "" ne chop( $Password ) ) { print "\ch \ch"; } next; } $Password .= $Data; print "*"; } print "\nYour password is...

Hmm, still no help = I've fuddled with a few options and I'm still stuck. maybe I didnt leave enough information. I should add that this is what I'm doing with the argv my $usern = join ' ', @ARGV; a sample line of input might be: perl test.pl -v -f filename.txt or perl test.pl -d -f...

...I use the join command to smack them into one variable and am working with that. -snip- if ($usern =~ m/-[vV]/) { # verbose $usern =~ s/\s*(\-[vV])\s*//; $v = 1;} if ($usern =~ m/-[dD]/) { # duplicates $usern =~ s/\s*(\-[dD])\s*//; $d = 1;} if ($usern =~ m/-[fF]/) { # filename $usern...

Is there a way to find the non-unique (duplicates) instead ? -Thanks!

Hello, I think I'm getting close to the solution... What I'd like to do is be able to pass to the perl program either 1, 2 or no arguements and of the two passed maybe allow them to be in either order.... Example: Perl userquery.pl myname -v or Perl userquery.pl -v myname -v for verbose if...

Is there a way to capture any error codes resulting from using they system() command?

...$nextpid; sleep 1; } } sub TaskN { my $from = shift; # Get directory passed as argument print "* Copying $tree$from to $to$from \n"; $syscom = "Robocopy $tree$from $to$from /E /NP /Z /V /R:5 /w:3 /LOG+:$from.log&quot...

...my $nextpid = shift @queued; last if waitpid($nextpid, WNOHANG); push @queued, $nextpid; sleep 1; } } sub TaskN { print "* Robocopying $from to $to \n"; # system ("start RoboCopy $from $to /E /NP"); }