Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: PERL script problem
Top Forums Shell Programming and Scripting PERL script problem Post 302125716 by caddyjoe77 on Friday 6th of July 2007 02:29:58 PM
Old 07-06-2007
thanks for the help on this; i actually used that particular foreach example from a PERL book i had gotten. Bear in mind i am NOT much of a PERL programmer but definitely trying to learn.

here is the final script that at least goes all the way through the script without erroring except RPC server not available. Strange, i think i need to add some DNS checking or something to resolve the hostname or NBT.

use Win32::OLE;
use Win32::OLE('in');
use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;
#use Win32::AdminMisc;

#Read from your selected file, make sure the path is right; you must use \\ or UNC \\\\
#$computer="gws-379txt1337";
open(DATA,"<hosts.txt \n") || die "Could not open File!, check the path! \n";

while( my $computer = <DATA>)
{
print $computer;
foreach $computer(in(<DATA>))
{
$objWMIService = Win32::OLE->GetObject
("winmgmts:\\\\$computer\\root\\CIMV2") || die "WMI connection failed.\n";
$colItems = $objWMIService->ExecQuery
("SELECT * FROM Win32_OperatingSystem","WQL",wbemFlagReturnImmediately | wbemFlagForwardOnly);

foreach my $objItem (in $colItems)
{
print "Caption: $objItem->{Caption}\n";
print "CSD Version: $objItem->{CSDVersion}\n";
print "CS Name: $objItem->{CSName}\n";
print "Name: $objItem->{Name}\n";
print "Service Pack Major Version: $objItem->{ServicePackMajorVersion}\n";
print "System Directory: $objItem->{SystemDirectory}\n";
print "Windows Directory: $objItem->{WindowsDirectory}\n";
print "\n";
}
}
}
close(DATA)

as i mentioned above, i get an RPC error and also another strange thing;

the hostnames are listed like :

the-999the-9999
the-thisis5678
th-999www9087

those are of course exampled of the format...but should i build some checking for dashes too? the computer name DOES get read into the script, i just get the RPC error on most except the example the-999the-9999.

thanks
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl script strange problem

Hi All, I have one strange problem in perl script. Bellow is the contents of the script i am trying to write: #!/usr/local/bin/perl my $module_list = ''; my @running_module; my $count=0; my $flag=0; my $ccprojecthome=$ENV{CCPROJECTHOME}; @module_list = `cat... (2 Replies)
Discussion started by: vaibhav
2 Replies

2. Shell Programming and Scripting

call shell script from perl cgi script problem

hi,, i have perl scipt with line : system('./try.sh $t $d $m'); in shell scipt try.sh i have the line: echo $1 its not printing value of $t that i hav passed..y is it so..i am running it from apache web server (2 Replies)
Discussion started by: raksha.s
2 Replies

3. Shell Programming and Scripting

problem in perl script

Hi, Here is my piece of code. #!/usr/bin/perl my $logFile = $ARGV; die "usage: $0 <logFile>" unless $logFile; die "Logfile $logFile doesn't exist" unless -f "$logFile"; my %no_of_questions; my %timestamp; open (FP,"<$logFile") or die "unable to open file $!" ; @records=<FP>;... (4 Replies)
Discussion started by: namishtiwari
4 Replies

4. Shell Programming and Scripting

Problem in a perl script

Hi All I have to modify a existing perl script The context of the input txt file has changed Basically I have to remove 4 lines from the top of the file and print a number Of fields into another file and feed the out put back into the script. Now I’m doing this part manually ... (1 Reply)
Discussion started by: Ex-Capsa
1 Replies

5. HP-UX

perl script problem.

I test this perl script on hpux 11.x and everything is OK, on hpux 10.20 it doesn't work perl -e 'local($PSTAT,$PSTAT_STATIC,$mem_info,$PSTAT_STRUCT)=(239,2,"\0"x120,"LI4L"); syscall($PSTAT,$PSTAT_STATIC,$mem_info,length($mem_info),1,0); print... (1 Reply)
Discussion started by: netfinity
1 Replies

6. Shell Programming and Scripting

Perl Script Problem

Hi Perl Gurus, I have a very simple problem. This command perfectly runs in Unix Shell: dlv_mng@hpp309:/delivery/dlv/dlv/dlv_mng> echo 7.5.1.2.25 | sed -n 's^\(.\).\(.\).\(.*\).\(.*\).\(.*\)^\1.\2^p' 7.5 However, when I run this inside a perl script, it fails. ... (1 Reply)
Discussion started by: som.nitk
1 Replies

7. AIX

Perl Script Problem

Hi! I'm having a problem on AIX 5.3 I cant' seem to sort out. A Perl script that was working has stopped for some reason. Possibly and update or something seems to have broken it. The error is below and any help would be appreciated! Can't load... (2 Replies)
Discussion started by: eth0
2 Replies

8. Programming

Perl script problem

I made a perl script that will number the lines of program scripts with an extension asked by the user and will save them into a .txt file My problem with the code is that for some reason it skips about every second line Im currently using ms win7 with strawberry perl heres the code so far... (0 Replies)
Discussion started by: ejok
0 Replies

9. Web Development

problem with exporting vairable from one perl cgi to another perl cgi script while redirecting.

Can anyone tell me how to export a variable from one perl CGI script to another perl cgi script when using a redirect. Upon running the login.pl the user is prompted to enter user name and password. Upon entering the correct credentials (admin/admin) the user is redirected to welcome page. My... (3 Replies)
Discussion started by: Arun_Linux
3 Replies

10. Programming

Problem with my perl script

hiii alll i wrote a prgm which would take position and strand from file 1 and tries to locate a string 250 characters ahead/before that position in anothe file (based on strand 0 or 1) open my $fhConditions, "<", "1.txt" or die "Epic Fail: $!"; open my $fhCharacters, "<", "2.txt" or die "OMG... (1 Reply)
Discussion started by: anurupa777
1 Replies

LEARN ABOUT LINUX

apr-1-config

APR-1-CONFIG(1) 						   User Commands						   APR-1-CONFIG(1)

NAME

       apr-1-config - Return metainformation about apr library

SYNOPSIS

       apr-1-config [OPTION]

DESCRIPTION

       The  apr-1-config  program   is used to retrieve information about the apr library in the system.  It is typically used to compile and link
       against the library.

       When linking with libtool, an application should do something like:

	      APR_LIBS="`apr-1-config --link-libtool --libs`"

       or when linking directly:

	      APR_LIBS="`apr-1-config --link-ld --libs`"

       An application should use the results of --cflags, --cppflags, --includes, and --ldflags in their build process.

OPTIONS

       Known values for OPTION are:

       --prefix[=DIR]
	      change prefix to DIR

       --bindir
	      print location where binaries are installed

       --includedir
	      print location where headers are installed

       --cc   print C compiler name

       --cpp  print C preprocessor name and any required options

       --cflags
	      print C compiler flags

       --cppflags
	      print C preprocessor flags

       --includes
	      print include information

       --ldflags
	      print linker flags

       --libs print additional libraries to link against

       --srcdir
	      print APR source directory

       --installbuilddir print APR build helper directory

       --link-ld
	      print link switch(es) for linking to APR

       --link-libtool
	      print the libtool inputs for linking to APR

       --shlib-path-var
	      print the name of the shared library path env var

       --apr-la-file
	      print the path to the .la file, if available

       --apr-so-ext
	      print the extensions of shared objects on this platform

       --apr-lib-target
	      print the libtool target information

       --apr-libtool
	      print the path to APR's libtool

       --version
	      print the APR's version as a dotted triple

       --help print the help

AUTHOR

       This manual page was written by Vincent Danjean <Vincent.Danjean@ens-lyon.org> for the Debian project (but may be used by others).

apr-1-config 1.2.2						    March 2006							   APR-1-CONFIG(1)
All times are GMT -4. The time now is 06:13 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy