VBScript, hjelp med feilsøking.

[Askeland]

Hei.

 

Jeg har nå klart å smelle sammen et VBScript. Påloggings script til Windows 2003 server.

 

Men får ikke denne her helt til å fungere:

'### Gruppe Ledelse ### (Mapper opp fellesområde for medlemene av gruppa Ledelse)
'-- Hvis inneholder gruppe Ledelse ---
If List = "Ledelse" Then

'-- Mapper opp område ---
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "Z:" , "\\srv01\ledelse"
'(Alle brukerområder)
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "U:" , "\\srv01\home$"

End If

 

-->

Problemet her er at den bare mapper opp det ene sharet (home$), er det noen som kan se noe feil her? Jeg er alt annet enn noen ekspert, men dette har fungert greit ellers. Og jeg tror kanskje at det har noe med at jeg prøver å gjøre samme operasjon 2 ganger..

[marw_the_big_headed_rhino]

Setter du ikke samme objekt først til å mappe ledelse, og siden til å mappe opp homes?

 

Vil du ikke da overskrive ledelse med homes?

 

Har aldri programmert i vbscript, men det hørtes logisk ut for meg.

[Askeland]

Setter du ikke samme objekt først til å mappe ledelse, og siden til å mappe opp homes?

 

Vil du ikke da overskrive ledelse med homes?

 

Har aldri programmert i vbscript, men det hørtes logisk ut for meg.

8848978[/snapback]

 

Jo, det er godt mulig, jeg har ikke noe peiling på dette i det hele tatt.

 

Og det høres ganske logisk ut for meg.

 

Men spørsmålet her er vel hvordan få opp begge mappene?

[Askeland]

Jeg fant feilen nå.

 

Det var en stor L i ledelse som gjorde att det ikke virket.

 

Takk for hjelp.

[marw_the_big_headed_rhino]

Flott!

[aadnk]

Problemet er jo riktignok løst nå, men jeg tillater meg å nevne at det ikke er nødvendig å skape (i CreateObject) nettverkobjektet objNetwork flere ganger. En lager den kun for å få tilgang til metoden MapNetworkDrive, og da denne heller ikke på noen måte endrer objektet modus, kan den fint kalles flere ganger uten problemer.

 

Hva strengsammenlikning angår, kan det være lurt å slenge på en LCase (konverterer en tekst til små bokstaver) dersom du ønsker å se bort ifra forskjellen på små og store bokstaver:

If LCase(List) = "ledelse" Then

[marw_the_big_headed_rhino]

Du har selfølgelig helt rett. Måtte se litt på koden først :-)