Windows Perl Scripting Forums

Windows Perl Scripting Forums » Recent Posts http://www.roth.net/forums/ Windows Perl Scripting Forums » Recent Posts en Fri, 12 Mar 2010 13:24:13 +0000 freebsdboy on "Need help in Perl scripting to get system details in windows XP operating system" http://www.roth.net/forums/topic.php?id=298#post-629 Fri, 22 Jan 2010 07:06:47 +0000 freebsdboy 629@http://www.roth.net/forums/ To get the list of installed software you'll need to use Win32::TieRegistry and look in $Registry->{"LMachine/Software/Microsoft/Windows/CurrentVersion/Uninstall/"}; freebsdboy on "Need help in Perl scripting to get system details in windows XP operating system" http://www.roth.net/forums/topic.php?id=298#post-628 Fri, 22 Jan 2010 06:53:26 +0000 freebsdboy 628@http://www.roth.net/forums/ Here is some easy code to use. We use it to help assist unattended installs know what drivers to install. use Win32::OLE qw(in with); use Win32::Registry; # Pick a host that you have the necessary rights to monitor $host = "localhost"; $path = 'c:\\temp'; $WMI = Win32::OLE->new('WbemScripting.SWbemLocator') || die "Cannot access WMI on local machine: ", Win32::OLE->LastError; $Services = $WMI->ConnectServer($host) || die "Cannot access WMI on remote machine: ", Win32::OLE->LastError; # Gather Computer System Information $sys_set = $Services->InstancesOf("Win32_ComputerSystem"); foreach $sys (in($sys_set)) { $system_name = $sys->{'Caption'}; $system_type = $sys->{'SystemType'}; $system_manufacturer = $sys->{'Manufacturer'}; $system_model = $sys->{'Model'}; } # Gather Processor Information $processor_set = $Services->InstancesOf("Win32_Processor"); foreach $proc (in($processor_set)) { $proc_description = $proc->{'Caption'}; $proc_manufacturer = $proc->{'Manufacturer'}; $proc_mhz = $proc->{'CurrentClockSpeed'}; } # Gather BIOS Information $bios_set = $Services->InstancesOf("Win32_BIOS"); foreach $bios (in($bios_set)) { $bios_info = $bios->{'Version'}; } # Gather Time Zone Information $loc_set = $Services->InstancesOf("Win32_TimeZone"); foreach $loc (in($loc_set)) { $loc_timezone = $loc->{'StandardName'}; } # Gather Operating System Information $os_set = $Services->InstancesOf("Win32_OperatingSystem"); foreach $os (in($os_set)) { $os_name = $os->{'Caption'}; $os_version = $os->{'Version'}; $os_manufacturer = $os->{'Manufacturer'}; $os_build = $os->{'BuildNumber'}; $os_directory = $os->{'WindowsDirectory'}; $os_locale = $os->{'Locale'}; $os_totalmem = $os->{'TotalVisibleMemorySize'}; $os_freemem = $os->{'FreePhysicalMemory'}; $os_totalvirtmem = $os->{'TotalVirtualMemorySize'}; $os_freevirtmem = $os->{'FreeVirtualMemory'}; $os_pagefilesize = $os->{'SizeStoredInPagingFiles'}; } # Now convert the system's Locale to a string # Use the Rfc1766 Database stored in the Registry as a lookup table $main::HKEY_LOCAL_MACHINE->Open("SOFTWARE\\Classes\\MIME\\Database\\Rfc1766",$Rfc1766); $Rfc1766->GetValues(\%Values); foreach $key (keys %Values) { $key = $Values{$key}; if ($$key[0] eq $os_locale) { ($lang, $country) = split(/\;/, $$key[2]); last; } } # make a file by the name of the system model and put all this in it. $system_model = laptop if ($system_model eq ''); open( FILE_HANDLE, ">$path\\$system_model") or die "Can't write to $path\\$system_model\n" ; print FILE_HANDLE "System Summary Information\n"; print FILE_HANDLE "--------------------------\n"; print FILE_HANDLE "OS Name\t\t\t\t$os_name\n"; print FILE_HANDLE "Version\t\t\t\t$os_version Build $os_build\n"; print FILE_HANDLE "OS Manufacturer\t\t\t$os_manufacturer\n"; print FILE_HANDLE "System Name\t\t\t$system_name\n"; print FILE_HANDLE "System Manufacturer\t\t$system_manufacturer\n"; print FILE_HANDLE "System Model\t\t\t$system_model\n"; print FILE_HANDLE "System Type\t\t\t$system_type\n"; print FILE_HANDLE "Processor\t\t\t$proc_description $proc_manufacturer ~$proc_mhz Mhz\n"; print FILE_HANDLE "BIOS Version\t\t\t$bios_info\n"; print FILE_HANDLE "Windows Directory\t\t$os_directory\n"; print FILE_HANDLE "Locale\t\t\t\t$country\n"; print FILE_HANDLE "Time Zone\t\t\t$loc_timezone\n"; print FILE_HANDLE "Total Physical Memory\t\t$os_totalmem KB\n"; print FILE_HANDLE "Available Physical Memory\t$os_freemem KB \n"; print FILE_HANDLE "Total Virtual Memory\t\t$os_totalvirtmem KB\n"; print FILE_HANDLE "Available Virtual Memory\t$os_freevirtmem KB\n"; print FILE_HANDLE "Page File Space\t\t\t$os_pagefilesize KB\n"; close (FILE_HANDLE); dineshkhanna on "Need help in Perl scripting to get the currently opened applications on desktop" http://www.roth.net/forums/topic.php?id=299#post-627 Wed, 20 Jan 2010 01:27:14 +0000 dineshkhanna 627@http://www.roth.net/forums/ Hi , Need help in Perl scripting to get the currently opened applications on desktop.I am able to open the applications using “system” command. I need to check whether the application is opened on desktop after executing the system command. Please let me know if you need more info. It will be great if you guide me in this. Thanks, Dinesh. dineshkhanna on "Need help in Perl scripting to get system details in windows XP operating system" http://www.roth.net/forums/topic.php?id=298#post-626 Wed, 20 Jan 2010 01:26:05 +0000 dineshkhanna 626@http://www.roth.net/forums/ Need help in Perl scripting to get system details in windows XP operating system.Currently I am using win32 class to get the system details like RAM size, processor speed ,Hard disk capacity and fetching the list of installed software.I would like to write the Perl script to get the above system details without using win32 class. I will be great if you could able to guide me to write the Perl script to get the above system details without using win32 class. Below is the sample code which I am currently using to get Hard Disk capacity in Perl, use strict; use Win32::OLE('in'); use constant wbemFlagReturnImmediately => 0x10; use constant wbemFlagForwardOnly => 0x20; my @computers = ($_[0]); foreach my $computer (@computers) { my $objWMIService = Win32::OLE->GetObject("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection failed.\n"; my $colItems = $objWMIService->ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", wbemFlagReturnImmediately | wbemFlagForwardOnly); foreach my $objItem (in $colItems) { print "\n"; print "Hard Disk capacity : $objItem->{Size}\n"; print "\n"; } } freebsdboy on "Win32-Daemin updated ppd for perl 5.10 ?" http://www.roth.net/forums/topic.php?id=294#post-622 Thu, 10 Dec 2009 13:50:07 +0000 freebsdboy 622@http://www.roth.net/forums/ We use win32-daemon on our systems, any chance their is a version that will install with the perl 5.10 release of activestate? I get The PPD does not provide code to install for this platform Thanks Rhodge09 on "PERL Craps Game" http://www.roth.net/forums/topic.php?id=290#post-621 Wed, 02 Dec 2009 21:06:10 +0000 Rhodge09 621@http://www.roth.net/forums/ Anyone help me Rhodge09 on "PERL Craps Game" http://www.roth.net/forums/topic.php?id=290#post-620 Wed, 02 Dec 2009 21:05:16 +0000 Rhodge09 620@http://www.roth.net/forums/ If this helps i want something just like this.. <a href="http://ctech.smccme.edu/~zeke/cw/save/craps/craps.pl" rel="nofollow">http://ctech.smccme.edu/~zeke/cw/save/craps/craps.pl</a> if you want the code i have as of right now and you think you can help me a little at a time i'd appreciate it. KenjiIzce118 on "Per Scrip Dices Games Help." http://www.roth.net/forums/topic.php?id=293#post-619 Thu, 26 Nov 2009 09:59:00 +0000 KenjiIzce118 619@http://www.roth.net/forums/ Hey everyone, I am having some trouble with a pearl scrip dices game has one one ever done or made a dices game using pearl?? if you have can you please show me a sample or help me get started?? Thank you KenjiIzce118 on "Per Scrip Dices Games Help." http://www.roth.net/forums/topic.php?id=292#post-618 Thu, 26 Nov 2009 09:58:18 +0000 KenjiIzce118 618@http://www.roth.net/forums/ Hey everyone, I am having some trouble with a pearl scrip dices game has one one ever done or made a dices game using pearl?? if you have can you please show me a sample or help me get started?? Thank you KenjiIzce118 on "Per Scrip Dices Games Help." http://www.roth.net/forums/topic.php?id=291#post-617 Thu, 26 Nov 2009 09:57:21 +0000 KenjiIzce118 617@http://www.roth.net/forums/ Hey everyone, I am having some trouble with a pearl scrip dices game has one one ever done or made a dices game using pearl?? if you have can you please show me a sample or help me get started?? Thank you Rhodge09 on "PERL Craps Game" http://www.roth.net/forums/topic.php?id=290#post-616 Mon, 23 Nov 2009 12:54:18 +0000 Rhodge09 616@http://www.roth.net/forums/ This must have all the basics of the game completed and functioning. This means that the game must generate the two dice values and display an image for each individual dice. Set the correct conditions for the first throw to determine a win or a loss or the setting of a point. If the point is set the play must continue with consecutive throws until the point is matched or a 7 is thrown and a win or a loss is determined. Rhodge09 on "PERL Craps Game" http://www.roth.net/forums/topic.php?id=290#post-615 Mon, 23 Nov 2009 06:29:37 +0000 Rhodge09 615@http://www.roth.net/forums/ Ya i know how to do forms and all that stuff..i've tried it and it still wont work. its not that hard to do: sub form{ print " form method=post action='' "" input type='' name='' /form> "; } The problem is where to do i put it? How will this work if i just make a button. I dont think it will. I'm still waiting for an answer i've posted this in like 6 other threads all over and no one can get it. Dave on "PERL Craps Game" http://www.roth.net/forums/topic.php?id=290#post-614 Sun, 22 Nov 2009 23:35:06 +0000 Dave 614@http://www.roth.net/forums/ You need to study how HTML and CGI works. This is all do-able and fairly straight forward. Look up how HTML forms work and create a form with a submit button and CGI variables. Rhodge09 on "PERL Craps Game" http://www.roth.net/forums/topic.php?id=290#post-613 Sun, 22 Nov 2009 06:25:57 +0000 Rhodge09 613@http://www.roth.net/forums/ Well say i need like some type of button and when i click it two numbers come up resembling a dice and it tells me if i win and if i do i get money and if i lose i lose money thats as simple as it needs to be. And when i get down to say 5 dollars then game over and when i hit 1,000 dollars then the game is over. Thats all that i want to happen. Dave on "Perl enclosing SQL fails" http://www.roth.net/forums/topic.php?id=284#post-612 Sun, 22 Nov 2009 01:32:56 +0000 Dave 612@http://www.roth.net/forums/ What are you attempting to do? Your code is specifying a command line string where it should be specifying a file name. If you really intend to read input from a DOS command try this (NOTE that the ~ needs to be a backtick char, but this editor doesn't let me actually enter a backtick): <pre><code>foreach my $Line (~bsq -b <<EOSQL sp_help go EOSQL~ ) { print $Line; }</code></pre> Dave on "PERL Craps Game" http://www.roth.net/forums/topic.php?id=290#post-611 Sun, 22 Nov 2009 01:14:57 +0000 Dave 611@http://www.roth.net/forums/ The first thing you want to do is add a <code> </code> tag before every newline char (\n). So, for example: <code>print "Most Rollcounts: $mostrolls\n";</code> becomes: <code>print "Most Rollcounts: $mostrolls \n";</code> The <code> </code> tag is HTML for a line break. This will solve your line break problem. From what you describe above it sounds like you may have other issues with the script. If so, please post more descriptive explanation. For what it is worth, you can improve performance by aggregating print/sprintf statements into a single printf statement. So this: <code>print "Ave Rollcounts: " . sprintf("%.3f", $bigrollcount/$iterations) . "\n";</code> becomes: <code>printf( "Ave Rollcounts: %.3f\n", $bigrollcount/$iterations);</code> Rhodge09 on "PERL Craps Game" http://www.roth.net/forums/topic.php?id=290#post-610 Sat, 21 Nov 2009 10:18:41 +0000 Rhodge09 610@http://www.roth.net/forums/ I put this at the top of the script and all that comes out is text on the webpage..this is the site : <a href="http://ctech.smccme.edu/~rhodge/cw/craps/cgi-bin/craps.pl" rel="nofollow">http://ctech.smccme.edu/~rhodge/cw/craps/cgi-bin/craps.pl</a> use CGI ':standard'; use CGI::Carp "fatalsToBrowser"; Dave on "PERL Craps Game" http://www.roth.net/forums/topic.php?id=290#post-609 Sat, 21 Nov 2009 10:11:14 +0000 Dave 609@http://www.roth.net/forums/ The problem is less about you script and more with your web page. You need to learn how web pages work. In particular you need to learn about CGI programming. In general a CGI script: -runs on the server when a client browser requests the page -the server runs the script fresh each time. In other words the script has no continuity across multiple requests. -any script output needs to be formatted as HTML becuse your script's output will be sent to the client browser as a web page. -any info you want "remembered" across execution then either pass data in as a parameter or us what are called CGI variables. Rhodge09 on "PERL Craps Game" http://www.roth.net/forums/topic.php?id=290#post-608 Fri, 20 Nov 2009 20:30:32 +0000 Rhodge09 608@http://www.roth.net/forums/ This is my script it works fine but it comes out on my webpage as just text how can i change this around and make it so if i like click a button a 2 different numbers come up almost like the 2 dice and remember how much i make each roll. Is there anyway anyone can help me? I can show you what it looks like in the browser right now if you ask i can show you if that will help. Thanks i really need this because its a project i have to get finished. #!/usr/bin/perl # How many games would you like to roll? $iterations = 1000; for ($count = $iterations; $count >= 1; $count--) { print "$count \n"; # Bankroll per game. Rules are set up for a $5 bet on a 3x/4x/5x table. $bankroll = 200; $rollcount = 0; $high = 200; $itson = 1; while ($itson == 1) { $die1 = int(rand() * 6) + 1; $die2 = int(rand() * 6) + 1; $roll = $die1 + $die2; $rollcount = $rollcount + 1; if ($roll == 7 || $roll == 11) { $bankroll = $bankroll + 5; # print "W $roll $bankroll $rollcount\n"; if ($bankroll > $high) { $high = $bankroll; } } elsif ($roll == 2 || $roll == 3 || $roll == 12) { $bankroll = $bankroll - 5; # print "L $roll $bankroll $rollcount\n"; } else { $setnum = $roll; $notcrapped = 1; while ($notcrapped == 1) { $die1 = int(rand() * 6) + 1; $die2 = int(rand() * 6) + 1; $roll = $die1 + $die2; $rollcount = $rollcount + 1; if ($roll == $setnum) { $bankroll = $bankroll + 35; # print "W $roll $bankroll $rollcount\n"; if ($bankroll > $high) { $high = $bankroll; } $notcrapped = 0; } if ($roll == 7) { if ($setnum == 4 || $setnum == 10) { $bankroll = $bankroll - 20; } if ($setnum == 5 || $setnum == 9) { $bankroll = $bankroll - 25; } if ($setnum == 6 || $setnum == 8) { $bankroll = $bankroll - 30; } # print "L $roll $bankroll $rollcount\n"; $notcrapped = 0; } } } # Game ends when you have less than $5 if ($bankroll < 5) { $losses = $losses + 1; $itson = 0; } # It also ends if youmake $1000 if ($bankroll >= 1000) { $wins = $wins + 1; $itson = 0; } } if ($high > $biggest) { $biggest = $high; } if ($rollcount > $mostrolls) { $mostrolls = $rollcount; } $bigrollcount = $bigrollcount + $rollcount; $bighigh = $bighigh + $high; } print "$iterations Iterations \n"; print "Ave Rollcounts: " . sprintf("%.3f", $bigrollcount/$iterations) . "\n"; print "Ave Rollcounts Hours: " . sprintf("%.3f", int($bigrollcount/$iterations)/180) . "\n"; print "Most Rollcounts: $mostrolls\n"; # Most Rollcounts Days assumes 3 rolls/minute. print "Most Rollcounts Days: " . sprintf("%.3f", ($mostrolls/180)/24) ."\n"; print "Ave Most Won: " . ($bighigh/$iterations) . "\n"; print "Biggest Win: $biggest\n"; print "$wins Wins | $losses Losses"; Dave on "Could not install service" http://www.roth.net/forums/topic.php?id=285#post-607 Tue, 17 Nov 2009 19:55:18 +0000 Dave 607@http://www.roth.net/forums/ To perform any service maintenance (eg. install, remove, configure, start, stop, etc) you must be elevated. Make sure that the DOS window you use is elevated: Right click->Run As Administrator. Or Click on the Start button and type (in the search box) "cmd". When you see the search result with "cmd.exe" hold CTRL + SHIFT and hit enter. This is the same as "Run As Administrator". Once you are in an elevated cmd process then try your script. SUBHASHINI B on "HOW DO YOU REDIRECT OUTPUT IN PERL" http://www.roth.net/forums/topic.php?id=286#post-603 Thu, 12 Nov 2009 22:35:59 +0000 SUBHASHINI B 603@http://www.roth.net/forums/ Hello, I have used the system command to execute a unix command in perl.Is there a way to redirect this output onto a file in perl.PLease do help. regards Subhashini B andy on "Could not install service" http://www.roth.net/forums/topic.php?id=285#post-602 Wed, 11 Nov 2009 14:23:13 +0000 andy 602@http://www.roth.net/forums/ Hi, i tried to install a Service many times but it won't work. There is always this error: Failed to install the service [Scheduler]: Der Vorgang wurde erfolgreich beendet. Ok, it's a germen version of Windows Vista, so here's the translation: Failed to install the service [Scheduler]: The action finished successful. But in the service list there is no entry for that service. I used that code: <a href="http://www.roth.net/forums/topic.php?id=187" rel="nofollow">http://www.roth.net/forums/topic.php?id=187</a> Some idea what i could do? Thanks for help Andy rochip on "Perl enclosing SQL fails" http://www.roth.net/forums/topic.php?id=284#post-601 Tue, 20 Oct 2009 18:30:12 +0000 rochip 601@http://www.roth.net/forums/ I wrote a simple perl script as follows: #!/bin/perl -w open (FH,"bsq -b <<EOSQL sp_help go EOSQL |"); while(<FH>){ print; } close FH; but when I execute the script I receive the following error message: << was unexpected at this time. Please note I am running the script on Cygwin Environment with Perl v5.0. Any suggestions are much appreciated. Chad on "Win32::Daemon and multiple processes" http://www.roth.net/forums/topic.php?id=25#post-599 Sun, 13 Sep 2009 16:05:43 +0000 Chad 599@http://www.roth.net/forums/ Hmm...I ran into this issue as well. I'll probably have to cave and use PerlSvc too. Where is the source for the daemon.dll though? artyaffe on "Excel Conditional Formatting using OLE" http://www.roth.net/forums/topic.php?id=282#post-598 Tue, 08 Sep 2009 21:25:31 +0000 artyaffe 598@http://www.roth.net/forums/ I'm using Perl 5.8.9 and the following code doesn't seem to work. I'm pretty sure it's something I'm doing wrong. 700 lines of this program do just what I want them to do, but these three lines don't. I'm trying to set an excel Conditional Format. $WS is a Worksheet; $i is an integer - row number. <code> $WS->Cells($i,11)->FormatConditions ->Delete; $WS->Cells($i,11)->FormatConditions->Add(xlExpression,,"=AND(J$i>0,K$i=0)"); $WS->Cells($i,11)->FormatConditions(1)->Interior->{ColorIndex} = xlYellow; </code> Help! Liam72 on "Service to monitor serial port" http://www.roth.net/forums/topic.php?id=281#post-597 Sun, 23 Aug 2009 13:08:26 +0000 Liam72 597@http://www.roth.net/forums/ Hi Dave, I'm new to perl but I'm trying to write a script to monitor the serial port of a PC running Windows XP. I want this to run as a service that checks for input on serial port once every second (using the Win32::SerialPort module). When the serial port receives a signal a batch file is called, but the service continues monitoring the serial port. Could your DirMon.pl sript be updated to handle this type of service? peter65 on "Updated: Win32::Daemon v20080324 beta" http://www.roth.net/forums/topic.php?id=206#post-596 Thu, 13 Aug 2009 02:16:37 +0000 peter65 596@http://www.roth.net/forums/ Hi Dave, you have forgotten to publish your bugfixes to Win32::Daemon since one and a half year! Please do it now. Regards, Peter Frylock on "Updated: Win32::Daemon v20080324 beta" http://www.roth.net/forums/topic.php?id=206#post-595 Wed, 12 Aug 2009 12:26:09 +0000 Frylock 595@http://www.roth.net/forums/ Quote from KES How to manually install: create C:\Perl\site\lib\Win32\Daemon copy test/* to C:\Perl\site\lib\Win32\Daemon copy daemon.htm history.txt Win32-daemon.ppd to C:\Perl\site\lib\Win32\Daemon create C:\Perl\site\lib\auto\Win32\Daemon\ copy bin/* to C:\Perl\site\lib\auto\Win32\Daemon\ And you get working Win32::Daemon for 5.10 End Quote There was only one step missing from this, and it took me forever to find, you need to also copy over DAEMON.PM from the daemon_5.10 folder to C:\Perl\site\lib\Win32 folder Without this step, it doesn't recognize that Daemon is installed, at least not on my windows box. Hope this helps some other people BitMonkey on "Win32::Daemon 64 bit perl" http://www.roth.net/forums/topic.php?id=186#post-594 Mon, 03 Aug 2009 18:48:46 +0000 BitMonkey 594@http://www.roth.net/forums/ jkstill - were you using 32-bit Perl or 64-bit Perl when you used the SysWOW64 cmd.exe? bryanscs on "Convert lower case to upper case at certain condition" http://www.roth.net/forums/topic.php?id=280#post-593 Fri, 31 Jul 2009 01:23:48 +0000 bryanscs 593@http://www.roth.net/forums/ Hi,im new in perl, If i have a senteces like tis "abc def,ghi jkl,mno pqr" i wish to convert it to "ABC def,GHI jkl,MNO pqr" izzit related to the regular expression? how should i do for the questino above? eigenfunctions on "Help installing Admin-Misc on Perl 5.10" http://www.roth.net/forums/topic.php?id=235#post-592 Tue, 28 Jul 2009 10:06:37 +0000 eigenfunctions 592@http://www.roth.net/forums/ I'd like to know too. Win32::AdminMisc is very useful, but so is Perl 5.10. Can anyone help? marouf on "perl script to copy files from restricted location as admin" http://www.roth.net/forums/topic.php?id=279#post-591 Wed, 22 Jul 2009 13:47:08 +0000 marouf 591@http://www.roth.net/forums/ Hello, I'm newbe both on the forum and scripting. I'm trying to develop perl script will be used by normal users to copy files from a restricted location using admin id and encrypted password. Any idea, help or sample script is greatly appreciated. marouf Anonymous on "Win32::Perms::ResolveSid" http://www.roth.net/forums/topic.php?id=278#post-590 Tue, 30 Jun 2009 23:14:09 +0000 Anonymous 590@http://www.roth.net/forums/ Always fails with error code 0x000003e5 (Overlapped I/O operation is in progress). Anonymous on "Win32::Perms::ResolveSid" http://www.roth.net/forums/topic.php?id=278#post-589 Tue, 30 Jun 2009 10:45:05 +0000 Anonymous 589@http://www.roth.net/forums/ I have script form Chapter 11 of Win32 Perl Programming, by David Roth. There is always error in line 09 . I change var $Account so: $Account ='\\\\$machine\\$user'; $Account ='$domain\\$user'; $Account ='$user'; No effect. There is always error in line 09 . Where is my mistake? 01. use Win32::Perms; 02. my $Domain = Win32::DomainName(); 03. my $User = Win32::LoginName(); 04. my $Account = sprintf( "%s%s", ( "" ne $Domain )? "$Domain\\":"", $User ); 05. my %Sid = ( 06. text => "", 07. binary => "" 08. ); 09. if( $Sid{text} = Win32::Perms::ResolveSid( $Account, $Sid{binary} ) ) 10. { 11. print "You are logged in as $Account.\n"; 12. print "Your SID is: $Sid{text}\n"; 13. print "Your binary SID is: '$Sid{binary}'\n"; 14. } 15. else 16. { 17. print "\tCouldn't lookup the SID for $Domain\\$User: $^E\n"; 18. } ceilingcat on "default folders for own scripts" http://www.roth.net/forums/topic.php?id=277#post-588 Fri, 19 Jun 2009 15:45:16 +0000 ceilingcat 588@http://www.roth.net/forums/ Is there a 'path' statement to tell Perl where I am storing my scripts. Currently I am storing them in c:\perl\bin. This is messy.