Select Code to Download

use Win32::OLE ;
use Win32::OLE qw(EVENTS);
...

    
}

use Win32::OLE qw(EVENTS);
use Win32::Console;
...


}

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIM
+V2") 
...
Sub SINK_OnCompleted(objObject, objAsyncContext)
    WScript.Echo "Event call complete."
End Sub

use Win32::OLE qw(EVENTS);
use Win32::Console;
...
    print "Done\n";
    
}

----------------------------------------------------------------------
+--------------------------------------
use Win32;
...


1;