VBScript erro ao chamar GetObject ( “WinNT: // JohnDoe, do Usuário”)
-
19-09-2019 - |
Pergunta
Eu tenho o código que não tenha sido tocado em mais de um ano, mas a DCs foram atualizados 2008-2008 R2. O pessoal AD afirmam que não é atualizar o DC, mas a questão começou imediatamente após o que entrou.
Microsoft VBScript erro de execução '800a0046'
Permissão negada: 'GetObject'
Ele está falhando na linha Set Grupo.
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
Graças.
Solução
Eu tive que mudar o código para passar o ID do usuário e 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
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow