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.