Cheat Engine Forum Index Cheat Engine
The Official Site of Cheat Engine
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


A little help @atom0s

 
Post new topic   Reply to topic    Cheat Engine Forum Index -> General Discussions
View previous topic :: View next topic  
Author Message
Aylin
Grandmaster Cheater
Reputation: 8

Joined: 16 Feb 2017
Posts: 569

PostPosted: Sat Jan 18, 2020 1:21 pm    Post subject: A little help @atom0s Reply with quote

A little help @ atom0s
The code below; VB.Script activation code.
But it gives the results in separate windows.
How to arrange to get the whole list in one window?

Code:
' List Processor Information



strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colCSes = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
For Each objCS In colCSes
  WScript.Echo "Computer Name: " & objCS.Name
  WScript.Echo "System Type: " & objCS.SystemType
  WScript.Echo "Number Of Processors: " & objCS.NumberOfProcessors
Next
Set colProcessors = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objProcessor in colProcessors
  WScript.Echo "Manufacturer: " & objProcessor.Manufacturer
  WScript.Echo "Name: " & objProcessor.Name
  WScript.Echo "Description: " & objProcessor.Description
  WScript.Echo "Processor ID: " & objProcessor.ProcessorID
  WScript.Echo "Address Width: " & objProcessor.AddressWidth
  WScript.Echo "Data Width: " & objProcessor.DataWidth
  WScript.Echo "Family: " & objProcessor.Family
  WScript.Echo "Maximum Clock Speed: " & objProcessor.MaxClockSpeed
Next


+ If possible; Can we print the results on UDF1.CEMemo1?

_________________
Hi Hitler Take control of your trainer
Enthusiastic people: Always one step ahead
Do not underestimate me Master: You were a beginner in the past
Back to top
View user's profile Send private message MSN Messenger
atom0s
Moderator
Reputation: 155

Joined: 25 Jan 2006
Posts: 7977
Location: 127.0.0.1

PostPosted: Sat Jan 18, 2020 10:55 pm    Post subject: This post has 1 review(s) Reply with quote

Code:

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colCSes = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")

Dim result
For Each objCS In colCSes
  result = "Computer Name: " & objCS.Name & vbCrLf
  result = result & "System Type: " & objCS.SystemType & vbCrLf
  result = result & "Number Of Processors: " & objCS.NumberOfProcessors & vbCrLf
Next
result = result & vbCrLf

Set colProcessors = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objProcessor in colProcessors
  result = result & "Manufacturer: " & objProcessor.Manufacturer & vbCrLf
  result = result & "Name: " & objProcessor.Name & vbCrLf
  result = result & "Description: " & objProcessor.Description & vbCrLf
  result = result & "Processor ID: " & objProcessor.ProcessorID & vbCrLf
  result = result & "Address Width: " & objProcessor.AddressWidth & vbCrLf
  result = result & "Data Width: " & objProcessor.DataWidth & vbCrLf
  result = result & "Family: " & objProcessor.Family & vbCrLf
  result = result & "Maximum Clock Speed: " & objProcessor.MaxClockSpeed & vbCrLf
Next

WScript.Echo result

_________________
- Retired.
Back to top
View user's profile Send private message Visit poster's website
Aylin
Grandmaster Cheater
Reputation: 8

Joined: 16 Feb 2017
Posts: 569

PostPosted: Sun Jan 19, 2020 12:44 am    Post subject: Reply with quote

Thanks master.
I will share a system code in CE lua.
Thank you for editing this detail.
I never see teaching simple. And +1. Thanks again.

_________________
Hi Hitler Take control of your trainer
Enthusiastic people: Always one step ahead
Do not underestimate me Master: You were a beginner in the past
Back to top
View user's profile Send private message MSN Messenger
Display posts from previous:   
Post new topic   Reply to topic    Cheat Engine Forum Index -> General Discussions All times are GMT - 6 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group

CE Wiki   IRC (#CEF)   Twitter
Third party websites