Dim oWebSite
Dim oIp
Dim CurrentWebSiteIP 

Const DomainId = 8

	Set oWebsite = wscript.createobject("HELM.CWebsite")
	Set oIp = wscript.createobject("HELM.CIPAddress")


	wscript.echo "Default WebSite IP = " & oWebsite.GetDefaultWebSiteIpEx(DomainId)
	CurrentWebSiteIP = oWebSite.GetWebSiteIPEx(DomainID)
	wscript.echo "Current WebSite IP = " & CurrentWebSiteIP 
	wscript.echo "Current WebSiteIP is Dedicated = " & CBool(oIP.SearchEx(CurrentWebSiteIP)("StaticIP"))


	Set oIp = Nothing
	Set oWebsite = Nothing