VBScript – System Processor Information

Posted in VBS Scripts, Windows XP - 28 February 2009 - No comment

Version: 32.1
Revision: 14 Build 11

VBScript – System Processor Information

Introduction: this little script was designed to collect various information about your computers’ central processing unit. It will then transfer the information to a file called: SyStem_OS.rtf for you to keep; for future analysis.

1.] Download notepad++ from the original author or from a mirror and install the software.
——————————-

http://sourceforge.net/projects/notepad-plus/

http://filehippo.com/download_notepad/

——————————-

2.] Copy this “VBScript” code and save it as a “.vbs” extension.

—Copy Source Code—

'Author: Lair360
'Version: 43.2
'Revision: 68 Build 124
'Notes: This script will gather information about your computer CPU processor
'and it will put these information into an RTF file.
'----------------------------------

On Error Resume Next
Set objWMI = _
   GetObject("winmgmts:{impersonationLevel=impersonate}//./root/cimv2")
Set colProcesses = objWMI.ExecQuery("Select * from Win32_Processor")
	Set objFS = CreateObject("Scripting.FileSystemObject")
		Set objNewFile = objFS.CreateTextFile("SyStem_OS.rtf")
objNewFile.WriteLine "Process Report -- Date: " & Now() & vbCrLf
For Each objProcess In colProcesses
	objNewFile.WriteLine "Processor: " & objProcess.Name
	objNewFile.WriteLine "Processor ID: " & objProcess.ProcessorId
	objNewFile.WriteLine "ProcessorType: " & objProcess.ProcessorType
	objNewFile.WriteLine "Family: " & objProcess.Family
	objNewFile.WriteLine "Architecture: " & objProcess.Architecture
	objNewFile.WriteLine "Maximum Clock Speed: " & objProcess.MaxClockSpeed
	objNewFile.WriteLine "VoltageCaps: " & objProcess.VoltageCaps
	objNewFile.WriteLine "Socket Designation: " & objProcess.SocketDesignation
	objNewFile.WriteLine "NumberOfLogicalProcessors: " & objProcess.NumberOfLogicalProcessors
	objNewFile.WriteLine "NumberOfCores: " & objProcess.NumberOfCores
	objNewFile.WriteLine "Manufacturer: " & objProcess.Manufacturer
	objNewFile.WriteLine "L2CacheSize: " & objProcess.L2CacheSize
	objNewFile.WriteLine "L2CacheSpeed: " & objProcess.L2CacheSpeed
	objNewFile.WriteLine "L3CacheSize: " & objProcess.L3CacheSize
	objNewFile.WriteLine "L3CacheSpeed: " & objProcess.L3CacheSpeed
   objNewFile.WriteLine _
        "----------------------------------------------"
   objNewFile.WriteLine vbCR

next
objNewFile.Close
'----------------------------------

—End Source Code—
Copyright 2001-2009 Lair360

3.] Execute the script and have fun checking your CPU infos!

4.] Finish!

Tags: , , , ,

Comments are closed.