VBS 无效字符答案

【问题标题】：VBS Invalid CharacterVBS 无效字符
【发布时间】：2010-03-09 20:42:25
【问题描述】：

这是一个简单的 VBS 脚本。但是当我双击它时，我在第 1 行字符 1 上得到 Invalid Character 800A0408，我认为这是第一个“Dim”。我是 VBS 的新手——你能告诉我我做错了什么吗？仅供参考，我安装了 XP 操作系统和 IIS6 管理器。

' This script adds the necessary Windows Presentation Foundation MIME types 
' to an IIS Server.
' To use this script, just double-click or execute it from a command line.
' Running this script multiple times results in multiple entries in the IIS MimeMap.

Dim MimeMapObj
Dim MimeMapArray
Dim WshShell
Dim oExec
Const ADS_PROPERTY_UPDATE = 2

' Set the MIME types to be added
Dim MimeTypesToAddArray = Array(".manifest", "application/manifest", ".xaml", _
    "application/xaml+xml", ".application", "application/x-ms-application", _
    ".deploy", "application/octet-stream", ".xbap", "application/x-ms-xbap", _
    ".xps", "application/vnd.ms-xpsdocument")

' Get the mimemap object 
Set MimeMapObj = GetObject("IIS://LocalHost/MimeMap")

' Call AddMimeType for every pair of extension/MIME type
For counter = 0 to UBound(MimeTypesToAddArray) Step 2
    AddMimeType MimeTypesToAddArray(counter), MimeTypesToAddArray(counter+1)
Next

' Create a Shell object
Set WshShell = CreateObject("WScript.Shell")

' Stop and Start the IIS Service
Set oExec = WshShell.Exec("net stop w3svc")
Do While oExec.Status = 0
    WScript.Sleep 100
Loop

Set oExec = WshShell.Exec("net start w3svc")
Do While oExec.Status = 0
    WScript.Sleep 100
Loop

Set oExec = Nothing

' Report status to user
WScript.Echo "Windows Presentation Foundation MIME types have been registered."

' AddMimeType Sub
Sub AddMimeType(ByVal Ext, ByVal MType)

    ' Get the mappings from the MimeMap property. 
    MimeMapArray = MimeMapObj.GetEx("MimeMap")

    ' Add a new mapping. 
    i = UBound(MimeMapArray) + 1
    ReDim Preserve MimeMapArray(i)
    MimeMapArray(i) = CreateObject("MimeMap")
    MimeMapArray(i).Extension = Ext
    MimeMapArray(i).MimeType = MType
    MimeMapObj.PutEx(ADS_PROPERTY_UPDATE, "MimeMap", MimeMapArray)
    MimeMapObj.SetInfo()

End Sub

【问题讨论】：

标签： iis-6 windows-xp vbscript

【解决方案1】：

如果您使用 vim 打开文件并使用 ex 命令“设置列表”，它将向您显示任何可能导致此问题的不可见字符。

【讨论】：

【解决方案2】：

引用http://classicasp.aspfaq.com/general/why-do-i-get-800a0408-errors.html

如果您从其他来源（例如网站、其他编辑等）你经常带的没有出现的字符记事本，但仍然存在 -- 或者确实显示为不可打印的字符，看起来很小正方形。如果你在看线有问题，它不仅仅是一个未闭合的弦或过早的回车，尝试删除完全行并重新键入它们用手。这应该消除 “隐形”问题的可能性字符弄乱了流。

【讨论】：

谢谢，是的，我以前读过。但是，我在记事本中查看了这个文件并重新输入了第一行，但我仍然有同样的错误。还有其他想法吗？语法是正确的，不是吗？不是说第一个“Dim”有错误吗？

【解决方案3】：

保存文件时检查编码，记事本中必须是ANSI

【讨论】：