1rem VBScript examples
2
3' Various constants of different types
4const someText = "some " & """text"""
5const someInt = 123
6const someHex = &h3110c0d3
7const someFloat = 123.45e-67
8const someDate = #1/2/2016#
9const someTime = #12:34:56 AM#
10const someBool = vbTrue  ' -1
11
12' Do some math.
13radius = 1.e2
14area = radius ^ 2 * 3.1315
15a = 17 : b = 23
16c = sqr(a ^2 + b ^ 2)
17
18' Write 10 files.
19For i = 1 to 10
20    createFile( i )
21Next
22
23Public Sub createFile(a)
24    Dim fso, TargetFile
25    TargetPath = "C:\some_" & a & ".tmp"
26    Set fso = CreateObject("Scripting.FileSystemObject")
27    Set TargetFile = fso.CreateTextFile(TargetPath)
28    TargetFile.WriteLine("Hello " & vbCrLf & "world!")
29    TargetFile.Close
30End Sub
31
32' Define a class with a property.
33Class Customer
34    Private m_CustomerName
35
36    Private Sub Class_Initialize
37        m_CustomerName = ""
38    End Sub
39
40    ' CustomerName property.
41    Public Property Get CustomerName
42        CustomerName = m_CustomerName
43    End Property
44
45    Public Property Let CustomerName(custname)
46        m_CustomerName = custname
47    End Property
48End Class
49
50' Special constructs
51Option Explicit
52On Error Resume Next
53On Error Goto 0
54
55' Comment without terminating CR/LF.