[CODE]Dim ADS As ActiveDs.IADsOpenDSObject
Dim IIS As Object
ADS = GetObject("IIS:")
IIS = ADS.OpenDSObject("IIS://NomePC", username, password, ActiveDs.ADS_AUTHENTICATION_ENUM.ADS_SECURE_AUTHENTICATION)[/CODE]