64 lines
1.6 KiB
Plaintext
64 lines
1.6 KiB
Plaintext
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( )
|
|
|