VBscript Configure Clients Internet based Management Point Setting

on error resume next ‘ Create variables.Dim newInternetBasedManagementPointFQDNDim client newInternetBasedManagementPointFQDN = “mp.contoso.com” ‘ Create the client COM object.Set client = CreateObject (“Microsoft.SMS.Client”) ‘ Set the Internet-Based Management Point FQDN by calling the SetCurrentManagementPoint method.client.SetInternetManagementPointFQDN newInternetBasedManagementPointFQDN ‘ Clear variables.Set client = NothingSet internetBasedManagementPointFQDN = Nothing