VB如何打开本机IIS主目录。

Question

如题。 
最好是可以先检查本机是否已经安装了IIS，如果没有安装就返回False，如果安装了就返回IIS主目录的绝对地址。

Answer 1

直接判断系统目录下面有没有iis.msc文件
Function CheckIIS()
        CheckIIS=False
        If Dir(systemroot & "\System\Inetsrv\iis.msc") <> "" Then
          CheckIIS=True
        End If
End Function

Answer 2

刚刚忘了systemroot了，我是这么打开的，用这样就行了：
    Dim sBuffer As String
    Dim lSize As Long
     sBuffer = String(255, 0)
     lSize = GetWindowsDirectory(sBuffer, Len(sBuffer))
     sBuffer = Left(sBuffer, lSize)
     sBuffer = sBuffer & "\"
     systemroot = sBuffer
     If Dir(systemroot & "\System32\Inetsrv\iis.msc") <> "" Then
     cmd = systemroot & "\System32\Inetsrv\iis.msc"
     Else
        If Dir(systemroot & "\System\Inetsrv\iis.msc") <> "" Then
         cmd = systemroot & "\System\Inetsrv\iis.msc"
         Else
         MsgBox "未找到IIS控制台文件，请确定系统中安装了IIS服务", vbOKOnly, "DOR提示"
         Exit Sub
        End If
     End If
     ShellExecute Me.hwnd, "open", cmd, "", "", 5

Answer 3

先谢谢你shenx33()回答我的问题。
在你的帮助下我解决了一般的问题，可能是我说的不够明白，我现在已经解决了是否安装IIS的问题，但是我所要打开的不是iis.msc,而是IIS的主目录，比如说本机的IIS主目录是E:\abc\,那么打开的窗口的路径就因该是E:\abc\，还希望你能继续帮我解决问题
谢谢

Answer 4

那个还没有打开过呢，不过我看了下注册表，是保存在HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\W3SVC\Parameters\Virtual Roots
下面，名称为“/”的那个就是，你就直接把这个读出来呗，然后把后面的",,201"去掉