{"id":497,"date":"2022-12-07T09:31:10","date_gmt":"2022-12-07T08:31:10","guid":{"rendered":"http:\/\/lesmrdtrucs.mataf35400.fr\/?page_id=497"},"modified":"2022-12-07T09:34:10","modified_gmt":"2022-12-07T08:34:10","slug":"connaitre-la-version-de-windows","status":"publish","type":"page","link":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/connaitre-la-version-de-windows\/","title":{"rendered":"Connaitre la version de Windows"},"content":{"rendered":"\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Dans un module:
Declare Function GetVersion Lib \u00ab\u00a0kernel32\u00a0\u00bb () As Long<\/em><\/span>

Function GetWindowsVersion() As String<\/em><\/span>
\u00a0\u00a0\u00a0 Dim Version As Long: Version = GetVersion<\/em><\/span>
\u00a0\u00a0\u00a0 Dim Major As Long: Major = (Version And &HFFFF&) Mod 256<\/em><\/span>
\u00a0\u00a0\u00a0 Dim Minor As Long: Minor = ((Version And &HFFFF&) – Major) \\ 100<\/em><\/span>
\u00a0\u00a0\u00a0 Dim Build As Long: Build = (Version \\ &H10000)<\/em><\/span>
\u00a0\u00a0\u00a0 GetWindowsVersion = Major & \u00ab\u00a0.\u00a0\u00bb & Format(Minor, \u00ab\u00a000\u00a0\u00bb) & \u00ab\u00a0.\u00a0\u00bb & Build<\/em><\/span>
End Function<\/em><\/span>

Function GetOSName(Optional Version As String) As String<\/em><\/span>
\u00a0\u00a0\u00a0 If Len(Version) = 0 Then Version = GetWindowsVersion<\/em><\/span>
\u00a0\u00a0\u00a0 If Version Like \u00ab\u00a05.*\u00a0\u00bb Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 GetOSName = \u00ab\u00a02000\/XP\u00a0\u00bb<\/em><\/span>
\u00a0\u00a0\u00a0 ElseIf Version Like \u00ab\u00a04.1*\u00a0\u00bb Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 GetOSName = \u00ab\u00a09x\u00a0\u00bb<\/em><\/span>
\u00a0\u00a0\u00a0 ElseIf Version Like \u00ab\u00a04.0*\u00a0\u00bb Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 GetOSName = \u00ab\u00a0NT4\u00a0\u00bb<\/em><\/span>
\u00a0\u00a0\u00a0 ElseIf Version Like \u00ab\u00a03.0*\u00a0\u00bb Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 GetOSName = \u00ab\u00a0NT3\u00a0\u00bb<\/em><\/span>
\u00a0\u00a0\u00a0 ElseIf Version Like \u00ab\u00a03.1*\u00a0\u00bb Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 GetOSName = \u00ab\u00a03.1\u00a0\u00bb<\/em><\/span>
\u00a0\u00a0\u00a0 End If<\/em><\/span>
End Function<\/em><\/span>

Utilisation:
Sub Form_Load()<\/em><\/span>
\u00a0\u00a0\u00a0 MsgBox \u00ab\u00a0Windows Version: \u00a0\u00bb + GetWindowsVersion<\/em><\/span>
\u00a0\u00a0\u00a0 MsgBox \u00ab\u00a0Windows Name : \u00a0\u00bb + GetOSName<\/em><\/span>
End Sub<\/em> <\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<\/div>\n\t\t","protected":false},"excerpt":{"rendered":"

Dans un module:Declare Function GetVersion Lib \u00ab\u00a0kernel32\u00a0\u00bb () As Long Function GetWindowsVersion() As String\u00a0\u00a0\u00a0 Dim Version As Long: Version = GetVersion\u00a0\u00a0\u00a0 Dim Major As Long: Major = (Version And &HFFFF&) Mod 256\u00a0\u00a0\u00a0 Dim Minor As Long: Minor = ((Version And &HFFFF&) – Major) 100\u00a0\u00a0\u00a0 Dim Build As Long: Build = (Version &H10000)\u00a0\u00a0\u00a0 GetWindowsVersion = Major […]<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"ocean_post_layout":"","ocean_both_sidebars_style":"","ocean_both_sidebars_content_width":0,"ocean_both_sidebars_sidebars_width":0,"ocean_sidebar":"","ocean_second_sidebar":"","ocean_disable_margins":"enable","ocean_add_body_class":"","ocean_shortcode_before_top_bar":"","ocean_shortcode_after_top_bar":"","ocean_shortcode_before_header":"","ocean_shortcode_after_header":"","ocean_has_shortcode":"","ocean_shortcode_after_title":"","ocean_shortcode_before_footer_widgets":"","ocean_shortcode_after_footer_widgets":"","ocean_shortcode_before_footer_bottom":"","ocean_shortcode_after_footer_bottom":"","ocean_display_top_bar":"default","ocean_display_header":"default","ocean_header_style":"","ocean_center_header_left_menu":"","ocean_custom_header_template":"","ocean_custom_logo":0,"ocean_custom_retina_logo":0,"ocean_custom_logo_max_width":0,"ocean_custom_logo_tablet_max_width":0,"ocean_custom_logo_mobile_max_width":0,"ocean_custom_logo_max_height":0,"ocean_custom_logo_tablet_max_height":0,"ocean_custom_logo_mobile_max_height":0,"ocean_header_custom_menu":"","ocean_menu_typo_font_family":"","ocean_menu_typo_font_subset":"","ocean_menu_typo_font_size":0,"ocean_menu_typo_font_size_tablet":0,"ocean_menu_typo_font_size_mobile":0,"ocean_menu_typo_font_size_unit":"px","ocean_menu_typo_font_weight":"","ocean_menu_typo_font_weight_tablet":"","ocean_menu_typo_font_weight_mobile":"","ocean_menu_typo_transform":"","ocean_menu_typo_transform_tablet":"","ocean_menu_typo_transform_mobile":"","ocean_menu_typo_line_height":0,"ocean_menu_typo_line_height_tablet":0,"ocean_menu_typo_line_height_mobile":0,"ocean_menu_typo_line_height_unit":"","ocean_menu_typo_spacing":0,"ocean_menu_typo_spacing_tablet":0,"ocean_menu_typo_spacing_mobile":0,"ocean_menu_typo_spacing_unit":"","ocean_menu_link_color":"","ocean_menu_link_color_hover":"","ocean_menu_link_color_active":"","ocean_menu_link_background":"","ocean_menu_link_hover_background":"","ocean_menu_link_active_background":"","ocean_menu_social_links_bg":"","ocean_menu_social_hover_links_bg":"","ocean_menu_social_links_color":"","ocean_menu_social_hover_links_color":"","ocean_disable_title":"default","ocean_disable_heading":"default","ocean_post_title":"","ocean_post_subheading":"","ocean_post_title_style":"","ocean_post_title_background_color":"","ocean_post_title_background":0,"ocean_post_title_bg_image_position":"","ocean_post_title_bg_image_attachment":"","ocean_post_title_bg_image_repeat":"","ocean_post_title_bg_image_size":"","ocean_post_title_height":0,"ocean_post_title_bg_overlay":0.5,"ocean_post_title_bg_overlay_color":"","ocean_disable_breadcrumbs":"default","ocean_breadcrumbs_color":"","ocean_breadcrumbs_separator_color":"","ocean_breadcrumbs_links_color":"","ocean_breadcrumbs_links_hover_color":"","ocean_display_footer_widgets":"default","ocean_display_footer_bottom":"default","ocean_custom_footer_template":"","footnotes":""},"class_list":["post-497","page","type-page","status-publish","hentry","entry"],"_links":{"self":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/497","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/comments?post=497"}],"version-history":[{"count":4,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/497\/revisions"}],"predecessor-version":[{"id":505,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/497\/revisions\/505"}],"wp:attachment":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/media?parent=497"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}