VbScript Classes

How to create class and constructor using VBScript

Class sampleClass
Private str


REM Methods declared as private wont be shown after Class Object
Private sub Class_Initialize()
msgbox("I am constructor")
End Sub

REM Methods declared as private wont be shown after Class Object
Private sub Class_Terminate()
msgbox("I am destructor")
End Sub




REM Methods declared as Public are shown after Class Object
Public function setString(strVar)
str=strVar
End Function




REM Methods declared as Public are shown after Class Object
Public function getString()
getString=str
End Function
End Class

Set strObj= New sampleClass
strObj.setString("day")
temp=strObj.getString
msgbox(temp)