windows-pr 1.2.1 → 1.2.2

data/lib/windows/socket.rb

@@ -1,86 +1,86 @@
-require 'windows/api'
-
-module Windows
-  module Socket
-    API.auto_namespace = 'Windows::Socket'
-    API.auto_constant  = true
-    API.auto_method    = true
-    API.auto_unicode   = true
-
-    private
-
-    # Constants
-
-    IPPROTO_IP            = 0         # dummy for IP
-    IPPROTO_ICMP          = 1         # control message protocol
-    IPPROTO_IGMP          = 2         # group management protocol
-    IPPROTO_GGP           = 3         # gateway^2 (deprecated)
-    IPPROTO_TCP           = 6         # tcp
-    IPPROTO_PUP           = 12        # pup
-    IPPROTO_UDP           = 17        # user datagram protocol
-    IPPROTO_IDP           = 22        # xns idp
-    IPPROTO_ND            = 77        # UNOFFICIAL net disk proto
-    IPPROTO_RAW           = 255       # raw IP packet
-    IPPROTO_MAX           = 256
-
-    NSPROTO_IPX   = 1000
-    NSPROTO_SPX   = 1256
-    NSPROTO_SPXII = 1257
-
-    # Functions
-
-    API.new('accept', 'LPP', 'L', 'ws2_32')
-    API.new('AcceptEx', 'LLPLLLPP', 'B', 'mswsock')
-    API.new('bind', 'LPI', 'I', 'ws2_32')
-    API.new('closesocket', 'L', 'I', 'ws2_32')
-    API.new('connect', 'LPI', 'I', 'ws2_32')
-    API.new('EnumProtocols', 'PPP', 'I', 'mswsock')
-    API.new('GetAcceptExSockaddrs', 'PLLLPPPP', 'V', 'mswsock')
-    API.new('GetAddressByName', 'LPPPLPPPPP', 'I', 'mswsock')
-    API.new('gethostbyaddr', 'SII', 'P', 'ws2_32')
-    API.new('gethostbyname', 'S', 'P', 'ws2_32')
-    API.new('gethostname', 'PI', 'I', 'ws2_32')
-    API.new('GetNameByType', 'PPL', 'I', 'mswsock')
-    API.new('getpeername', 'LPP', 'I', 'ws2_32')
-    API.new('getprotobyname', 'S', 'P', 'ws2_32')
-    API.new('getprotobynumber', 'I', 'P', 'ws2_32')
-    API.new('getservbyport', 'IS', 'P', 'ws2_32')
-    API.new('GetService', 'LPSLPPP', 'I', 'mswsock')
-    API.new('getsockname', 'LPP', 'I', 'ws2_32')
-    API.new('getsockopt', 'LIIPP', 'I', 'ws2_32')
-    API.new('GetTypeByName', 'LIIPP', 'I', 'mswsock')
-    API.new('htonl', 'L', 'L', 'ws2_32')
-    API.new('htons', 'S', 'S', 'ws2_32')
-    API.new('inet_addr', 'S', 'L', 'ws2_32')
-    API.new('inet_ntoa', 'P', 'S', 'ws2_32')
-    API.new('ioctlsocket', 'LLP', 'I', 'ws2_32')
-    API.new('listen', 'LI', 'I', 'ws2_32')
-    API.new('ntohl', 'L', 'L', 'ws2_32')
-    API.new('ntohs', 'S', 'S', 'ws2_32')
-    API.new('recv', 'LPII', 'I', 'ws2_32')
-    API.new('recvfrom', 'LPIIPP', 'I', 'ws2_32')
-    API.new('send', 'LSII', 'I', 'ws2_32')
-    API.new('sendto', 'LSIIPI', 'I', 'ws2_32')
-    API.new('SetService', 'LLLPPP', 'I', 'mswsock')
-    API.new('setsockopt', 'LIISI', 'I', 'ws2_32')
-    API.new('shutdown', 'LI', 'I', 'ws2_32')
-    API.new('socket', 'III', 'L', 'ws2_32')
-    API.new('TransmitFile', 'LLLLPPL', 'B', 'mswsock')
-
-    begin
-      API.new('freeaddrinfo', 'P', 'V', 'ws2_32')
-      API.new('FreeAddrInfoEx', 'P', 'V', 'ws2_32')
-      API.new('FreeAddrInfoW', 'P', 'V', 'ws2_32')
-      API.new('getaddrinfo', 'PPPP', 'I', 'ws2_32')
-      API.new('GetAddrInfoEx', 'PPLPPPPPPP', 'I', 'ws2_32')
-      API.new('GetAddrInfoW', 'PPPP', 'I', 'ws2_32')
-      API.new('getnameinfo', 'PLPLPLI', 'I', 'ws2_32')
-      API.new('GetNameInfoW', 'PLPLPLI', 'I', 'ws2_32')
-      API.new('InetNtop', 'IPPL', 'P', 'ws2_32')
-      API.new('inet_pton', 'IPP', 'I', 'ws2_32')
-      API.new('SetAddrInfoEx', 'SSPLPLLPPPPP', 'I', 'ws2_32')
-    rescue Win32::API::LoadLibraryError
-      # XP or later
-    end
-  end
-end
+require 'windows/api'
+
+module Windows
+  module Socket
+    API.auto_namespace = 'Windows::Socket'
+    API.auto_constant  = true
+    API.auto_method    = true
+    API.auto_unicode   = true
+
+    private
+
+    # Constants
+
+    IPPROTO_IP            = 0         # dummy for IP
+    IPPROTO_ICMP          = 1         # control message protocol
+    IPPROTO_IGMP          = 2         # group management protocol
+    IPPROTO_GGP           = 3         # gateway^2 (deprecated)
+    IPPROTO_TCP           = 6         # tcp
+    IPPROTO_PUP           = 12        # pup
+    IPPROTO_UDP           = 17        # user datagram protocol
+    IPPROTO_IDP           = 22        # xns idp
+    IPPROTO_ND            = 77        # UNOFFICIAL net disk proto
+    IPPROTO_RAW           = 255       # raw IP packet
+    IPPROTO_MAX           = 256
+
+    NSPROTO_IPX   = 1000
+    NSPROTO_SPX   = 1256
+    NSPROTO_SPXII = 1257
+
+    # Functions
+
+    API.new('accept', 'LPP', 'L', 'ws2_32')
+    API.new('AcceptEx', 'LLPLLLPP', 'B', 'mswsock')
+    API.new('bind', 'LPI', 'I', 'ws2_32')
+    API.new('closesocket', 'L', 'I', 'ws2_32')
+    API.new('connect', 'LPI', 'I', 'ws2_32')
+    API.new('EnumProtocols', 'PPP', 'I', 'mswsock')
+    API.new('GetAcceptExSockaddrs', 'PLLLPPPP', 'V', 'mswsock')
+    API.new('GetAddressByName', 'LPPPLPPPPP', 'I', 'mswsock')
+    API.new('gethostbyaddr', 'SII', 'P', 'ws2_32')
+    API.new('gethostbyname', 'S', 'P', 'ws2_32')
+    API.new('gethostname', 'PI', 'I', 'ws2_32')
+    API.new('GetNameByType', 'PPL', 'I', 'mswsock')
+    API.new('getpeername', 'LPP', 'I', 'ws2_32')
+    API.new('getprotobyname', 'S', 'P', 'ws2_32')
+    API.new('getprotobynumber', 'I', 'P', 'ws2_32')
+    API.new('getservbyport', 'IS', 'P', 'ws2_32')
+    API.new('GetService', 'LPSLPPP', 'I', 'mswsock')
+    API.new('getsockname', 'LPP', 'I', 'ws2_32')
+    API.new('getsockopt', 'LIIPP', 'I', 'ws2_32')
+    API.new('GetTypeByName', 'LIIPP', 'I', 'mswsock')
+    API.new('htonl', 'L', 'L', 'ws2_32')
+    API.new('htons', 'S', 'S', 'ws2_32')
+    API.new('inet_addr', 'S', 'L', 'ws2_32')
+    API.new('inet_ntoa', 'P', 'S', 'ws2_32')
+    API.new('ioctlsocket', 'LLP', 'I', 'ws2_32')
+    API.new('listen', 'LI', 'I', 'ws2_32')
+    API.new('ntohl', 'L', 'L', 'ws2_32')
+    API.new('ntohs', 'S', 'S', 'ws2_32')
+    API.new('recv', 'LPII', 'I', 'ws2_32')
+    API.new('recvfrom', 'LPIIPP', 'I', 'ws2_32')
+    API.new('send', 'LSII', 'I', 'ws2_32')
+    API.new('sendto', 'LSIIPI', 'I', 'ws2_32')
+    API.new('SetService', 'LLLPPP', 'I', 'mswsock')
+    API.new('setsockopt', 'LIISI', 'I', 'ws2_32')
+    API.new('shutdown', 'LI', 'I', 'ws2_32')
+    API.new('socket', 'III', 'L', 'ws2_32')
+    API.new('TransmitFile', 'LLLLPPL', 'B', 'mswsock')
+
+    begin
+      API.new('freeaddrinfo', 'P', 'V', 'ws2_32')
+      API.new('FreeAddrInfoEx', 'P', 'V', 'ws2_32')
+      API.new('FreeAddrInfoW', 'P', 'V', 'ws2_32')
+      API.new('getaddrinfo', 'PPPP', 'I', 'ws2_32')
+      API.new('GetAddrInfoEx', 'PPLPPPPPPP', 'I', 'ws2_32')
+      API.new('GetAddrInfoW', 'PPPP', 'I', 'ws2_32')
+      API.new('getnameinfo', 'PLPLPLI', 'I', 'ws2_32')
+      API.new('GetNameInfoW', 'PLPLPLI', 'I', 'ws2_32')
+      API.new('InetNtop', 'IPPL', 'P', 'ws2_32')
+      API.new('inet_pton', 'IPP', 'I', 'ws2_32')
+      API.new('SetAddrInfoEx', 'SSPLPLLPPPPP', 'I', 'ws2_32')
+    rescue Win32::API::LoadLibraryError
+      # XP or later
+    end
+  end
+end

data/lib/windows/system_info.rb

@@ -1,229 +1,229 @@
-require 'windows/api'
-
-module Windows
-  module SystemInfo
-    API.auto_namespace = 'Windows::SystemInfo'
-    API.auto_constant  = true
-    API.auto_method    = true
-    API.auto_unicode   = true
-
-    private
-
-    # Obsolete processor info constants
-
-    PROCESSOR_INTEL_386     = 386
-    PROCESSOR_INTEL_486     = 486
-    PROCESSOR_INTEL_PENTIUM = 586
-    PROCESSOR_INTEL_IA64    = 2200
-    PROCESSOR_AMD_X8664     = 8664
-
-    # Suite mask constants
-
-    VER_SERVER_NT                      = 0x80000000
-    VER_WORKSTATION_NT                 = 0x40000000
-    VER_SUITE_SMALLBUSINESS            = 0x00000001
-    VER_SUITE_ENTERPRISE               = 0x00000002
-    VER_SUITE_BACKOFFICE               = 0x00000004
-    VER_SUITE_COMMUNICATIONS           = 0x00000008
-    VER_SUITE_TERMINAL                 = 0x00000010
-    VER_SUITE_SMALLBUSINESS_RESTRICTED = 0x00000020
-    VER_SUITE_EMBEDDEDNT               = 0x00000040
-    VER_SUITE_DATACENTER               = 0x00000080
-    VER_SUITE_SINGLEUSERTS             = 0x00000100
-    VER_SUITE_PERSONAL                 = 0x00000200
-    VER_SUITE_BLADE                    = 0x00000400
-    VER_SUITE_EMBEDDED_RESTRICTED      = 0x00000800
-    VER_SUITE_SECURITY_APPLIANCE       = 0x00001000
-    VER_SUITE_STORAGE_SERVER           = 0x00002000
-    VER_SUITE_COMPUTE_SERVER           = 0x00004000
-
-    # Product mask constants
-
-    VER_NT_WORKSTATION       = 0x0000001
-    VER_NT_DOMAIN_CONTROLLER = 0x0000002
-    VER_NT_SERVER            = 0x0000003
-
-    # Platform definitions
-
-    VER_PLATFORM_WIN32s        = 0
-    VER_PLATFORM_WIN32_WINDOWS = 1
-    VER_PLATFORM_WIN32_NT      = 2
-
-    # Version info type constants
-
-    VER_MINORVERSION     = 0x0000001
-    VER_MAJORVERSION     = 0x0000002
-    VER_BUILDNUMBER      = 0x0000004
-    VER_PLATFORMID       = 0x0000008
-    VER_SERVICEPACKMINOR = 0x0000010
-    VER_SERVICEPACKMAJOR = 0x0000020
-    VER_SUITENAME        = 0x0000040
-    VER_PRODUCT_TYPE     = 0x0000080
-
-    # Enum COMPUTER_NAME_FORMAT
-
-    ComputerNameNetBIOS                    = 0
-    ComputerNameDnsHostname                = 1
-    ComputerNameDnsDomain                  = 2
-    ComputerNameDnsFullyQualified          = 3
-    ComputerNamePhysicalNetBIOS            = 4
-    ComputerNamePhysicalDnsHostname        = 5
-    ComputerNamePhysicalDnsDomain          = 6
-    ComputerNamePhysicalDnsFullyQualified  = 7
-    ComputerNameMax                        = 8
-
-    API.new('ExpandEnvironmentStrings', 'PPL', 'L')
-    API.new('GetComputerName', 'PP', 'B')
-    API.new('GetComputerNameEx', 'PPP', 'B')
-    API.new('GetSystemInfo', 'P', 'V')
-    API.new('GetUserName', 'PP', 'B', 'advapi32')
-    API.new('GetUserNameEx', 'LPP', 'B', 'secur32')
-    API.new('GetVersion', 'V', 'L')
-    API.new('GetVersionEx', 'P', 'B')
-    API.new('GetWindowsDirectory', 'PI', 'I')
-
-    begin
-       API.new('GetSystemWow64Directory', 'PI', 'I')
-    rescue Win32::API::LoadLibraryError
-       # XP or later
-    end
-
-    # These macros are from windef.h, but I've put them here for now
-    # since they can be used in conjunction with some of the functions
-    # declared in this module.
-
-    def MAKEWORD(a, b)
-      ((a & 0xff) | ((b & 0xff) << 8))
-    end
-
-    def MAKELONG(a, b)
-      ((a & 0xffff) | ((b & 0xffff) << 16))
-    end
-
-    def LOWORD(l)
-      l & 0xffff
-    end
-
-    def HIWORD(l)
-      l >> 16
-    end
-
-    def LOBYTE(w)
-      w & 0xff
-    end
-
-    def HIBYTE(w)
-      w >> 8
-    end
-
-    # Returns a float indicating the major and minor version of Windows,
-    # e.g. 5.1, 6.0, etc.
-    #
-    def windows_version
-      version = GetVersion()
-      major = LOBYTE(LOWORD(version))
-      minor = HIBYTE(LOWORD(version))
-      eval("Float(#{major}.#{minor})")
-    end
-
-    # Custom methods that may come in handy
-
-    # Returns true if the current platform is Vista (any variant) or Windows
-    # Server 2008, i.e. major version 6, minor version 0.
-    #
-    def windows_2000?
-      version = GetVersion()
-      LOBYTE(LOWORD(version)) == 5 && HIBYTE(LOWORD(version)) == 0
-    end
-
-    # Returns true if the current platform is Windows XP or Windows XP
-    # Pro, i.e. major version 5, minor version 1 (or 2 in the case of a
-    # 64-bit Windows XP Pro).
-    #--
-    # Because of the exception for a 64-bit Windows XP Pro, we have to
-    # do things the hard way. For version 2 we look for any of the suite
-    # masks that might be associated with Windows 2003. If we don't find
-    # any of them, assume it's Windows XP.
-    #
-    def windows_xp?
-      bool = false
-
-      buf = 0.chr * 156
-      buf[0,4] = [buf.size].pack("L") # Set dwOSVersionInfoSize
-
-      GetVersionEx(buf)
-
-      major = buf[4,4].unpack("L")[0]
-      minor = buf[8,4].unpack("L")[0]
-      suite = buf[152,2].unpack("S")[0]
-
-      # Make sure we detect a 64-bit Windows XP Pro
-      if major == 5
-        if minor == 1
-          bool = true
-        elsif minor == 2
-          if (suite & VER_SUITE_BLADE == 0)          &&
-             (suite & VER_SUITE_COMPUTE_SERVER == 0) &&
-             (suite & VER_SUITE_DATACENTER == 0)     &&
-             (suite & VER_SUITE_ENTERPRISE == 0)     &&
-             (suite & VER_SUITE_STORAGE_SERVER == 0)
-          then
-            bool = true
-          end
-        else
-          # Do nothing - already false
-        end
-      end
-
-      bool
-    end
-
-    # Returns true if the current platform is Windows 2003 (any version).
-    # i.e. major version 5, minor version 2.
-    #--
-    # Because of the exception for a 64-bit Windows XP Pro, we have to
-    # do things the hard way. For version 2 we look for any of the suite
-    # masks that might be associated with Windows 2003. If we find any
-    # of them, assume it's Windows 2003.
-    #
-    def windows_2003?
-      bool = false
-
-      buf = 0.chr * 156
-      buf[0,4] = [buf.size].pack("L") # Set dwOSVersionInfoSize
-
-      GetVersionEx(buf)
-
-      major = buf[4,4].unpack("L")[0]
-      minor = buf[8,4].unpack("L")[0]
-      suite = buf[152,2].unpack("S")[0]
-
-      # Make sure we exclude a 64-bit Windows XP Pro
-      if major == 5 && minor == 2
-        if (suite & VER_SUITE_BLADE > 0)          ||
-           (suite & VER_SUITE_COMPUTE_SERVER > 0) ||
-           (suite & VER_SUITE_DATACENTER > 0)     ||
-           (suite & VER_SUITE_ENTERPRISE > 0)     ||
-           (suite & VER_SUITE_STORAGE_SERVER > 0)
-        then
-          bool = true
-        end
-      end
-
-      bool
-    end
-
-    # Returns true if the current platform is Windows Vista (any variant)
-    # or Windows Server 2008, i.e. major version 6, minor version 0.
-    #
-    def windows_vista?
-      version = GetVersion()
-      LOBYTE(LOWORD(version)) == 6 && HIBYTE(LOWORD(version)) == 0
-    end
-
-    def windows_7?
-      version = GetVersion()
-      LOBYTE(LOWORD(version)) == 6 && HIBYTE(LOWORD(version)) == 1
-    end
-  end
-end
+require 'windows/api'
+
+module Windows
+  module SystemInfo
+    API.auto_namespace = 'Windows::SystemInfo'
+    API.auto_constant  = true
+    API.auto_method    = true
+    API.auto_unicode   = true
+
+    private
+
+    # Obsolete processor info constants
+
+    PROCESSOR_INTEL_386     = 386
+    PROCESSOR_INTEL_486     = 486
+    PROCESSOR_INTEL_PENTIUM = 586
+    PROCESSOR_INTEL_IA64    = 2200
+    PROCESSOR_AMD_X8664     = 8664
+
+    # Suite mask constants
+
+    VER_SERVER_NT                      = 0x80000000
+    VER_WORKSTATION_NT                 = 0x40000000
+    VER_SUITE_SMALLBUSINESS            = 0x00000001
+    VER_SUITE_ENTERPRISE               = 0x00000002
+    VER_SUITE_BACKOFFICE               = 0x00000004
+    VER_SUITE_COMMUNICATIONS           = 0x00000008
+    VER_SUITE_TERMINAL                 = 0x00000010
+    VER_SUITE_SMALLBUSINESS_RESTRICTED = 0x00000020
+    VER_SUITE_EMBEDDEDNT               = 0x00000040
+    VER_SUITE_DATACENTER               = 0x00000080
+    VER_SUITE_SINGLEUSERTS             = 0x00000100
+    VER_SUITE_PERSONAL                 = 0x00000200
+    VER_SUITE_BLADE                    = 0x00000400
+    VER_SUITE_EMBEDDED_RESTRICTED      = 0x00000800
+    VER_SUITE_SECURITY_APPLIANCE       = 0x00001000
+    VER_SUITE_STORAGE_SERVER           = 0x00002000
+    VER_SUITE_COMPUTE_SERVER           = 0x00004000
+
+    # Product mask constants
+
+    VER_NT_WORKSTATION       = 0x0000001
+    VER_NT_DOMAIN_CONTROLLER = 0x0000002
+    VER_NT_SERVER            = 0x0000003
+
+    # Platform definitions
+
+    VER_PLATFORM_WIN32s        = 0
+    VER_PLATFORM_WIN32_WINDOWS = 1
+    VER_PLATFORM_WIN32_NT      = 2
+
+    # Version info type constants
+
+    VER_MINORVERSION     = 0x0000001
+    VER_MAJORVERSION     = 0x0000002
+    VER_BUILDNUMBER      = 0x0000004
+    VER_PLATFORMID       = 0x0000008
+    VER_SERVICEPACKMINOR = 0x0000010
+    VER_SERVICEPACKMAJOR = 0x0000020
+    VER_SUITENAME        = 0x0000040
+    VER_PRODUCT_TYPE     = 0x0000080
+
+    # Enum COMPUTER_NAME_FORMAT
+
+    ComputerNameNetBIOS                    = 0
+    ComputerNameDnsHostname                = 1
+    ComputerNameDnsDomain                  = 2
+    ComputerNameDnsFullyQualified          = 3
+    ComputerNamePhysicalNetBIOS            = 4
+    ComputerNamePhysicalDnsHostname        = 5
+    ComputerNamePhysicalDnsDomain          = 6
+    ComputerNamePhysicalDnsFullyQualified  = 7
+    ComputerNameMax                        = 8
+
+    API.new('ExpandEnvironmentStrings', 'PPL', 'L')
+    API.new('GetComputerName', 'PP', 'B')
+    API.new('GetComputerNameEx', 'PPP', 'B')
+    API.new('GetSystemInfo', 'P', 'V')
+    API.new('GetUserName', 'PP', 'B', 'advapi32')
+    API.new('GetUserNameEx', 'LPP', 'B', 'secur32')
+    API.new('GetVersion', 'V', 'L')
+    API.new('GetVersionEx', 'P', 'B')
+    API.new('GetWindowsDirectory', 'PI', 'I')
+
+    begin
+       API.new('GetSystemWow64Directory', 'PI', 'I')
+    rescue Win32::API::LoadLibraryError
+       # XP or later
+    end
+
+    # These macros are from windef.h, but I've put them here for now
+    # since they can be used in conjunction with some of the functions
+    # declared in this module.
+
+    def MAKEWORD(a, b)
+      ((a & 0xff) | ((b & 0xff) << 8))
+    end
+
+    def MAKELONG(a, b)
+      ((a & 0xffff) | ((b & 0xffff) << 16))
+    end
+
+    def LOWORD(l)
+      l & 0xffff
+    end
+
+    def HIWORD(l)
+      l >> 16
+    end
+
+    def LOBYTE(w)
+      w & 0xff
+    end
+
+    def HIBYTE(w)
+      w >> 8
+    end
+
+    # Returns a float indicating the major and minor version of Windows,
+    # e.g. 5.1, 6.0, etc.
+    #
+    def windows_version
+      version = GetVersion()
+      major = LOBYTE(LOWORD(version))
+      minor = HIBYTE(LOWORD(version))
+      eval("Float(#{major}.#{minor})")
+    end
+
+    # Custom methods that may come in handy
+
+    # Returns true if the current platform is Vista (any variant) or Windows
+    # Server 2008, i.e. major version 6, minor version 0.
+    #
+    def windows_2000?
+      version = GetVersion()
+      LOBYTE(LOWORD(version)) == 5 && HIBYTE(LOWORD(version)) == 0
+    end
+
+    # Returns true if the current platform is Windows XP or Windows XP
+    # Pro, i.e. major version 5, minor version 1 (or 2 in the case of a
+    # 64-bit Windows XP Pro).
+    #--
+    # Because of the exception for a 64-bit Windows XP Pro, we have to
+    # do things the hard way. For version 2 we look for any of the suite
+    # masks that might be associated with Windows 2003. If we don't find
+    # any of them, assume it's Windows XP.
+    #
+    def windows_xp?
+      bool = false
+
+      buf = 0.chr * 156
+      buf[0,4] = [buf.size].pack("L") # Set dwOSVersionInfoSize
+
+      GetVersionEx(buf)
+
+      major = buf[4,4].unpack("L")[0]
+      minor = buf[8,4].unpack("L")[0]
+      suite = buf[152,2].unpack("S")[0]
+
+      # Make sure we detect a 64-bit Windows XP Pro
+      if major == 5
+        if minor == 1
+          bool = true
+        elsif minor == 2
+          if (suite & VER_SUITE_BLADE == 0)          &&
+             (suite & VER_SUITE_COMPUTE_SERVER == 0) &&
+             (suite & VER_SUITE_DATACENTER == 0)     &&
+             (suite & VER_SUITE_ENTERPRISE == 0)     &&
+             (suite & VER_SUITE_STORAGE_SERVER == 0)
+          then
+            bool = true
+          end
+        else
+          # Do nothing - already false
+        end
+      end
+
+      bool
+    end
+
+    # Returns true if the current platform is Windows 2003 (any version).
+    # i.e. major version 5, minor version 2.
+    #--
+    # Because of the exception for a 64-bit Windows XP Pro, we have to
+    # do things the hard way. For version 2 we look for any of the suite
+    # masks that might be associated with Windows 2003. If we find any
+    # of them, assume it's Windows 2003.
+    #
+    def windows_2003?
+      bool = false
+
+      buf = 0.chr * 156
+      buf[0,4] = [buf.size].pack("L") # Set dwOSVersionInfoSize
+
+      GetVersionEx(buf)
+
+      major = buf[4,4].unpack("L")[0]
+      minor = buf[8,4].unpack("L")[0]
+      suite = buf[152,2].unpack("S")[0]
+
+      # Make sure we exclude a 64-bit Windows XP Pro
+      if major == 5 && minor == 2
+        if (suite & VER_SUITE_BLADE > 0)          ||
+           (suite & VER_SUITE_COMPUTE_SERVER > 0) ||
+           (suite & VER_SUITE_DATACENTER > 0)     ||
+           (suite & VER_SUITE_ENTERPRISE > 0)     ||
+           (suite & VER_SUITE_STORAGE_SERVER > 0)
+        then
+          bool = true
+        end
+      end
+
+      bool
+    end
+
+    # Returns true if the current platform is Windows Vista (any variant)
+    # or Windows Server 2008, i.e. major version 6, minor version 0.
+    #
+    def windows_vista?
+      version = GetVersion()
+      LOBYTE(LOWORD(version)) == 6 && HIBYTE(LOWORD(version)) == 0
+    end
+
+    def windows_7?
+      version = GetVersion()
+      LOBYTE(LOWORD(version)) == 6 && HIBYTE(LOWORD(version)) == 1
+    end
+  end
+end