Set Affinity of a current process

[KM8888]

Hi everyone,

I've scoured the net and didn't find something to work in VBScript for this. I basically want to set the affinity of a current process, e.g. if they are all selected, to only select 1. I found this code for setting the priority which is in the same area as the affinity so I was hoping it was just as easy...

 Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'notepad.exe'")


For Each objProcess  in colProcesses
    objProcess.SetPriority(NORMAL)
Next

Any ideas would be great, thanks!

 

[guitarzan]

Not that I see, but the page below has some commands that can be executed in vbscript to set the affinity of a process, which could work in combination with the WMI code you have.

http://www.techrepublic.com/blog/wi...ting-in-windows-7-to-gain-a-performance-edge/

 

[strongm]

Powershell can do it ...

$Process = Get-Process <app>; $Process.ProcessorAffinity=8

where affinity value is calculated from:

•Core A = 1 = 00000001
•Core B = 2 = 00000010
•Core C = 4 = 00000100
•Core D = 6 = 00001000
•Core E = 8 = 00010000
•Core F = 16 = 00100000
•Core G = 32 = 01000000
•Core H = 64 = 10000000