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.

Hello, I'm using Perl on Windows to read in a file as such: APPLS\UTILITY\NOV2WIN mtuser:RXL I read in the entire file full of these and put them into an array (@array). if I do a "Print @array\n"; all of the backslashes that were in the text file are intact. I however cannot seem...

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!

I have a program which can require several arguements. I use the join command then parse out data I recognize. the scrip snip below is what I use to grab the filename. I'm not sure why it won't accept full pathing such as "D:\utility\filename.txt" which comes out as just...

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...

use Win32::Console; my $StdIn = new Win32::Console( STD_INPUT_HANDLE ); my $Password = ""; $StdIn->Mode( ENABLE_PROCESSED_INPUT ); print "Enter password: "; while( my $Data = $StdIn->InputChar( 1 ) ) { if( "\r" eq $Data ) { last; } elsif(...

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...

Help... I've got a script which I'm passing several arguements to, or maybe none depending on the situation. 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 =~...

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?

Whoot! Thanks a million for all your help! It's working, and here's the code! I've got a few minor issues to figure out with quotes because of long file names, but otherwise it's great! # Program: Q-Robo.pl # Purpose: Qeue and run multiple Robocopies at a time # Operating system: Windows...

Okies, Here's my draft trying to pick stuff from your link - but I'm still quite confused about how to get that working... My program: # Qeueing Robocopy # Operating system: Windows XP # Enter a directory (eg. D:\Users) # Read in directories beneath and queue them up (eg. D:\Users\a...