netdrev som ikke helt virker efter planen

hvis du nu fjerner on error resume next hvad får du så af fejlmelding, hvis du da får nogen...

On Error Resume Next

Set Network = Wscript.CreateObject("Wscript.Network")
Set shell = WScript.CreateObject("WScript.Shell")
StrDomain = Network.UserDomain
StrBruger = Network.Username

Set StrGruppe = GetObject("WinNT://" & StrDomain & "/" & StrMedlem) <----- burde det ikke være StrBruger ?????
If StrGruppe.isMember("WinNT://" & StrDomain & "/" & StrBruger) Then
Network.MapNetworkDrive "M:", ("\\thor\" & StrGruppe &""), True
End If

On Error Resume Next

Set Network = Wscript.CreateObject("Wscript.Network")
Set shell = WScript.CreateObject("WScript.Shell")
StrDomain = Network.UserDomain
StrBruger = Network.Username

Set StrGruppe = GetObject("WinNT://" & StrDomain & "/" & StrMedlem) <----- burde det ikke være StrBruger ?????
If StrGruppe.isMember("WinNT://" & StrDomain & "/" & StrBruger) Then
Network.MapNetworkDrive "M:", ("\\thor\" & StrGruppe &""), True
End If

Den variabel der hedder StrMedlem skal være den gruppe som du prøver at connecte dig til, hvilket jo i dit tilfælde er hg1104x så prøv du at skriv det ind i stedet for StrMedlem og så skal det nok virke... (gør det her...)

Beklager det jeg skrev før, tænkte mig ikke lige om... ;)

Den skal selv finde gruppen..

Det skal siges at elevernerne er selvfølgelig medlem af mange grupper..

Men det er kun en gruppe der har disse navne.

ADMxxxxX
HGxxxxX
HHxxxxX
OFFxxxxX

Altså den skal finde disse grupper som starter med ADM, HG, HH eller OFF og slutter på X og med henholdsvis 8, 7, 7 og 8 karatere...

Med Venlig Hilsen
Thomas

Har du mange grupper ellers kan du jo lave en else if, eller noget alá det.... tror det er klogest at gøre sådan hvis ikke du vil til at lave noget meget stort....

Men jeg er ikke lige klar over over om man kan smide wildcarts ind, ellers kunne det jo være en mulighed...

Jeg vil lige kigge lidt videre på det når jeg kommer på arbejde igen..

Vi har følgende i et allerede fungerende kix script. Hvis dette kan være til hjælp..

Og ja vi har vel en 200 grupper eller noget..

Dim $aryGroups
$aryGroups = GroupArray()

For Each $ae in $aryGroups
  $x = INSTRREV($ae, "\")
  if $x > 0
      USE M: "\\THOR\" + RIGHT($ae,Len($ae) - $x)
  endif
Next

;===============================================================
Function GroupArray()
;===============================================================
Dim $i
Dim $strGrpLst
Dim $gName
$i = 0
$strGrpLst = ""
Do
$gName = EnumGroup($i)
$i = $i + 1
If Len($gName) > 0
  If Len($strGrpLst) > 0
  $strGrpLst = $strGrpLst + ","
  EndIf
  $strGrpLst = $strGrpLst + $gName
EndIf
Until Len($gName) = 0
$ary = Split($strGrpLst,",",-1)
;? "Before return array size is:" + Ubound($ary)
$GroupArray = $ary
EndFunction
;===============================================================

Jeg lukker spørgsmålet og opretter et nyt..