Vbscripting with Classes

Classess in VB script

Class Customer

     Private m_CustomerName

     Private m_OrderCount

    

Private Sub Class_Initialize

     m_CustomerName = ""

     m_OrderCount = 0

End Sub

' CustomerName property.

Public Property Get CustomerName

      CustomerName = m_CustomerName

End Property

Public Property Let CustomerName(custname)

     m_CustomerName = custname

End Property

' OrderCount property (read only).

Public Property Get OrderCount

     OrderCount = m_OrderCount

End Property

' Methods.

Public Sub IncreaseOrders(valuetoincrease)

     m_OrderCount = m_OrderCount + valuetoincrease

End Sub

End Class

Dim c

Set c = New Customer

c.CustomerName = "Fabrikam, Inc."

MsgBox (c.CustomerName)

c.IncreaseOrders(5)

c.IncreaseOrders(3)

MsgBox (c.OrderCount)

Property in Class

Class User

' declare private class variable

     Private m_userName

     Private m_Test

' declare the property

Public Property Get UserName

     UserName = m_userName

End Property

Public Property Let UserName (strUserName)

     m_userName = strUserName

End Property

Public Property Get Test

     Test = m_Test

End Property

Public Property Let Test (sTest)

     m_Test = srTest

End Property

' declare and define the method

Sub DisplayUserName

     WScript.Echo UserName

     WScript.Echo Test

End Sub

End Class

Dim objUser

Set objUser = New User

' set the UserName property

objUser.UserName = "The Guru"

objUser.Test = "Test value"

' call the DisplayUserName method to print the user name

objUser.DisplayUserName

Shared Class

Class Test

     Public InstanceValue As String

     Public Shared SharedValue As String

Public Shared

Sub ShareMethod()

     MsgBox("This is a shared method.")

End Sub

End Class

Sub TestShared()

     Dim Shared1 As New Test() ' Create an instance of the class.

     Dim Shared2 As New Test() ' Create an instance of the class.

     Shared1.SharedValue = "Share Value 1" ' Set the value of a shared field.

     Shared2.SharedValue = "Share Value 2" ' Overwrite the first value.

     MsgBox("The value of the shared field in the first instance" & _

      "is: " & Shared1.SharedValue)

     MsgBox("The value of the shared field in the second instance" & _

      is: " & Shared2.SharedValue)

'    Call a method on the class without creating an instance.

     Test.ShareMethod()

End Sub

Object Drive using Class

Dim filesys

set filesys = CreateObject("Scripting.FileSystemObject")

Set drv = filesys.GetDrive("e")

select case drv.DriveType

     Case 0: drtype = "Unknown"

     Case 1: drtype = "Removable"

     Case 2: drtype = "Fixed"

     Case 3: drtype = "Network"

     Case 4: drtype = "CD-ROM"

    Case 5: drtype = "RAM Disk"

End Select

WScript.Echo "The specified drive is a " & drtype & " type disk."

WScript.Echo " "

WScript.Echo "Total size is " & drv.TotalSize & ". "

WScript.Echo "Available space is " & drv.AvailableSpace & ". "

WScript.Echo "Type is " & drv.DriveType & " "

WScript.Echo "Path is " & drv.Path & " "

Dim filesyst, drive

Set filesyst = CreateObject("Scripting.FileSystemObject")

WScript.Echo "Before Condtion"

drive = filesyst.DriveExists("z")

WScript.Echo drive

If filesyst.DriveExists("z") Then

     WScript.Echo("The specified drive does exist.")

Else

     WScript.Echo("The specified drive does not exist.")

End If

WScript.Echo "After Condtion"