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

Reply via email to