There has been a change in the IIS WMI provider for Windows Server 2003 Service Pack 1 and Windows XP with Service Pack 2 that requires customers to update WMI-based scripts that operate over a remote connection. WMI-based scripts that do not encrypt the connection when administering IIS remotely fail with an Access Denied error (WBEM_E_ACCESS_DENIED, 0x80041003). You must use the AuthenticationLevel property.
Dim connection As New Management.ConnectionOptions
.Username = strUserName
.Password = strPassword
.Impersonation = Management.ImpersonationLevel.Impersonate
.Authentication = Management.AuthenticationLevel.PacketPrivacy
.Authority = "ntlmdomain:DOMAIN"
scope = New Management.ManagementScope("\" & strComputerName & strRoot, connection)