' List FTP Virtual Directory Properties
strComputer = "LocalHost"
Set objDirectory = GetObject _
("IIS://" & strComputer & "/MSFTPSVC/1012388136/root")
Wscript.Echo "Access Flags: " & objDirectory.AccessFlags
Wscript.Echo "Don't Log: " & objDirectory.DontLog
Wscript.Echo "Path: " & objDirectory.Path
Wscript.Echo "UNC Password: " & objDirectory.UNCPassword
Wscript.Echo "FTP Directory Browse Show Long Date: " & _
objDirectory.FtpDirBrowseShowLongDate
Wscript.Echo "UNC User Name: " & objDirectory.UNCUserName