Function Is64Bit()
Dim wmi, col, obj, str64
	On Error Resume Next
	Set wmi = GetObject("winmgmts:\\.\root\CIMV2")
	Set col = wmi.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", 48)
	str64 = "32"
	For Each obj In col
		str64 = obj.OSArchitecture
	Next
	If InStr(str64, "64") <> 0 Then
		Is64Bit = True
	Else
		Is64Bit = False
	End If
End Function