# Adapted from VBScript code contained in the book:
#      "Windows Server Cookbook" by Robbie Allen
# ISBN: 0-596-00633-0

use Win32::OLE 'in';
$Win32::OLE::Warn = 3;
# ------ SCRIPT CONFIGURATION ------
$strFile = 'c:\output.txt'; # e.g. c:\output.txt
# ------ END CONFIGURATION ---------
use constant ForWriting => 2;
$objFSO = Win32::OLE->new('Scripting.FileSystemObject');
$objFile = $objFSO->OpenTextFile($strFile, ForWriting, 1);
$objFile->WriteLine('Script started: ' . scalar localtime);
$objFile->WriteLine('List of processes:');
$objWMI = Win32::OLE->GetObject('winmgmts:root\cimv2');
foreach my $objProcess (in $objWMI->InstancesOf('Win32_Process')) {
    $objFile->WriteLine("\t" . $objProcess->Name);
}
$objFile->WriteLine('Script completed: ' . scalar localtime);
$objFile->Close();