VBA ＰＣのプロセッサ数を求める

VBAでWSHを使って自分のＰＣのプロセッサの数を求めます。いえ、それだけです。

Sub Num_of_Prs()
'WSHを使ってプロセッサ数を求める
Dim WSH As Object, PRS As Object
Set WSH = CreateObject("Wscript.Shell")
Set PRS = WSH.Environment("Process")
Debug.Print PRS.Item("NUMBER_OF_PROCESSORS") '結果をイミディエイト窓に表示
Set WSH = Nothing
Set PRS = Nothing
End Sub