Zonqui
#0
Hej alle! Jeg har brug for lidt hjælp til at få mit VBscript til at virke.
Jeg får ingen fejl og mit Echo "Virk nu" kommer da også frem, men jeg får ikke mappet drevene. Jeg har self tjekket sti, servernavn og grupper.
'=========================================================================
' VBScript Source File -- Created with XLnow OnScript
'
' AUTHOR: Morten Wenck
' COMPANY:
' DATE: 25-04-2007
' COMMENT:
'=========================================================================
Option Explicit
Dim objNetwork, objUser, CurrentUser
Dim strGroup
Const GG_script_brondby = "cn=brondby"
Const GG_script_kalundborg = "cn=kalundborg"
Set objNetwork = CreateObject("WScript.Network")
Set objUser = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & objUser.Username)
strGroup = Lcase(Join(CurrentUser.MemberOf))
If Instr(strGroup, GG_script_brondby) Then
WScript.Echo " brondby "
objNetwork.MapNetworkDrive "I:", "\\dkflxf003\departments" _
& objNetwork.UserName
ElseIf Instr (strGroup, GG_script_kalundborg) Then
WScript.Echo " kalundborg "
objNetwork.MapNetworkDrive "I:", "\\dkflxf004\departments" _
& objNetwork.UserName
End If
Wscript.Echo "Virk nu!"
WScript.Quit
'End of example VBScript.
På forhånd tak!
Mvh Morten
Jeg får ingen fejl og mit Echo "Virk nu" kommer da også frem, men jeg får ikke mappet drevene. Jeg har self tjekket sti, servernavn og grupper.
'=========================================================================
' VBScript Source File -- Created with XLnow OnScript
'
' AUTHOR: Morten Wenck
' COMPANY:
' DATE: 25-04-2007
' COMMENT:
'=========================================================================
Option Explicit
Dim objNetwork, objUser, CurrentUser
Dim strGroup
Const GG_script_brondby = "cn=brondby"
Const GG_script_kalundborg = "cn=kalundborg"
Set objNetwork = CreateObject("WScript.Network")
Set objUser = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & objUser.Username)
strGroup = Lcase(Join(CurrentUser.MemberOf))
If Instr(strGroup, GG_script_brondby) Then
WScript.Echo " brondby "
objNetwork.MapNetworkDrive "I:", "\\dkflxf003\departments" _
& objNetwork.UserName
ElseIf Instr (strGroup, GG_script_kalundborg) Then
WScript.Echo " kalundborg "
objNetwork.MapNetworkDrive "I:", "\\dkflxf004\departments" _
& objNetwork.UserName
End If
Wscript.Echo "Virk nu!"
WScript.Quit
'End of example VBScript.
På forhånd tak!
Mvh Morten
#1
Umiddelbart ser det rigtigt nok ud. Hvilken domain controller og OS bruger du?
#2
Og prøv lige at rette de to linjer med en \ efter den komplette sti til netværket:
Eks:
objNetwork.MapNetworkDrive "I:", "\\dkflxf003\departments<b>\"</b>
[edit] Selvom det nok ikke betyder noget i sidste ende.
Eks:
objNetwork.MapNetworkDrive "I:", "\\dkflxf003\departments<b>\"</b>
[edit] Selvom det nok ikke betyder noget i sidste ende.
#3
#1 Kører med Server 2003 og min DC er blå - Hvad mener du med hvilken DC? :)
#2 Har prøvet både med \ og med $ som vi kender det fra alm mapning af drev, men uden held :l
#2 Har prøvet både med \ og med $ som vi kender det fra alm mapning af drev, men uden held :l
#4
#3 Det var nu også vigtigere at vide hvilket OS det var at jeg spurgte til DC. Kunne godt være det var noget gammelt NT eller noget, for så ville scriptet ikke fungere, men så havde du nok også fået fejl.
Får du udskrevet enten "brondby" eller "kalundborg", som står i dine IF-statements?
[edit] Du kunne prøve at udskrive strGroup til sidst for at checke værdien af denne.
Får du udskrevet enten "brondby" eller "kalundborg", som står i dine IF-statements?
[edit] Du kunne prøve at udskrive strGroup til sidst for at checke værdien af denne.
#5
#4 Ah okay :) Nej, det kører som sagt på Server 2003.
Nej, får ingen af mine statements udskrevet, hvilket jeg også har undret mig lidt over... Nogen bud på hvorfor?
Nej, får ingen af mine statements udskrevet, hvilket jeg også har undret mig lidt over... Nogen bud på hvorfor?
#6
Hvis den ikke udskriver det, så er det fordi den slet ikke kommer ind i de statements og også derfor at drevene ikke bliver mappet. Som jeg rettede i posten ovenfor, så prøv at checke værdien af strGroup for at se om den ikke er forskellig fra brondby og kalundborg.
#7
Mit script ser ud som vist i #0.
Og har aldrig lavet det her før idag, så må erkende jeg er blank ;) Så pls forklar hvordan du mener pls :r
Og har aldrig lavet det her før idag, så må erkende jeg er blank ;) Så pls forklar hvordan du mener pls :r
#8
End If
Wscript.Echo "Virk nu!"
Wscript.Echo "strGroup = " & strGroup
WScript.Quit
Enten er den tom eller også har den en anden værdi end de to byer.
Wscript.Echo "Virk nu!"
Wscript.Echo "strGroup = " & strGroup
WScript.Quit
Enten er den tom eller også har den en anden værdi end de to byer.
#9
#8 Jeg forsøgte at indsætte den kode du har tilføjet, men så får jeg følgende fejl.
'=========================================================================
' VBScript Source File -- Created with XLnow OnScript
'
' AUTHOR: Morten Wenck
' COMPANY:
' DATE: 25-04-2007
' COMMENT:
'=========================================================================
Option Explicit
Dim objNetwork, objUser, CurrentUser
Dim strGroup
Const GG_script_brondby = "cn=brondby"
Const GG_script_kalundborg = "cn=kalundborg"
Set objNetwork = CreateObject("WScript.Network")
Set objUser = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & objUser.Username)
strGroup = Lcase(Join(CurrentUser.MemberOf))
If Instr(strGroup, GG_script_brondby) Then
WScript.Echo "brondby"
objNetwork.MapNetworkDrive "I:", "\\dkflxf003\departments" _
& objNetwork.UserName
ElseIf (strGroup??, GG_script_kalundborg) Then
WScript.Echo "kalundborg"
objNetwork.MapNetworkDrive "I:", "\\dkflxf004\departments" _
& objNetwork.UserName
End If
Wscript.Echo "Virk nu!"
Wscript.Echo "strGroup = " & strGroup
WScript.Quit
Line 28
Char 17
Error ')'
Code 800A01EE
Line 28, char 17 er der hvor jeg har indsat to ?? i koden ovenfor.
'=========================================================================
' VBScript Source File -- Created with XLnow OnScript
'
' AUTHOR: Morten Wenck
' COMPANY:
' DATE: 25-04-2007
' COMMENT:
'=========================================================================
Option Explicit
Dim objNetwork, objUser, CurrentUser
Dim strGroup
Const GG_script_brondby = "cn=brondby"
Const GG_script_kalundborg = "cn=kalundborg"
Set objNetwork = CreateObject("WScript.Network")
Set objUser = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & objUser.Username)
strGroup = Lcase(Join(CurrentUser.MemberOf))
If Instr(strGroup, GG_script_brondby) Then
WScript.Echo "brondby"
objNetwork.MapNetworkDrive "I:", "\\dkflxf003\departments" _
& objNetwork.UserName
ElseIf (strGroup??, GG_script_kalundborg) Then
WScript.Echo "kalundborg"
objNetwork.MapNetworkDrive "I:", "\\dkflxf004\departments" _
& objNetwork.UserName
End If
Wscript.Echo "Virk nu!"
Wscript.Echo "strGroup = " & strGroup
WScript.Quit
Line 28
Char 17
Error ')'
Code 800A01EE
Line 28, char 17 er der hvor jeg har indsat to ?? i koden ovenfor.
#10
#9 WTF? :D
Det skal sgu ikke lave fejl pga. det og da slet ikke et andet sted i koden!
Prøv at flytte den linje der udskriver strGroup længere op i koden, så du måske kan få den ud før en evt. fejl. F.eks. lige efter denne linje: strGroup = Lcase(Join(CurrentUser.MemberOf))
Det skal sgu ikke lave fejl pga. det og da slet ikke et andet sted i koden!
Prøv at flytte den linje der udskriver strGroup længere op i koden, så du måske kan få den ud før en evt. fejl. F.eks. lige efter denne linje: strGroup = Lcase(Join(CurrentUser.MemberOf))
#11
Same story.... Får stadig samme fejl som beskrevet i #9
Hvis jeg fjerner den kode der udskriver strGroup får jeg stadig samme fejl som #9. Hmm forstår jeg ikke... der er intet ændret i scriptet i forhold til #0 :S
Hvis jeg fjerner den kode der udskriver strGroup får jeg stadig samme fejl som #9. Hmm forstår jeg ikke... der er intet ændret i scriptet i forhold til #0 :S
#12
Hvis det er nemmere og du gider, kan jeg fanges på msn på zonqui at hotmail dot com
#13
Okay fandt en pinlig fejl hehe. Havde glemt Instr i den linje den fejlede i :r
Den fejl jeg får nu uden at udskrive strGroup, er som følger:
Line 21
Char 1
Error Type mismatch 'join'
code 800A000D
Den linje er: strGroup = Lcase(Join(CurrentUser.MemberOf))
Den fejl jeg får nu uden at udskrive strGroup, er som følger:
Line 21
Char 1
Error Type mismatch 'join'
code 800A000D
Den linje er: strGroup = Lcase(Join(CurrentUser.MemberOf))
#14
Det var godt.
Bare for at være på den sikre side, så kører du med en administratorbruger på maskinen ikke?
Bare for at være på den sikre side, så kører du med en administratorbruger på maskinen ikke?
#15
Ja, jeg kører med en bruger som er domain admin, administrator og hvad man ellers kan være.
Men den kan tilsyneladende ikke finde ud af den Join jeg har lavet... :l
Men den kan tilsyneladende ikke finde ud af den Join jeg har lavet... :l
#16
Det er muligvis pga. antallet af CurrentUser.MemberOf - altså hvis den indeholder flere værdier, er tom osv.
Prøv at se følgende side:
http://www.rlmueller.net/Membe...
Der er masser af eksempler på, hvordan det checkes osv.
Prøv at se følgende side:
http://www.rlmueller.net/Membe...
Der er masser af eksempler på, hvordan det checkes osv.
#17
Okay, jeg forsøger at kigge på det link du har sendt. Tak for hjælpen so far :)
#18
Hmm jeg må nok konstatere jeg er for dum :00 ;)
Vi er enige om, at dette scripts funktion er, at mappe drev-y hvis man er medlem af GG_script_kalundborg og drev-x hvis man er medlem af GG_script_brondby ?!
Vi er enige om, at dette scripts funktion er, at mappe drev-y hvis man er medlem af GG_script_kalundborg og drev-x hvis man er medlem af GG_script_brondby ?!