如何在VBScript中获取IIS Mimemap

Question

我正在尝试获取上传文件的Mime类型。为此，我有以下代码：

Public Function GetMimeType(ByVal File)
    Dim oMimeMap
    Dim vntMimeType
    Dim avntMap()
    Dim DotPos
    Dim Extension

    Set oMimeMap = GetObject("IIS://LocalHost/MimeMap")

然而，我收到以下错误：

Microsoft VBScript运行时错误：权限被拒绝：＆＃39; GetObject＆＃39;

有人可以帮我解决错误吗？