Thank you for being a valued part of the CNET community. As of December 1, 2020, the forums are in read-only format. In early 2021, CNET Forums will no longer be available. We are grateful for the participation and advice you have provided to one another over the years.

Thanks,

CNET Support

General discussion

Windows Logon Script Problem

Mar 22, 2005 3:43AM PST

I'm having difficulty getting the below script to work correctly as a GPO Login Script. Can anyone take a look at the script and tell me what I'm overlooking. The error that I am getting says that Line 10 Character 62 is not terminated correctly. I'm pretty sure that I am overlooking something simple. Thanks everyone in advance.

Option Explicit
Dim oNet, sUserName, sUserDomain, oAcct, sGroup, GroupObj
Set oNet = CreateObject("WScript.Network")
sUserName = oNet.UserName
sUserDomain = oNet.UserDomain
Set oAcct = GetObject("WinNT://" & sUserDomain & "/" & sUserName)
For Each GroupObj In oAcct.Groups
Select Case GroupObj.Name
Case "Administration"
oNet.MapNetworkDrive "H:", "\\Jupiter\DATA\Administration?
Case "Public Health"
oNet.MapNetworkDrive "I:", "\\Jupiter\DATA\Public Health?
Case "Environmental Health"
oNet.MapNetworkDrive "J:", "\\Jupiter\DATA\Environmental Health?
Case "Tobacco Education"
oNet.MapNetworkDrive "K:", "\\Jupiter\DATA\Tobacco Education?
Case "Social Services"
oNet.MapNetworkDrive "L:", "\\Jupiter\DATA\Social Services?
Case "Clerical Support"
oNet.MapNetworkDrive "M:", "\\Jupiter\DATA\Clerical Support?
Case "Cal-Works"
oNet.MapNetworkDrive "N:", "\\Jupiter\DATA\Cal-Works?
Case "AFDC"
oNet.MapNetworkDrive "O:", "\\Jupiter\DATA\AFDC?
Case "Public Authority"
oNet.MapNetworkDrive "P:", "\\Jupiter\DATA\Public Authority?
Case "Access to Software Depot"
oNet.MapNetworkDrive "S:", "\\Jupiter\DATA\Software Depot?
Case Else
WScript.Echo ?No network resources are assigned? _
& ?to your username.?
WScript.Quit
End Select

Next

Discussion is locked