FolderDiscovery.vbs

I want to run the below mentioned script manually on a host machine to fix the issue with folder monitoring on one of the issue. But getting the "Expected end of the statement error"

Appreciate help on this.

' NAME: FolderDiscovery.vbs
'
' AUTHOR: Jaime Correia
'
' COMMENT: Custom DataSource Script for the Folder Discovery (Opsmgr 2007)
'
'==========================================================================

Option Explicit

Dim oArgs
Dim FolderPath, TargetComputer, TargetComputerID, SourceID, ManagedEntityId
Dim oFSO, oDiscoveryData, oInst
Dim oFolder, subFolder
Dim oAPI
Dim ScriptName, ENU_MESSAGE

Const EVENT_TYPE_ERROR          = 1
Const EVENT_TYPE_WARNING        = 2
Const EVENT_TYPE_SUCCESS        = 4

Set oArgs = WScript.Arguments
Set oAPI = CreateObject("MOM.ScriptAPI")

'Arguments to run the script
SourceId = oArgs(0)
ManagedEntityId = oArgs(1)
TargetComputer = oArgs(2)
TargetComputerID = oArgs(3)
FolderPath = oArgs(4)

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(FolderPath)

If Err.Number = 0 Then

 'Events for success
 ScriptName = "ScriptName = FolderDiscovery.vbs"
 ENU_MESSAGE = vbCr & "FolderPath: " & FolderPath & " *** This Folder is a share and it's discovered  with all is subfolders ***"
 CAll oAPI.LogScriptEvent (ScriptName, 10605, EVENT_TYPE_SUCCESS ,ENU_Message)

 Set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceID, ManagedEntityId)
 GetInfo(oFolder)
Else
 'Events for failure
 ScriptName = "ScriptName = FolderDiscovery.vbs"
 ENU_MESSAGE = vbCr & "FolderPath: " & FolderPath & " was not discovered" & vbCr & _
  "Error Description: " & Err.Description & vbCr & "Error Number: " & Err.Number
 CAll oAPI.LogScriptEvent (ScriptName, 10610, EVENT_TYPE_WARNING ,ENU_Message)
End If 

Sub GetInfo(ByVal oFolder)
 For Each subFolder In oFolder.SubFolders
  GetInfo(subFolder)
 Next
  Call main(oFolder)
End Sub

Sub main(ByVal oFolder)

 'Test string to test the script
 '***************
 'WScript.Echo "FolderName: " & oFolder.Name & " ----- " & "FolderPath: " & oFolder.Path
 '***************
  
 'Creating instance 
  Set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Windows.Monitoring.FileSystem.Folder']$")
 ' Define the property values of the class.
  With oInst
       .AddProperty "$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", targetComputerID
       .AddProperty "$MPElement[Name='Windows.Monitoring.FileSystem.Folder']/Name$", oFolder.Name
       .AddProperty "$MPElement[Name='Windows.Monitoring.FileSystem.Folder']/Path$", oFolder.Path
       .AddProperty "$MPElement[Name='Windows.Monitoring.FileSystem.Folder']/Drive$", oFolder.Drive
       .AddProperty "$MPElement[Name='Windows.Monitoring.FileSystem.Folder']/Size$", formatnumber(oFolder.Size/1024)
       .AddProperty "$MPElement[Name='Windows.Monitoring.FileSystem.Folder']/DateCreated$", oFolder.DateCreated
       .AddProperty "$MPElement[Name='Windows.Monitoring.FileSystem.Folder']/DateAccessed$", oFolder.DateLastAccessed
       .AddProperty "$MPElement[Name='Windows.Monitoring.FileSystem.Folder']/DateModified$", oFolder.DateLastModified
       .AddProperty "$MPElement[Name='System!System.Entity']/DisplayName$", oFolder.Path
      End With
     ' Discover the application's components.
 Call oDiscoveryData.AddInstance(oInst)   
End Sub
'Returning data to Opsmgr
Call oAPI.Return(oDiscoveryData)