Syntax error 800a03ea in vbscript for sub function

[Yamikp]

I'm running Logon Script and it is in VBScript.
when I'm calling Sub function it givving me this error

If InStr(strGroups, ADFS1_GROUP) Then
 
   MapDrive "G:", "\\xxx-xxx-ADFS-1\GROUP"
 
Else
 
  MapDrive "H:", "\\xxx-xx-ADFS\HOME"
 
End If
Sub MapDrive(strDrive, strShare)
 
      On Error Resume Next
      WSHNetwork.MapNetworkDrive strDrive, strShare
      strMappedDrives = strMappedDrives & strDrive & " "
      ie.document.all.Msg2.InnerText = strMappedDrives
 
End Sub 

So at the starting point of "Sub" it will give me error: " Char:1 Error:Syntax error Code:800A03EA Source: Microsoft VBScript compilatiopn error "

Can anyone tell me what I'm doing wrong here?Please.

[Killer42]

Unless what you've posted here has been chopped up for demonstration purposes, you have Sub in the middle of your code. Pretty sure that's a no-no.

Probably whatever is before that Sub needs to be closed. That is, you're probably missing and End Sub, End Function or something.

[FHardison]

Hey Yamikp, Usually when I get these errors it's because I have missed a Else, End If or a End Sub line. If it were me? I'd change just a couple of things and make it work old school...


If InStr(strGroups, ADFS1_GROUP) Then

strDrive = "G:"
strShare = "\\xxx-xxx-ADFS-1\GROUP"

MapDrive

Else

strDrive = "H:"
strShare = "\\xxx-xx-ADFS\HOME"

MapDrive

End If

Sub MapDrive(strDrive, strShare)

On Error Resume Next
WSHNetwork.MapNetworkDrive strDrive, strShare
strMappedDrives = strMappedDrives & strDrive & " "
ie.document.all.Msg2.InnerText = strMappedDrives

End Sub


Let me know how it turns out.
- Frost