on error resume next ‘ Create variables.
Dim newInternetBasedManagementPointFQDN
Dim 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 = Nothing
Set internetBasedManagementPointFQDN = Nothing
