Const MachineName="devsvr1"

Function CountSites(SiteService, SiteClass, Sitedescription)
Dim IISOBJ, Site, Extra

Sites = 0
on error resume next
Set IISOBJ = GetObject("IIS://"& MachineName &"/" & SiteService)
for each site in IISOBJ
	if (Site.Class = SiteClass) then
		Sites = sites + 1
	end if
next
if (sites = 0) then
  Sites = "no"
  Extra = "s"
elseif (Sites = 1) then
  Extra = ""
else  
  Extra = "s"
end if
WScript.echo "You have " & Sites & " " & SiteDescription & " site" & Extra & "."
Set IISOBJ = nothing
CountSites = Sites
end Function

call CountSites("w3svc",    "IIsWebServer", "WEB")
call CountSites("MSFTPSVC", "IIsFtpServer", "FTP")
call CountSites("SmtpSvc",  "IIsSmtpServer", "SMTP")
call CountSites("NNTPSVC",  "IIsNntpServer", "NNTP")