Comments on: How can i write a visual basic code that determines the system type? http://www.codebrothers.org/how-can-i-write-a-visual-basic-code-that-determines-the-system-type/ Mon, 02 Jan 2012 00:02:34 +0000 hourly 1 By: dhvrm http://www.codebrothers.org/how-can-i-write-a-visual-basic-code-that-determines-the-system-type/comment-page-1/#comment-2073 dhvrm Tue, 09 Mar 2010 03:33:49 +0000 http://www.codebrothers.org/how-can-i-write-a-visual-basic-code-that-determines-the-system-type/#comment-2073 You can use IntPtr.Size to get the number of bits of the OS that is currently running. Dim size as Integer = IntPtr.Size ' 4 = 32 bit, 8 = 64 bit You can use IntPtr.Size to get the number of bits of the OS that is currently running.

Dim size as Integer = IntPtr.Size ‘ 4 = 32 bit, 8 = 64 bit

]]> By: Player http://www.codebrothers.org/how-can-i-write-a-visual-basic-code-that-determines-the-system-type/comment-page-1/#comment-2074 Player Tue, 09 Mar 2010 03:33:49 +0000 http://www.codebrothers.org/how-can-i-write-a-visual-basic-code-that-determines-the-system-type/#comment-2074 Set WshShell = CreateObject("WScript.Shell") X = WshShell.RegRead("HKLM\SYSTEM\Current ControlSet\Control\Session Manager\Environment\ PROCESSOR_ARCHITECTURE") If X = "x86" Then MsgBox "32-bit" Else MsgBox "64-bit" End If Set WshShell = CreateObject("WScript.Shell")
X = WshShell.RegRead("HKLM\SYSTEM\Current
ControlSet\Control\Session Manager\Environment\
PROCESSOR_ARCHITECTURE")
If X = "x86" Then
MsgBox "32-bit"
Else
MsgBox "64-bit"
End If

]]>