Trenger hjelp med syntaksfeil i VBScript

[Etyz]

Hei. Sitter med en oppgave her, og skal lage et VBscript som logon script til serveren min.

Dere har kanskje ikke noen kunnskap om logon script, men jeg får feilmelding når jeg kjører skriptet mitt. Jeg vil legge til at dette er første gang jeg har prøvd meg på dette.

 

Feilmelding jeg får er:

Linje: 5

Tegn: 48

Feil: Syntaksfeil

Kode: 800A03EA

 

Jeg har forstått det med linjene og tegnene, men jeg vet ikke hva som er feil. Tror det har noe med

 

("LDAP://mnstest4" &

ADSysInfo.UserName)

 

Og gjøre

 

Const ADMIN_GROUP = "cn=ADMIN"

Const PROD_GROUP = "cn=PROD"

 

Set ADSysInfo = CreateObject("ADSystemInfo")

Set CurrentUser = GetObject("LDAP://mnstest4" &

ADSysInfo.UserName)

strGroups = LCase(Join(CurrentUser.MemberOf))

 

If InStr(strGroups, ADMIN_GROUP) Then

 

wshNetwork.MapNetworkDrive "g:",

"\\mnstest4\Felles-A\"

 

ElseIf InStr(strGroups, PROD_GROUP) Then

 

wshNetwork.MapNetworkDrive "g:",

"\\mnstest4\Felles-B\"

 

End If

[GeirGrusom]

Vennligst post koden i code tags, da blir det enklere å se hva som er kode. Hvis det er to linjer der med vilje, så er det feil.

[brgr]

Const ADMIN_GROUP = "cn=ADMIN"
Const PROD_GROUP = "cn=PROD"

Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://mnstest4" & _
ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))

If InStr(strGroups, ADMIN_GROUP) Then

wshNetwork.MapNetworkDrive "g:", _
"\\mnstest4\Felles-A\"

ElseIf InStr(strGroups, PROD_GROUP) Then

wshNetwork.MapNetworkDrive "g:", _
"\\mnstest4\Felles-B\"

End If 

 

Når du vil dele en linje over flere linjer så MÅ du ha underscore (_) med for att den skal godta det.

Endret 12. mars 2010 av brgr