On Error Resume Next
	Dim RootObj, NewObj
	Set RootObj = GetObject("IIS://Localhost/W3SVC/1/ROOT")
	Set NewObj = RootObj.Delete("IIsWebVirtualDir", "sjnagaokasho")