VBScript to Determine 32-bit or 64-bit machine

Often we come across a situation where we need to see the Operating system bit information and then install application or do any customization. Here is a script which I use for this purpose:


'===============================================================

Const HKEY_LOCAL_MACHINE = &H80000002
'Lines to get the computer Name

Set wshShell = WScript.CreateObject( "WScript.Shell" )
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )

 
'===============================================================
'To check whether the OS is 32 bit or 64 bit of Windows 7
'===============================================================

'Lines to detect whether the OS is 32 bit or 64 bit of Windows 7

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputerName & "\root\default:StdRegProv")

  strKeyPath = "HARDWARE\DESCRIPTION\System\CentralProcessor\0"

  strValueName = "Identifier"

oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
'===============================================================

'Checking Condition whether the build is 64bit or 32 bit

  if (instr(strValue,"64")) then

'Perform functions for 64-bit OS.
End If

if (instr(strValue,"x86")) then

'Perform functions for 32-bit OS
 End If
'===============================================================

Comments

Post a Comment

Popular posts from this blog

VBScript to change the proxy settings if disconnected from VPN

When connected to VPN, user's IE proxy settings get changed and is forced by VPN. Often the users might get disconnected from VPN while working from home and this does not revert back the proxy settings to the original one. I have written a VBScript to change the proxy settings of the users. This script can be made a shortcut and then used. 'Script Created by Piyush Nasa 'Script to change Proxy settings for user if disconnected from VPN Option Explicit Dim valUserIn Dim objShell, RegLocate, RegLocate1 Set objShell = WScript.CreateObject("WScript.Shell") On Error Resume Next valUserIn = MsgBox("If you have been disconnected from VPN and want to reset your proxy, click Yes and restart Internet Explorer",4,"Proxy Reset") If valUserIn=vbYes Then RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer" objShell.RegWrite RegLocate,"","REG_SZ" RegLocate = "HKEY_CURRENT_U...
Read more

Apple Inc

Image
Apple Inc. formerly   Apple Computer, Inc.,   is an   multinational corporation   headquartered in Cupertino ,   California , with a focus on designing, manufacturing, and selling consumer electronics and computer software products ( www.apple.com ). Apple Inc. was originally founded in 1976 as Apple Computer, Inc. but recently changed its name to Apple Inc. in January of 2007 ( www.apple.com ). Apple Inc. is consistently introducing new technology with an array of electronic products available.  Many of their most recognizable products include the Macintosh desktops and portable computers,  Mac OS X  operating systems, the  iPod  music player, as well as the iTunes store, the iPhone smartphone, and additional professional software applications ( www.apple.com ).   From the articles and information, I have done some analysis and evaluations. In my analysis, I have related the case to three concepts which are concept of demand and ...
Read more

How to make an MSI with some files compressed in Cabinet file and other uncompressed outside the MSI

This is a very interesting feature in MSI and I would like to explore and explain this for your knowledge and benefit. Word Count generally known as Word Count Summary property. This is a mandatory Summary property in MSI and can be changed from your WSI. Please note that this property is not in Property table but is in Summary table. This property has a different meaning for MSI, Transforms and Patch. This property is a bit feild. There are 4 bits which can be set or unset as in 0 or 1. eg. 01 Here is the description for these bits: --------------------------------------------------------------------------------- Bit 0 0 Long file names. 1 Short file names. --------------------------------------------------------------------------------- Bit 1 0 Source is uncompressed. 2 Source is compressed. --------------------------------------------------------------------------------- Bit 2 0 Source is original media. 4 Source is a administrative image created by an administrative installation. -...
Read more