VBScript-Fehler beim Aufruf von GetObject("WinNT://Hansmeier,Benutzer")

Ich habe code, der noch nicht berührt worden war, über ein Jahr, aber die DCs wurden ein Upgrade von 2008 auf 2008 R2. Die AD-Leute behaupten, es ist nicht die DC-upgrade, aber das Problem begann unverzüglich danach ging in.

Microsoft VBScript runtime Fehler "800a0046'
Permission denied: 'GetObject'

Es andernfalls an der Set-Gruppe Linie.

Set Group = GetObject("WinNT://" & Logon_name & ",User")

For each Member in Group.Groups
  If Member.Class = "Group" then
    If Member.Name = "TEST_AD_GROUP" Or Member.Name = "TEST_AD_GROUP2" then
      x = "true"
      Exit For
    End If
  End If
Next

Dank.

In der Benutzer-Konto-Kontext funktioniert das Skript ausführen? Vielleicht ist es gesperrt-out auf der domain-Ebene (aber im Cache der Maschine, die Sie ausführt)?
es sollte ausgeführt werden, wie das Konto des COMPUTERS.
"Sollte"? Können Sie das überprüfen? Die Chancen sind, dass es wirklich eine echte Meldung "Zugriff verweigert".
es ist unter dem Computerkonto ausgeführt.

InformationsquelleAutor ryan | 2010-02-08

  1. 6

    hatte ich den code ändern zu übergeben, in der die userid und pwd.

    Set objIADS = GetObject("WinNT:").OpenDSObject("WinNT://" & strDomain, strUsername, strPassword, ADS_SECURE_AUTHENTICATION)
Set objIADSUser = objIADS.GetObject("user", strUsername)

For each Member in objIADSUser.Groups
    If Member.Class = "Group" then
        If Member.Name = "TEST_AD_GROUP" then
            x = "true"
            EXIT FOR
        End If
    End If
Next

    InformationsquelleAutor ryan

Schreibe einen Kommentar