note
Anonymous Monk
I use a Workstation module I wrote myself. one of the subs returns a WMI handle...
<p><pre>
sub get_wmi {
my $self = shift;
my $name = $self->name or do {
warn("Cannot return WMI handle for anonymous workstation.\n");
return 0;
};
use Win32::OLE ;
my $wmi = Win32::OLE->GetObject( "winmgmts:{impersonationLevel=impersonate,(security)}//$name");
if ($wmi) {
return $wmi;
}else{
return 0;
}
}
</pre>
You should then be able to do $wmi->CreateProcess("your.exe") or whatever (see MSDN.microsoft.com for details of WMI)...
<p>
Or Google for "perl+WMI" - or visit www.roth.net/perl/scripts
231354
231360
1