Új hozzászólás Aktív témák

• dkaro őstag

  #1836

  #1823 martonx

  2012-09-08 20:20:39

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  dkaro

  őstag

  #1823 martonx

  #1823 martonx

  Sub RunScript
  For i = 0 to (ertek.Options.Length - 1)
  If (ertek.Options(i).Selected) Then
  strComputer = strComputer & ertek.Options(i).Value & vbcrlf
  End If
  Next
  Msgbox strComputer
  End Sub

  Köszönöm a segítséget így nyert.
  Most újabb hibánál akadtam el:
  Sub RunScript
  For i = 0 to (nyomtato.Options.Length - 1)
  If (nyomtato.Options(i).Selected) Then
  strComputer = strComputer & nyomtato.Options(i).Value & "%"
  End If
  Next
  Dim tomb
  Dim objGroup
  Const ADS_PROPERTY_APPEND = 3
  tomb = Split(strComputer,"%")
  For j = 0 To (UBound(tomb))
  Set objGroup = GetObject("LDAP://srv/"&tomb(j)&",ou=Printers,ou=SZE,dc=domain,dc=local")
  objGroup.PutEx ADS_PROPERTY_APPEND, "member", Array("cn=user,ou=SZE,dc=domain,dc=local")
  objGroup.SetInfo
  next
  End Sub

  Ez a script azt lenne hivatott csinálni, hogy a multiple selectben kiválasztott csoportokba berakja a user.
  Sajnos 80005000-es hibaüzenetet kapok. Ettől függetlenül bekerül a user az összeskijelölt csoportba de a hibaüzenet zavar.
  Természetesen rendszergazdaként futtatom a scriptet.
  Köszönöm!

Új hozzászólás Aktív témák