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 = ".";