Na sequência deste tópico tenho um erro semelhante, mas ao executar um VBScript, pois sempre que ele chega esta função:
For Each IPAddress in myObj
If IPAddress.IPAddress(0) <> "0.0.0.0" Then
GetIP = IPAddress.IPAddress(0)
Exit For
End If
Next
Aparece a tal mensagem
Erro: O Componente ActiveX não conseque criar o objecto
Código: 800A01AD
Origem: Erro em tempo de execução do Microsoft VBScript
Deverá ser algum dll, mas alguém sabe qual???