VBS转Delphi

Set ObjService=GetObject("IIS://LocalHost/W3SVC") 
For Each obj3w In objservice 
If IsNumeric(obj3w.Name) Then 
sServerName=Obj3w.ServerComment 
Set webSite = GetObject("IIS://Localhost/W3SVC/" & obj3w.Name & "/Root") 
ListAllWeb = ListAllWeb & obj3w.Name & String(25-Len(obj3w.Name)," ") & obj3w.ServerComment & "(" & webSite.Path & ")" & vbCrLf 
End If 
Next 
WScript.Echo ListAllWeb 
Set ObjService=Nothing 
WScript.Quit