Server2003群集记录

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

DCPROMO

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