VBS Fin prévue de l'instruction

Question

Je suis un débutant à l'écriture de scripts VBS. Merci pour tous vos commentaires! J'ai corrigé l'erreur 800A0401 maintenant, grâce à vos aides. Mais maintenant je reçois l'erreur 800A0414 sur la ligne 13, caractère 1 "Objet requis", qui fait référence à la ligne: Set MimeTypesToAddArray = Array (". Manifest", "application/manifeste", ".xaml", _

Maintenant, je comprends comment fonctionne le comptage des lignes, il compte les lignes de commentaires Je revois toujours toutes vos suggestions, mais si vous avez des conseils sur la façon dont je peux corriger cette erreur maintenant ce serait super! pas d'accord sur les besoin de mettre « Dim » sur une ligne séparée des valeurs de type parce que je l'ai vu tant d'exemples de le faire. Est-ce que des experts u VBS? 0

' 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. 
' Set the MIME types to be added 
Dim MimeMapObj 
Dim MimeMapArray 
Dim WshShell 
Dim oExec 
Const ADS_PROPERTY_UPDATE = 2 

Dim MimeTypesToAddArray 
Set 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 

Answer 1

Je ne pense pas que vous pouvez Dim une variable et écrivez-le sur la même ligne.

Essayez ces lignes comme séparées:

Dim MimeTypesToAddArray 
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") 

Answer 2

Je ne suis pas familier avec VBS juste VB6 mais je crois que l'erreur est que vous faites un DIM et une une mission sur la même ligne. VB6 ne l'autorisait pas, donc je suppose que VBS non plus. Alors peut-être que quelque chose comme ça est ce que vous voulez. En outre, il semble que cela compte des lignes vides et des commentaires.

Dim MimeTypesToAddArray 
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") 

Answer 3

Si vous allez combiner une déclaration Dim avec une mission sur la même ligne, vous devez le faire comme ceci:

Dim MimeTypesToAddArray : MimeTypesToAddArray = Array()