CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Intermediate:
Using Win32::OLE from cgi-bin

 



mrcactu5
Novice

Jan 8, 2009, 9:29 AM

Post #1 of 2 (527 views)
Using Win32::OLE from cgi-bin Can't Post

In Perl you can use the module Win32::OLE manipulate windows objects on your own computer. I was wondering if you can do it remotely using cgi-bin. For example, the code below works perfectly on the command prompt, but from cgi-bin we get an error message instead.


Code
Can't call method "InstancesOf" on an undefined value at (file name) line 5.


The idea was that maybe using CGI we could hack into our own servers. (We were thinking of writing an external DNS management client.)


Code
use Win32::OLE 'in'; 
my $strComputer = [IP address];
my $objWMI = Win32::OLE->GetObject("winmgmts:\\\\$strComputer\\root\\cimv2");
my $objDisks = $objWMI->InstancesOf("Win32_LogicalDisk");
for my $objDisk (in $objDisks) {
print "DeviceID: ", $objDisk->DeviceID,"\n";
print "FileSystem: ", $objDisk->FileSystem ,"\n";
print "FreeSpace: ", $objDisk->FreeSpace,"\n";
print "Name: ", $objDisk->Name,"\n";
print "Size: ", $objDisk->Size,"\n";
print "\n";
}



KevinR
Veteran


Jan 8, 2009, 1:28 PM

Post #2 of 2 (522 views)
Re: [mrcactu5] Using Win32::OLE from cgi-bin [In reply to] Can't Post

I don't know if you can or can't. My guess is you can't. And judging by the fact your program does not create the $objWMI object it appears as though you can't.
-------------------------------------------------

 
 


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives