01-20 10:26 阅读 115

WINDOWS2016故障转移群集(图文教程)

本文主要介绍了WINDOWS2016故障转移群集，文中通过示例代码介绍的非常详细，具有一定的参考价值，感兴趣的小伙伴们可以参考一下

WIN2016故障转移群集

准备工作：

所有主机配置主机信息修改好主机名IP DNS为本机IP （以单台主机A为例）

互相ping测试连通性（以单台主机A为例）

所有主机安装角色功能 DNS和故障转移群集（以单台主机A为例）

所有主机配置DNS解析记录并测试解析

新建正向查找区域NET

新建反向查找区域

新建正向查找区域记录默认已生成本机记录

新建反向查找记录（我们新建正向记录勾选了PTR指针默认已经新建了B/C主机的反向记录）现在只需新建一条本机的PTR记录

测试解析

A主机配置故障转移群集 B/C主机连接到群集指定虚拟IP192.168.0.88

主机A创建群集TEST

主机B/C连接到群集TEST

主机B（192.168.0.25）

查看群集当前在用主机为哪台（网卡应有88IP）

所有主机安装IIS 80端口为默认网页访问测试

关闭掉在用主机(网卡有88的主机同时只会有一台) 查看在用主机被选为了哪台 192.168.0.88:80是否还可以打开（使用网络中其他主机来打开网页）

关闭掉A主机后 B主机拥有了88IP 网页依然可以打开

继续关闭B主机

此时C主机拥有了88IP 网页依然可以打开

参考：

https://blog.csdn.net/demonson/article/details/81708809

注：

经后期测试建议不要将群集所有主机全部宕机否则会出现问题

进阶：

以上内容为群集搭建及群集中某主机宕机后恢复业务的情况

下面记录一种主机没有宕机 IIS站点挂掉无法提供服务的情况

新建文本文档修改为IIS.vbs 内容如下（虚线内内容）注意修改网站和应用程序池名称(默认无需修改)

'<begin script sample>

'This script provides high availability for IIS websites

'By default, it monitors the "Default Web Site" and "DefaultAppPool"

'To monitor another web site, change the SITE_NAME below

'To monitor another application pool, change the APP_POOL_NAME below

'More thorough and application-specific health monitoring logic can be added to the script if needed

Option Explicit

DIM SITE_NAME

DIM APP_POOL_NAME

Dim START_WEB_SITE

Dim START_APP_POOL

Dim SITES_SECTION_NAME

Dim APPLICATION_POOLS_SECTION_NAME

Dim CONFIG_APPHOST_ROOT

Dim STOP_WEB_SITE

'Note:

'Replace this with the site and application pool you want to configure high availability for

'Make sure that the same web site and application pool in the script exist on all cluster nodes. Note that the names are case-sensitive.

SITE_NAME = "Default Web Site" '网站名称

APP_POOL_NAME = "DefaultAppPool" '应用程序池名

START_WEB_SITE = 0

START_APP_POOL = 0

STOP_WEB_SITE  = 1

SITES_SECTION_NAME = "system.applicationHost/sites"

APPLICATION_POOLS_SECTION_NAME = "system.applicationHost/applicationPools"

CONFIG_APPHOST_ROOT = "MACHINE/WEBROOT/APPHOST"

'Helper script functions

'Find the index of the website on this node

Function FindSiteIndex(collection, siteName)

    Dim i

    FindSiteIndex = -1   

    For i = 0 To (CInt(collection.Count) - 1)

        If collection.Item(i).GetPropertyByName("name").Value = siteName Then

            FindSiteIndex = i

            Exit For

        End If      

    Next

End Function

'Find the index of the application pool on this node

Function FindAppPoolIndex(collection, appPoolName)

    Dim i

    FindAppPoolIndex = -1   

    For i = 0 To (CInt(collection.Count) - 1)

        If collection.Item(i).GetPropertyByName("name").Value = appPoolName Then

            FindAppPoolIndex = i

            Exit For

        End If      

    Next

End Function

'Get the state of the website

Function GetWebSiteState(adminManager, siteName)

    Dim sitesSection, sitesSectionCollection, siteSection, index, siteMethods, startMethod, executeMethod

    Set sitesSection = adminManager.GetAdminSection(SITES_SECTION_NAME, CONFIG_APPHOST_ROOT)

    Set sitesSectionCollection = sitesSection.Collection

    index = FindSiteIndex(sitesSectionCollection, siteName)

    If index = -1 Then

        GetWebSiteState = -1

    End If     

    Set siteSection = sitesSectionCollection(index)

    GetWebSiteState = siteSection.GetPropertyByName("state").Value

End Function

'Get the state of the ApplicationPool

Function GetAppPoolState(adminManager, appPool)