WScript.Echo在cmd下输出在dos窗口而不是弹出框

cscript D:PersonalDesktop1.vbs

附列出IIS所有站点路径的办法：

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & strComputer & "rootMicrosoftIISv2")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM IIsWebVirtualDirSetting",,48)
For Each objItem in colItems
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "IIsWebVirtualDirSetting instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Path: " & objItem.Path
Next