mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
30 lines
598 B
30 lines
598 B
Option Explicit
|
|
|
|
Main
|
|
|
|
Sub Main
|
|
On Error Resume Next
|
|
|
|
Dim oCluster
|
|
Dim oTestRes
|
|
Dim sCluster
|
|
|
|
Set oCluster = CreateObject("MSCluster.Cluster")
|
|
|
|
sCluster = InputBox( "Cluster to open?" )
|
|
oCluster.Open( sCluster )
|
|
|
|
Set oTestRes = oCluster.Resources.Item("Dummy")
|
|
|
|
oTestRes.Delete()
|
|
If Err.Number <> 0 Then
|
|
If Err.Number = 424 Then
|
|
MsgBox "Dummy resource does not exist!"
|
|
Else
|
|
MsgBox "Error return is " & Err.Number
|
|
End If
|
|
End If
|
|
' This will return "Invalid procedure call or argument" if the resource
|
|
' does not exist!
|
|
|
|
End Sub
|