A small sample of how to this with VBScript, enjoy!
Function DoStuff()
Dim what, result
what = Rand(1,4)
Select Case what
Case 1
result = Action1()
Case 2
result = Action2()
Case 3
result = Action3()
Case 4
result = Action4()
End Select
End Function
Function Rand(min, max)
max=4
min=1
Randomize
Rand = (Int((max-min+1)*Rnd+min))
End Function
Function Action1()
Action1 = "Result 1!"
End Function
Function Action2()
Action2 = "Result 2!"
End Function
Function Action3()
Action3 = "Result 3!"
End Function
Function Action4()
Action4 = "Result 4!"
End Function
Regards,
Manfred