This code was working on Vista system.
1. Got first error with no error description when try to get object of "IIsFtpServer"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' find out default website whatever OS '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function FindWebName()
Dim ServerSite
Dim ServerObj
Set ServerSite = GetObject("IIS://localhost/MsFTPSvc")
Set ServerObj = ServerSite.GetObject("IIsFtpServer", "1")
FindWebName = ServerObj.ServerComment
End Function
2. Seond got empty object using this script:
set websvc = GetObject("IIS://localhost/MsFtpsvc")