CPU percentage of a process

pid-cpu.vbs

' cscript.exe //B //NoLogo pid-cpu.vbs

set fs = createObject("Scripting.FileSystemObject")
set stdout = fs.getStandardStream(1)

' https://msdn.microsoft.com/en-us/library/aa393838(v=vs.85).aspx
set refresher = createObject("WbemScripting.SWbemRefresher")
set namespace = getObject("winmgmts:root\cimv2")
' https://msdn.microsoft.com/en-us/library/aa394323(v=vs.85).aspx
set perfdata = refresher.addEnum(namespace, "Win32_PerfFormattedData_PerfProc_Process").objectSet

samples = 100
pid = 1234

for i = 1 to samples
    refresher.refresh()
    for each data in perfdata
        if data.idProcess = pid then
            stdout.writeLine(data.percentProcessorTime)
        end if
    next
next