Fyi, here's the WE version of the VBScript below (providing the email
doesn't introduce bad line breaks):
Option Explicit
dim ObjWMI, ColSettings, ObjProcessor
dim StrComputer, ObjNetwork
Set ObjNetwork = CreateObject("WScript.Network")
StrComputer = Trim(ObjNetwork.ComputerName)
Set ObjNetwork = Nothing
Speak vbCrLf & "Computer Name: " & StrComputer
Set ObjWMI = GetObject("WINMGMTS:" &
"{ImpersonationLevel=Impersonate,AuthenticationLevel=Pkt}!\\" & StrComputer
& "\Root\CIMV2")
Set ColSettings = ObjWMI.ExecQuery("SELECT * FROM Win32_Processor")
For Each ObjProcessor In ColSettings
Select Case ObjProcessor.Architecture
Case 0
Speak "Processor Architecture Used by the Platform: x86"
Case 6
Speak "Processor Architecture Used by the Platform: Itanium-Based System"
Case 9
Speak "Processor Architecture Used by the Platform: x64"
Case Else
Speak "unknown " & ObjProcessor.Architecture
End Select
Select Case ObjProcessor.ProcessorType
Case 1
Speak "Processor Type: Other. Not in the Known List"
Case 2
Speak "Processor Type: Unknown Type"
Case 3
Speak "Processor Type: Central Processor (CPU)"
Case 4
Speak "Processor Type: Math Processor"
Case 5
Speak "Processor Type: DSP Processor"
Case 6
Speak "Processor Type: Video Processor"
Case Else
Speak "unknown processor type of " & ObjProcessor.ProcessorType
End Select
Speak "Processor: " & ObjProcessor.DataWidth & "-Bit."
Speak "Operating System: " & ObjProcessor.AddressWidth & "-Bit."
If ObjProcessor.Architecture = 0 And ObjProcessor.AddressWidth = 32 Then
Speak "This Machine has 32 Bit Processor and Running 32 Bit OS."
End If
If (ObjProcessor.Architecture = 6 Or ObjProcessor.Architecture = 9) And
ObjProcessor.DataWidth = 64 And ObjProcessor.AddressWidth = 32 Then
Speak "This Machine has 64-Bit Processor and Running 32-Bit OS."
End If
If (ObjProcessor.Architecture = 6 Or ObjProcessor.Architecture = 9) And
ObjProcessor.DataWidth = 64 And ObjProcessor.AddressWidth = 64 Then
Speak "This Machine has 64-Bit Processor and Running 64-Bit OS."
End If
Next
Set ObjProcessor = Nothing: Set ColSettings = Nothing: Set ObjWMI =
Nothing: StrComputer = vbNullString
-----Original Message-----
From: Scripting
[mailto:[email protected]] On
Behalf Of Rod Hutton via Scripting
Sent: Saturday, April 25, 2015 10:36 AM
To: 'Window-Eyes Scripting List'
Subject: Identifying 64-bit system
Hi guys,
One thing I noticed is that the current version of the GW Toolkit shared
object called Is64bitOS doesn't seem to properly detect that my Dell Windows
7 x64 Home Premium system is indeed 64-bit.
I've tested this with Window-Eyes 8.4, as well as version 9.1 on the same
Dell system, in the latter case, running in a virtual machine.
I googled and found the following MS Technet page where it had the vbScript
code as well as a download link for a script which does the job very well,
since it accurately reports my system as 64-bit:
https://gallery.technet.microsoft.com/scriptcenter/Determine-If-Your-System-
969670e3
I was wondering if anyone has also noticed this failure in the performance
of the current version of the GW Toolkit shared Object called Is64bitOS, or
whether this is specific to my system.
Also, I would be interested to know if anyone has any other ideas on this
issue.
Thanks,
Rod
-------------- next part --------------
A non-text attachment was scrubbed...
Name: winmail.dat
Type: application/ms-tnef
Size: 3432 bytes
Desc: not available
URL:
<http://lists.window-eyes.com/private.cgi/scripting-window-eyes.com/attachme
nts/20150425/7d38a28c/attachment.bin>
_______________________________________________
Any views or opinions presented in this email are solely those of the author
and do not necessarily represent those of Ai Squared.
For membership options, visit
http://lists.window-eyes.com/options.cgi/scripting-window-eyes.com/lists3717
%40comcast.net.
For subscription options, visit
http://lists.window-eyes.com/listinfo.cgi/scripting-window-eyes.com
List archives can be found at
http://lists.window-eyes.com/private.cgi/scripting-window-eyes.com
_______________________________________________
Any views or opinions presented in this email are solely those of the author
and do not necessarily represent those of Ai Squared.
For membership options, visit
http://lists.window-eyes.com/options.cgi/scripting-window-eyes.com/archive%40mail-archive.com.
For subscription options, visit
http://lists.window-eyes.com/listinfo.cgi/scripting-window-eyes.com
List archives can be found at
http://lists.window-eyes.com/private.cgi/scripting-window-eyes.com
