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:scripting-bounces+lists3717=comcast....@lists.window-eyes.com] 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