mirror of
https://github.com/Arvanaghi/CheckPlease
synced 2026-06-08 10:25:16 +00:00
S3cur3Th1sSh1t
15 lines
365 B
Plaintext
15 lines
365 B
Plaintext
Function CheckAvailableCPUs()
|
|
TnHWRZVH=Cint("0")
|
|
Set VRfvQEHCs=GetObject("winmgmts:\\.\root\cimv2")
|
|
Set uxSpQuH=VRfvQEHCs.ExecQuery("Select * from Win32_Processor", , Cint("48"))
|
|
For Each XqDiZDh In uxSpQuH
|
|
If XqDiZDh.NumberOfCores < Cint("2") Then
|
|
TnHWRZVH=True
|
|
End If
|
|
Next
|
|
If TnHWRZVH Then
|
|
wscript.Quit
|
|
Else
|
|
End If
|
|
End Function
|