码迷,mamicode.com
首页 > 其他好文 > 详细

Server2003群集记录

时间:2015-12-07 13:56:20      阅读:169      评论:0      收藏:0      [点我收藏+]

标签:

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

 

Server2003群集记录

标签:

原文地址:http://www.cnblogs.com/dishiyicijinqiu/p/5025707.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!