Set w3svc = GetObject("IIS://THESERVERNAME/W3SVC")

Set w3scv=Nothing