en la biblioteca de funciones, seccion ASP, uno de los moderados, no recuerdo el nombre, escribio este codigo para ASP, pudiera funcionar.... creo.... solo tendrias que adaptarlo.. no crees?
aki esta el codigo
Código:
Function NumCPUS()
Dim objLocator, objService, objInstance, item
NumCPUS = ""
if WMIServer = "" then Exit Function
Set objLocator = Server.CreateObject("WbemScripting.sWbemLocator")
Set objService = objLocator.ConnectServer(WMIServer,"root\cimv2",WMIUser,WMIPasswd)
Query = "select numberofprocessors from win32_computersystem"
Set objInstance = objService.ExecQuery(query)
For Each item In objInstance
NumCPUS = NumCPUS & item.numberofprocessors & "|"
Next
NumCPUS = Left(NumCPUS,Len(NumCPUS)-1)
Set objInstance = Nothing
Set objService = Nothing
Set objLocator = Nothing
End Function
lo que describe el creador del codigo, es que te regresa el numero del CPU
tratalo, total... y si quedara? excelente no?