windows-server-2003/base/cluster/resdll/genscript/test/test.scr

Sub Open( )
    Resource.LogInformation "Enter Open( )"
    Resource.LogInformation "Exit Open( )"
End Sub

Function Close( )
    Resource.LogInformation "Enter Close( )"
    Resource.LogInformation "Exit Close( )"
End Function

Function Online( )
    Resource.LogInformation "Enter Online( )"
    Resource.LogInformation "Exit Online( )"
End Function

Function Offline( )
    Resource.LogInformation "Enter Offline( )"
    Resource.LogInformation "Exit Offline( )"
End Function

Function Terminate( )
    Resource.LogInformation "Enter Terminate( )"
    Resource.LogInformation "Exit Terminate( )"
End Function

Function LooksAlive( )
    Dim randomnumber
    Dim FoobarText
    Dim dwordvalue
    Dim ClusterDir

    Resource.LogInformation "Enter LooksAlive( )"
    randomnumber = Int( 100 * Rnd )
    if randomnumber < 50 then 
        LooksAlive = True
        Resource.LogInformation "Returing True"
    Else
        LooksAlive = False
        Resource.LogInformation "Returning False"
    End If

    FoobarText = Resource.Foobar
    dwordvalue = Resource.DwordValue
    ClusterDir = Resource.ExpandedString
    String1 = Resource.MultiSZ(0)
    String2 = Resource.MultiSZ(1)
    String3 = Resource.MultiSZ(2)
    
    Resource.LogInformation "Foobar Property: " & FoobarText
    Resource.LogInformation "DwordValue Property: " & dwordvalue
    Resource.LogInformation "ExpandedString Property: " & ClusterDir

    Resource.LogInformation "Exit LooksAlive( )"
End Function

Function IsAlive( )
    Resource.LogInformation "Enter IsAlive( )"
    IsAlive = True
    Resource.LogInformation "Exit IsAlive( )"
End Function

Open( )