Not easy unless you're running Windows 2000.

In Windows 2000 or any Windows operating system that has the WMI (Windows Management Instrumentation) tools installed you can do:

o = GetObject("winmgmts://")
oInstances = o.INstancesOf("Win32_Process")
FOR each process in oInstances
   ? Process.Handle, Process.Name
ENDFOR

I'm not sure of platform support and where WIM installs at this point - I know it works in Win2k, but I think Win98 SR2 may also include this stuff.