Subversion Repositories camp_sysinfo_client_3

Rev

Rev 96 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 96 Rev 101
Line 5... Line 5...
5 
# simply exit if this is not Windows
5 
# simply exit if this is not Windows
6 
BEGIN {
 6 
BEGIN {
7 
$^O eq "MSWin32" || exit;
 7 
$^O eq "MSWin32" || exit;
8 
}
 8 
}
9 
 
 9 
 
- 
 
 10 
our $VERSION = '0.1';
- 
 
 11 
 
10 
use Win32::OLE('in');
 12 
use Win32::OLE('in');
11 
use constant wbemFlagReturnImmediately => 0x10;
13 
use constant wbemFlagReturnImmediately => 0x10;
12 
use constant wbemFlagForwardOnly => 0x20;
14 
use constant wbemFlagForwardOnly => 0x20;
13
15
14 
$computer = ".";
16 
$computer = ".";