Mr. Rickards, MR. Raven et al-
I still get some errors and i'm not sure why on the OLE ones. It is not
saving/closing on either version, operating on previously existing nore
building new.
operating on existing:
Microsoft Windows [Version 5.2.3790]
(C) Copyright 1985-2003 Microsoft Corp.
e:\>cd "lab reports"
e:\lab reports>cd test45
e:\lab reports\test45>cataloge.bat
e:\lab reports\test45>rem this batch is for cataloguing computers using
two other "helpers"
e:\lab reports\test45>rem "helpers" are psinfo and compinfo
e:\lab reports\test45>rem information section is over, turning echo off.
testing 'Sheet1' against 'General - 2006-Mar-20'
testing 'Sheet2' against 'General - 2006-Mar-20'
testing 'Sheet3' against 'General - 2006-Mar-20'
testing 'Sheet1' against 'Hotfixes - 2006-Mar-20'
testing 'Sheet2' against 'Hotfixes - 2006-Mar-20'
testing 'Sheet3' against 'Hotfixes - 2006-Mar-20'
testing 'Sheet1' against 'Applications - 2006-Mar-20'
testing 'Sheet2' against 'Applications - 2006-Mar-20'
testing 'Sheet3' against 'Applications - 2006-Mar-20'
OLE exception from "Microsoft Excel":
Unable to get the Add property of the Sheets class
Win32::OLE(0.1403) error 0x800a03ec
in METHOD/PROPERTYGET "Add" at compinfo.pl line 171
testing 'Sheet1' against 'General - 2006-Mar-20'
testing 'Sheet2' against 'General - 2006-Mar-20'
testing 'Sheet3' against 'General - 2006-Mar-20'
testing 'Sheet1' against 'Hotfixes - 2006-Mar-20'
testing 'Sheet2' against 'Hotfixes - 2006-Mar-20'
testing 'Sheet3' against 'Hotfixes - 2006-Mar-20'
testing 'Sheet1' against 'Applications - 2006-Mar-20'
testing 'Sheet2' against 'Applications - 2006-Mar-20'
testing 'Sheet3' against 'Applications - 2006-Mar-20'
OLE exception from "Microsoft Excel":
Unable to get the Add property of the Sheets class
Win32::OLE(0.1403) error 0x800a03ec
in METHOD/PROPERTYGET "Add" at compinfo.pl line 171
e:\lab reports\test45>
------------------------------------------------------------
line 171: $ws1 = $Excel -> Worksheets -> Add({After => $ls}); # add as
last sheet
surrounding area (161-181)
my $ws3t="Applications - $date";
# check for sheets
my $ws1n = &ExistingWorksheet($ws1t,$report);
my $ws2n = &ExistingWorksheet($ws2t,$report);
my $ws3n = &ExistingWorksheet($ws3t,$report);
# make the sheets for today if they do not exist
unless($ws1n){
my $ls = $report->Worksheets->{Count}; # get last sheet
$ws1 = $Excel -> Worksheets -> Add({After => $ls}); # add as last
sheet
$ws1 -> {'Name'} = "General - $date";
}else{
$ws1 = $report -> Worksheets($ws1n);
}
unless($ws2n){
my $ls = $report->Worksheets->{Count}; # get last sheet
$ws2 = $Excel -> Worksheets -> Add({After => $ls}); # add as last
sheet
$ws2 -> {'Name'} = "Hotfixes - $date";
}else{
$ws2 = $report -> Worksheets($ws2n);
---end code---
and when there is nothing:
Microsoft Windows [Version 5.2.3790]
(C) Copyright 1985-2003 Microsoft Corp.
e:\>cd "lab reports"
e:\lab reports>cd test45
e:\lab reports\test45>cataloge.bat
e:\lab reports\test45>rem this batch is for cataloguing computers using
two other "helpers"
e:\lab reports\test45>rem "helpers" are psinfo and compinfo
e:\lab reports\test45>rem information section is over, turning echo off.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
The system cannot find the file specified.
The system cannot find the file specified.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
The system cannot find the file specified.
The system cannot find the file specified.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
System error 1326 has occurred.
Logon failure: unknown user name or bad password.
Logon failure: unknown user name or bad password.
Logon failure: unknown user name or bad password.
System error 67 has occurred.
The network name cannot be found.
The network path was not found.
The network path was not found.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
The system cannot find the file specified.
retrying default method at /PerlApp/Win32/OLE/Lite.pm line 156.
Win32::OLE(0.1403) error 0x8002000b: "Invalid index"
in METHOD/PROPERTYGET "" at compinfo.pl line 283
testing 'General - 2006-Mar-20' against 'General - 2006-Mar-20'
testing 'General - 2006-Mar-20' against 'Hotfixes - 2006-Mar-20'
testing 'Hotfixes - 2006-Mar-20' against 'Hotfixes - 2006-Mar-20'
testing 'General - 2006-Mar-20' against 'Applications - 2006-Mar-20'
testing 'Hotfixes - 2006-Mar-20' against 'Applications - 2006-Mar-20'
testing 'Applications - 2006-Mar-20' against 'Applications - 2006-Mar-20'
Use of uninitialized value in pattern match (m//) at compinfo.pl line 197.
retrying default method at /PerlApp/Win32/OLE/Lite.pm line 156.
Win32::OLE(0.1403) error 0x8001010a: "The message filter indicated that
the
application is busy"
in METHOD/PROPERTYGET "" at compinfo.pl line 320
e:\lab reports\test45>
197: $ncell = $ws1 -> Range("A$row") -> {'Value'};
i think 156 and 320 are ole.
code and such again: http://rapidshare.de/files/16004488/compinfo.zip.html
Mr. Raven, i'll send the zip directly to you since you cant get it. I know
that actrive state scrubs it.
Thanx in advance for the help.
-Josh
-----------------------------------------
PLEASE NOTE:
SeaChange International headquarters in Maynard, MA is moving!
Effective March 1, 2006, our new headquarters address will be:
SeaChange International
50 Nagog Park
Acton, MA 01720 USA
All telephone numbers remain the same:
Main Corporate Telephone: 978-897-0100
Customer Service Telephone: 978-897-7300
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
