admin
base
basedrv
boot
busdrv
cluster
admin
cladmwiz
cluadmex
cluadmin
cluadmmc
cluster
common
debugex
iisclex3
msclus
asp
html
cluskeys.html
depends.html
domainnames.html
driveprops.html
netinterface.html
newgroup.html
nodeprops.html
possibleowners.html
preferredowners.html
res.html
resgroups.html
resprops.html
vbscript
vbtest
vctest
wsf
barfclus.h
clusapp.cpp
clusapp.h
clusdisk.cpp
clusdisk.h
cluskeys.cpp
cluskeys.h
clusneti.cpp
clusneti.h
clusnetw.cpp
clusnetw.h
clusnode.cpp
clusnode.h
clusres.cpp
clusres.h
clusresg.cpp
clusresg.h
clusrest.cpp
clusrest.h
cluster.cpp
cluster.h
clusterobject.cpp
clusterobject.h
interfacever.h
makefile
msclus.cpp
msclus.def
msclus.dsp
msclus.dsw
msclus.idl
msclus.rc
msclus.rc2
msclus.rgs
msclus.ver
partition.cpp
partition.h
property.cpp
property.h
propertyvalue.cpp
propertyvalue.h
proplsts.cpp
resource.h
smartpointer.h
sources
stdafx.cpp
stdafx.h
supporterrorinfo.h
templatefuncs.h
version.cpp
version.h
types
admin.dsw
admin.mak
dirs
bh
clnetcfg
clusapi
clusdisk
clusexts
clusnet
clusrtl
clussprt
ext
inc
mgmt
resdll
resmon
service
setup
test
timeserv
utils
wmiprovider
wml
clusternet.lmhosts
clusternet.txt
coffbase.txt
dirs
ipaddr.txt
join.txt
makefil0
placefil.txt
sources.inc
cmd
crts
ddk
dload
dloadhandler
efiutil
eventlog
firmware
fs
fsrec
hals
headless
inc
mspatch
mvdm
ntdll
ntdllsym
ntos
ntsetup
pnp
published
qfe
remoteboot
screg
seaudit
strsafe
stublibs
subsys
testlockout
tools
urtl
wdmdrv
wdmlib
win32
wmi
wow64
xip
zlib
dirs
prerelease.inc
project.mk
com
developer
drivers
ds
enduser
inetcore
inetsrv
loc
mergedcomponents
multimedia
net
printscan
public
published
sdktools
shell
termsrv
tools
windows
dirs
makefil0
71 lines
2.0 KiB
HTML
71 lines
2.0 KiB
HTML
<HTML>
|
|
<HEAD>
|
|
|
|
<style>
|
|
<!-- body { font-family: Verdana, Arial; font-size: 75%; }
|
|
p.cluster { margin-top: 1em; margin-bottom: 0em; margin-left: 0em; }
|
|
p.resource { margin-top: 1em; margin-bottom: 0em; margin-left: 5em; }
|
|
p.proptype { margin-top: 0em; margin-bottom: 0em; margin-left: 10em; }
|
|
p.property { margin-top: 0em; margin-bottom: 0em; margin-left: 15em; } -->
|
|
</style>
|
|
|
|
<TITLE> Node Properties</TITLE>
|
|
|
|
<SCRIPT LANGUAGE="VBSCRIPT">
|
|
<!--
|
|
|
|
Option Explicit
|
|
|
|
Dim oCluster
|
|
Dim oProps
|
|
Dim sCluster
|
|
Dim oRes
|
|
Dim oProp
|
|
|
|
Set oCluster = CreateObject("MSCluster.Cluster")
|
|
sCluster = InputBox("Cluster to open?", "GALENB-CLUS")
|
|
oCluster.Open( sCluster )
|
|
|
|
Document.Write "<B><p class=cluster>Cluster name is " & oCluster.Name & "<BR></B>"
|
|
|
|
for each oRes in oCluster.Resources
|
|
Document.Write "<B><p class=resource>Resource name is " & oRes.Name & "<BR></B>"
|
|
|
|
Document.Write "<BR><p class=proptype>Common Properties<BR><BR>"
|
|
Set oProps = oRes.CommonProperties
|
|
for each oProp in oProps
|
|
Document.Write "<p class=property>" & oProp.Name & " = " & oProp.Value & "<BR>"
|
|
next
|
|
|
|
Document.Write "<BR><p class=proptype>Common RO Properties<BR><BR>"
|
|
Set oProps = oRes.CommonROProperties
|
|
for each oProp in oProps
|
|
Document.Write "<p class=property>" & oProp.Name & " = " & oProp.Value & "<BR>"
|
|
next
|
|
|
|
Document.Write "<BR><p class=proptype>Private Properties<BR><BR>"
|
|
for each oProp in oRes.PrivateProperties
|
|
if oProp.Format <> 1 then
|
|
Document.Write "<p class=property>" & oProp.Name & " = " & oProp.Value & "<BR>"
|
|
end if
|
|
next
|
|
|
|
Document.Write "<BR><p class=proptype>Private RO Properties<BR><BR>"
|
|
for each oProp in oRes.PrivateROProperties
|
|
if oProp.Format <> 1 then
|
|
Document.Write "<p class=property>" & oProp.Name & " = " & oProp.Value & "<BR>"
|
|
end if
|
|
next
|
|
next
|
|
|
|
-->
|
|
</SCRIPT>
|
|
</HEAD>
|
|
|
|
<BODY>
|
|
|
|
</BODY>
|
|
|
|
</HTML>
|
|
|