[hobbit] Bbwin cluster.exe

Lennon, Padraig Padraig.Lennon at pioneerinvestments.com
Wed Oct 15 11:38:54 CEST 2008


Hi DNS

That's great.. How do you normally run this? What I mean is do you put the test on each cluster node?

Thanks for this 


Padraig Lennon
Senior Systems Engineer
Production Services
Pioneer Global Investments (Dublin)
5th Floor Georges Quay Plaza, Dublin 2
ext: 2081
Direct dial: 00353 1 480 2081

-----Original Message-----
From: DNS [mailto:dns1407 at yahoo.com] 
Sent: 15 October 2008 09:33
To: hobbit at hswn.dk
Subject: Re: [hobbit] Bbwin cluster.exe

Hi Padraig,

The vbs-script that i use to monitor a MS 2003 Cluster.... Just copy the code into a vbs-file to (..\bbwin\bin) and configure this as "external" in bbwin.cfg
====Begin====
On Error Resume Next
strMasterState = "green"
strBBFilename = "clusterRES"
'find out where to put BB log files
const HKLM = &H80000002
strBBExtpathNew = "SOFTWARE\BBWin"
strBBExtpathOld = "SOFTWARE\BBWin"
Set oReg=GetObject("winmgmts:\root\default:StdRegProv")
' check for BB Externals Path; reg key changes between versions
oReg.GetStringValue HKLM,strBBExtpathNew,,strExtpath
if isnull(strExtpath) then
oReg.GetStringValue HKLM,strBBExtpathOld,,strExtpath
end if
if isnull(strExtpath) then
wscript.quit
end if
'Create the cluster, shell, network, and file system objects
Set objClus = CreateObject("MSCluster.Cluster")
Set WshNetwork = WScript.CreateObject("WScript.Network")
strComputerName = WshNetwork.ComputerName
'Open a cluster object for the cluster running on the local system
objClus.Open ""
if err then
wscript.quit
end if
strfileoutput = strfileoutput & "CLUSTER NAME: " & objClus.Name & vbcrlf
strfileoutput = strfileoutput & objClus.Version.VendorID & " - " & objClus.Version.MajorVersion &  "." & objClus.Version.MinorVersion & "." & objClus.Version.BuildNumber & " - " & objClus.Version.CSDVersion & vbcrlf & vbcrlf
strfileoutput = strfileoutput & "Cluster Nodes:" & vbcrlf
For Each itmNode in objClus.Nodes
select case itmNode.state
case 0
strfileoutput = strfileoutput & "&green ONLINE  - " & itmNode.Name & vbcrlf
case 1
strfileoutput = strfileoutput & "&red OFFLINE - " & itmNode.Name & vbcrlf
if strMasterState <> "red" then
strMasterState = "red"
end if
end select
Next
strfileoutput = strfileoutput & "Quorum Device: " & objClus.QuorumResource.Name & " - " & objClus.QuorumPath & vbcrlf & vbcrlf
strfileoutput = strfileoutput & objclus.name & " GROUPS" & vbcrlf & vbcrlf
For Each itmGroup in objClus.ResourceGroups
strfileoutput = strfileoutput & itmGroup.Name & " (" & itmGroup.Resources.Count & " Resources)" & vbcrlf
For Each itmRes in itmGroup.Resources
select case itmres.state
case 2
strstate = "&green ONLINE          - "
case 3
strstate = "&yellow OFFLINE         - "
if strMasterState = "green" then
strMasterState = "yellow"
end if
case 4
strstate = "&red FAILED          - "
if strMasterState  <> "red" then
strMasterState = "red"
end if
case 129
strstate = "&yellow ONLINE PENDING  - "
if strMasterState = "green" then
strMasterState = "yellow"
end if
end select
strFileOutput = strFileOutput & strState & itmRes.Name & vbtab & itmRes.TypeName & vbcrlf
strState = ""
Next
strfileoutput = strfileoutput & vbcrlf
Next
'output
strfileoutput = strMasterState & " " & "  MS Cluster Services   " & Now & vbtab & "[" & strComputerName & "]" & vbcrlf & strFileOutput
' Output
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(strExtpath & "\" & strBBFileName, 8 , TRUE)
f.Write strFileOutput
f.Close
set fso = Nothing
set f = Nothing
set objclus = Nothing
wscript.quit
===End ====

Let me know if this is what you looking for....
Kind regards,
DNS




----- Original Message ----
From: "Lennon, Padraig" <Padraig.Lennon at pioneerinvestments.com>
To: hobbit at hswn.dk
Sent: Tuesday, October 14, 2008 6:11:26 PM
Subject: RE: [hobbit] Bbwin cluster.exe

Could you repost the vbs? I can't locate it.. Or even send me on a link to the previous mail you sent?

Thanks


Padraig Lennon
Senior Systems Engineer
Production Services
Pioneer Global Investments (Dublin)
5th Floor Georges Quay Plaza, Dublin 2
ext: 2081
Direct dial: 00353 1 480 2081

-----Original Message-----
From: DNS [mailto:dns1407 at yahoo.com] 
Sent: 14 October 2008 12:20
To: hobbit at hswn.dk
Subject: Re: [hobbit] Bbwin cluster.exe

Don't use Cluster.exe, because this give you very little information..use vbsscript that i send a while ago.... 



----- Original Message ----
From: "Everett, Vernon" <Vernon.Everett at woodside.com.au>
To: "hobbit at hswn.dk" <hobbit at hswn.dk>
Sent: Tuesday, October 14, 2008 10:58:27 AM
Subject: [hobbit] Bbwin cluster.exe

Hi all

I know this is a bbwin question, but the bbwin list appears to have died a horrible death, and our Windoze admin has asked me to help.

--- start Windoze Admin mail ---

Windows 2003 R2 SP2 x64 - bbwin external 'cluster.exe' GetVersionExW failed on this system. Error 122 This version of Windows is not supported for Windows Clustering.

I've searched the lists but haven't been able to reference the BBWin external as in our configuration.

Full unattended install (msiexec.exe /i BBWin_0.11.msi ADDLOCAL=ALL /qb-) so all externals are installed

I've tried to run the below connected via RDP, via RDP using console switch (mstsc /console /v:<servername>) and via ILO console (this is remote management for HP servers)

<servername> C:\Program Files (x86)\BBWin\ext>cluster.exe
GetVersionExW failed on this system. Error 122
This version of Windows is not supported for Windows Clustering.
<servername> C:\Program Files (x86)\BBWin\ext>

The file information for cluster.exe;
File version 0.11.0.38
Build 38
Date 2007/12/27 18:09:33

Please note that BBWin 0.12 includes the same cluster.exe file and does produce the same error message

Microsoft Windows Server 2003 R2, Enterprise x64 Edition Service Pack 2 (build 3790)

Any assistance or pointers would be very much appreciated! (and of course if any additional information is required, please also let me know)

Thanks Lee

--- end Windows Admin mail ---

Has anybody seen this before?

Thanks
    Vernon

NOTICE: This email and any attachments are confidential. 
They may contain legally privileged information or 
copyright material. You must not read, copy, use or 
disclose them without authorisation. If you are not an 
intended recipient, please contact us at once by return 
email and then delete both messages and all attachments.


To unsubscribe from the hobbit list, send an e-mail to
hobbit-unsubscribe at hswn.dk


      

To unsubscribe from the hobbit list, send an e-mail to
hobbit-unsubscribe at hswn.dk



To unsubscribe from the hobbit list, send an e-mail to
hobbit-unsubscribe at hswn.dk



      

To unsubscribe from the hobbit list, send an e-mail to
hobbit-unsubscribe at hswn.dk



-------------- next part --------------



"The information in this e-mail and in any attachments is confidential and intended solely 
for the attention and use of the named addressee(s). This information may be subject to legal, 
professional or other privilege and further distribution of it is strictly prohibited without 
our authority. If you are not the intended recipient, you are not authorised to and must not 
disclose, copy, distribute, or retain this message or any part of it, and should notify us 
immediately.

This footnote also confirms that this email has been automatically scanned for the presence 
of computer viruses, profanities and certain file types."

Pioneer Investment Management Limited.

1 George?s Quay Plaza, George?s Quay, Dublin 2, Ireland. 

Registered in Ireland no. 287793.


More information about the Xymon mailing list