[NewDayComing]

Hi, my network keeps experiencing this error when any of the computers connect to the network. I cannot identify the issue in the VB script that runs at start-up. I'd greatly appreciate it if someone could offer some assistance and insight. The error typically points to line 36, character 3. Thanks.

The code:

Option Explicit
Dim objNetwork, objUser, CurrentUser
Dim strGroup

' Initialise Groups with Const
Const Users_Group = "cn=RSCC"
Const Administrators_Group = "cn=Domain Admins"
Const Finance_Group = "cn=Accounting"
Const Leadership_Group = "cn=Leadership"
Const Scan2Disk_Group = "cn=Scan2Disk"
Const Membership_Group = "cn=Member Services"
CONST Tech_Group = "cn=Technical Services"

' Create objects and extract strGroup values
Set objNetwork = CreateObject("WScript.Network")
Set objUser = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & objUser.UserName)
strGroup = LCase(Join(CurrentUser.MemberOf))

'-----------
'---ED---
'-----------
' If logic testing strGroup for the values in Const groups
If InStr(strGroup, lcase(Users_Group)) Then
On Error Resume Next
objNetwork.MapNetworkDrive "i:", "\\rscc-server01\Scan2Disk\" & objNetwork.UserName
If (Err.Number<>0) Then
On Error GoTo 0
objNetwork.RemoveNetworkDrive "I:"
objNetwork.MapNetworkDrive "i:", "\\rscc-server01\Scan2Disk\" & objNetwork.UserName
End If
On Error GoTo 0
On Error Resume Next
objNetwork.MapNetworkDrive "s:", "\\rscc-server01\Shared"
If (Err.Number<>0) Then
On Error GoTo 0
objNetwork.RemoveNetworkDrive "S:"
objNetwork.MapNetworkDrive "s:", "\\rscc-server01\Shared"
End If
On Error GoTo 0
On Error Resume Next
objNetwork.MapNetworkDrive "v:", "\\rscc-server01\Vcware"
If (Err.Number<>0) Then
On Error GoTo 0
objNetwork.RemoveNetworkDrive "V:"
objNetwork.MapNetworkDrive "v:", "\\rscc-server01\Vcware"
End If
On Error GoTo 0
On Error Resume Next
objNetwork.MapNetworkDrive "k:", "\\rscc-server01\SVServer"
If (Err.Number<>0) Then
On Error GoTo 0
objNetwork.RemoveNetworkDrive "k:"
objNetwork.MapNetworkDrive "k:", "\\rscc-server01\SVServer"
End If
On Error GoTo 0

On Error Resume Next
'--Add Printer Connections
objNetwork.AddWindowsPrinterConnection "\\rscc-server01\Cannon Image Runner"
objNetwork.AddWindowsPrinterConnection "\\rscc-server01\HP LaserJet 4240"
On Error GoTo 0
End If

'-------------------
'---DOMAIN ADMINS---
'-------------------
If InStr(strGroup, lcase(Administrators_Group)) Then
On Error Resume Next
objNetwork.MapNetworkDrive "t:", "\\rscc-server01\Technical Services"
If (Err.Number<>0) Then
On Error GoTo 0
objNetwork.RemoveNetworkDrive "T:"
objNetwork.MapNetworkDrive "t:", "\\rscc-server01\Technical Services"
End If
On Error GoTo 0
End If

'-------------
'---F---
'-------------
If InStr(strGroup, lcase(Finance_Group)) Then
On Error Resume Next
objNetwork.MapNetworkDrive "p:", "\\rscc-server01\database"
If (Err.Number<>0) Then
On Error GoTo 0
objNetwork.RemoveNetworkDrive "P:"
objNetwork.MapNetworkDrive "p:", "\\rscc-server01\database"
End If
On Error GoTo 0
On Error Resume Next
objNetwork.MapNetworkDrive "t:", "\\rscc-server01\accounting"
If (Err.Number<>0) Then
On Error GoTo 0
objNetwork.RemoveNetworkDrive "T:"
objNetwork.MapNetworkDrive "t:", "\\rscc-server01\accounting"
End If
On Error GoTo 0
End If

'-------------
'---E---
'-------------
If InStr(strGroup, lcase(Finance_Group)) Then
On Error Resume Next
objNetwork.MapNetworkDrive "p:", "\\rscc-server01\database"
If (Err.Number<>0) Then
On Error GoTo 0
objNetwork.RemoveNetworkDrive "P:"
objNetwork.MapNetworkDrive "p:", "\\rscc-server01\database"
End If
On Error GoTo 0
On Error Resume Next
objNetwork.MapNetworkDrive "t:", "\\rscc-server01\accounting"
If (Err.Number<>0) Then
On Error GoTo 0
objNetwork.RemoveNetworkDrive "T:"
objNetwork.MapNetworkDrive "t:", "\\rscc-server01\accounting"
End If
On Error GoTo 0
On Error Resume Next
objNetwork.MapNetworkDrive "x:", "\\rscc-server01\executive"
If (Err.Number<>0) Then
On Error GoTo 0
objNetwork.RemoveNetworkDrive "X:"
objNetwork.MapNetworkDrive "x:", "\\rscc-server01\executive"
End If
On Error GoTo 0
End If

'----------------
'---L---
'----------------
If InStr(strGroup, lcase(Finance_Group)) Then
On Error Resume Next
objNetwork.MapNetworkDrive "l:", "\\rscc-server01\LRS"
If (Err.Number<>0) Then
On Error GoTo 0
objNetwork.RemoveNetworkDrive "L:"
objNetwork.MapNetworkDrive "l:", "\\rscc-server01\LRS"
End If
On Error GoTo 0
End If

'------------------------
'---T---
'------------------------
If InStr(strGroup, lcase(Tech_Group)) Then
On Error Resume Next
objNetwork.MapNetworkDrive "t:", "\\rscc-server01\Technical Services"
If (Err.Number<>0) Then
On Error GoTo 0
objNetwork.RemoveNetworkDrive "T:"
objNetwork.MapNetworkDrive "t:", "\\rscc-server01\Technical Services"
End If
On Error GoTo 0
End If


' Wscript.Echo "Finished mapping Groups - check drives "
WScript.Quit