Quorum
Data
D:\Soft\OPSystem\VM\ShareDisk\Quorum.vmdk
D:\Soft\OPSystem\VM\ShareDisk\Data.vmdk
net start rpcss
net start dhcp
cluster node szkl-Domain /forcecleanup
cluster node Server-1 /forcecleanup
cluster node Server-2 /forcecleanup
cluster node Server-3 /forcecleanup
Server-Domain node cluster /forcecleanup
disk.locking = "FALSE"
"C:\Program Files (x86)\VMware\VMware Workstation"\vmware-vdiskmanager.exe -c -s 1024Mb -a lsilogic -t 4 "D:\Soft\OPSystem\VM\ShareDisk"\Quorum.vmdk
"C:\Program Files (x86)\VMware\VMware Workstation"\vmware-vdiskmanager.exe -c -s 2048Mb -a lsilogic -t 4 "D:\Soft\OPSystem\VM\ShareDisk"\Data.vmdk
cluster node Cluster /forcecleanup
Cluster为计算机名
新建资源组：IIS组 -组
新建资源：IIS IP 地址，IP地址，IIS组 -IP地址
新建资源：IIS网络名，网络名称，IIS组 -网络名称
新建资源：IIS，通用脚本，IIS组 -通用脚本
192.168.18.60
255
TestWeb
IIS网络名
TestWeb
C:\Windows\system32\inetsrv\clusweb.vbs
一下为通用脚本：
Sub Open( )
End Sub
Function Close( )
End Function
Function Online( )
Dim objWmiProvider
Dim objService
Dim strServiceState
‘ Check to see if the service is running
set objWmiProvider = GetObject("winmgmts:/root/cimv2")
set objService = objWmiProvider.get("win32_service=‘w3svc‘")
strServiceState = objService.state
If ucase(strServiceState) = "RUNNING" Then
Online = True
Else
‘ If the service is not running, try to start it. If it won‘t start, log an error
response = objService.StartService()
‘ response = 0 or 10 indicates that the request to start was accepted
If ( response <> 0 ) and ( response <> 10 ) Then
Resource.LogInformation "The resource failed to come Online because the W3SVC service is not running."
Online = False
Else
Online = True
End If
End If
End Function
Function Offline( )
End Function
Function Terminate( )
End Function
Function LooksAlive( )
Dim objWmiProvider
Dim objService
Dim strServiceState
set objWmiProvider = GetObject("winmgmts:/root/cimv2")
set objService = objWmiProvider.get("win32_service=‘w3svc‘")
strServiceState = objService.state
if ucase(strServiceState) = "RUNNING" Then
LooksAlive = True
Else
LooksAlive = False
End If
End Function
Function IsAlive( )
Dim objWmiProvider
Dim objService
Dim strServiceState
set objWmiProvider = GetObject("winmgmts:/root/cimv2")
set objService = objWmiProvider.get("win32_service=‘w3svc‘")
strServiceState = objService.state
if ucase(strServiceState) = "RUNNING" Then
IsAlive= True
Else
IsAlive= False
End If
End Function