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
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
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
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
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
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
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
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
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
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
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
NWPJMV(1) nwpjmv NWPJMV(1)
NAME
nwpjvm - Move print job to Unix queue
SYNOPSIS
nwpjmv [ -S server ] [ -h ] [ -U user name ] [ -P password | -n ] [ -C ] [ -q queue name ] [ -c command ] [ -j job number ] [ -d ]
DESCRIPTION
nwpjmv is a program that connects to print queues on NetWare servers and moves a designated print job to a Unix queue.
OPTIONS
-h
-h is used to print out a short help text.
-S server
server is the name of the server you want to use.
-U user
user is the print server name at the server.
-P password
password is the password to use for the print server at the server. If neither -n nor -P are given, and the user has no open connection
to the server, pserver prompts for a password.
-n
-n should be given if the print server does not require a password.
-C
By default, passwords are converted to uppercase before they are sent to the server, because most servers require this. You can turn off
this conversion by -C.
-q queue name
queue name is the name of the print queue you want to service.
-c command
nwpjmv removes the designated job from the Novell queue and feeds the job file to stdin. command is the printing command that is exe-
cuted for each job. The default command is 'lpr'.
You can insert several flags into the command, preceded by %. These are replaced with values retrieved from the queue structure for the
print job.
%u: This field will be replaced by the name of the user who posted this print job.
%d: This field will be replaced by the job description field of this print job.
-j job number
This designates the ID number of the print job to be moved.
-d causes extra error messages to be logged.
SEE ALSO
nwclient(5), slist(1), pqlist(1), ncpmount(8), ncpumount(8), pserver(1)
CREDITS
nwpjmv was written by Bruno Browning (bruno@lss.wisc.edu) based on pserver by Volker Lendecke (lendecke@math.uni-goettingen.de)
nwpjmv 03/15/2003 NWPJMV(1)