VBS Неправильный Персонаж - PullRequest
Новая
       11

VBS Неправильный Персонаж

0 голосов
/ 09 марта 2010

Это простой сценарий VBS. Но когда я дважды щелкаю по нему, я получаю Invalid Character 800A0408 в строке 1, Character 1, который, я думаю, является первым "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

Ответы [ 3 ]

2 голосов
/ 09 марта 2010

Если вы откроете файл с помощью vim и используете команду ex 'set list', он покажет вам все невидимые символы, которые могут вызывать эту проблему.

2 голосов
/ 09 марта 2010

Цитирование http://classicasp.aspfaq.com/general/why-do-i-get-800a0408-errors.html

Если вы вырезаете и вставляете код из других источники (например, веб-сайты, другие редакторы и т. д.) вы часто берите с собой персонажи, которые не появляются в Блокнот, но, тем не менее, присутствует - или появляются как непечатные символы, которые выглядят как маленькие квадраты. Если вы смотрите на линию под вопросом, и это не просто незамкнутая строка или преждевременное возврат каретки, попробуйте удалить строки (в целом) и перепечатывание их рукой. Это должно устранить возможность «невидимой» проблемы персонажи заглатывают поток.

0 голосов
/ 25 июня 2017

Проверьте кодировку при сохранении файла, должен быть ANSI в блокноте

...