Ошибка недопустимый знак vbs

VBS

Сообщение «Ошибка: Недопустимый знак» при запуске скрипта

04.08.2016, 17:16. Показов 8619. Ответов 1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

Const EmailFrom = “****@mail.ru”      ‘ от кого будет отправляться e-mail
Const EmailPassword = “123456″          ‘ пароль от e-mail
Const strSmtpServer = “ smtp.mail.ru”  ‘ smtp сервер
Const EmailTo = “****@mail.ru”        ‘ Кому будет отправляться e-mail
Set objEmail = CreateObject(”CDO.Message”)
 
objEmail.From = EmailFrom
objEmail.To = EmailTo
objEmail.Subject = “Здесь должен быть текст заголовка”
objEmail.Textbody = “Текста Вашего письма”
objEmail.Configuration.Fields.Item (”[url]http://schemas.microsoft.com/cdo/configuration/sendusing”[/url]) = 2
objEmail.Configuration.Fields.Item (”[url]http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”[/url]) = 1
objEmail.Configuration.Fields.Item (”[url]http://schemas.microsoft.com/cdo/configuration/sendusername”[/url]) = EmailFrom
objEmail.Configuration.Fields.Item (”[url]http://schemas.microsoft.com/cdo/configuration/sendpassword”[/url]) = EmailPassword
objEmail.Configuration.Fields.Item (”[url]http://schemas.microsoft.com/cdo/configuration/smtpserver”[/url]) = strSmtpServer
objEmail.Configuration.Fields.Item (”[url]http://schemas.microsoft.com/cdo/configuration/smtpserverport”[/url]) = 25
objEmail.Configuration.Fields.Update
objEmail.Send
WScript.Quit

__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь

0

Troubleshooting Code 800A0408 – Invalid Character

Introduction to Code 800A0408

This error code, 800A0408 occurs when you execute a VBScript.  A wild guess a problem with an apostrophe, possibly in a ‘REM statement.

The Symptoms You Get

The script does not execute as you had hoped. Instead you get a WSH message box like this picture:

The Cause of error 800A0408

Your VBScript contains an illegal character, often at the beginning of a line.  It can happen if you copy the script from word, then paste into notepad.  For example, to ‘Rem out a line we need the apostrophe, which is ASCII character 39; however if you paste from word you may get ASCII 96 (Grave accent).

Note the clue Source: Microsoft VBScript compilation error, this means a syntax error in your script.

The Solutions

Check the punctuation marks in your VBScript, particularly look out for apostrophes and commas that do not display correctly.  The reference to Line: 1 Char 1, means that the very first symbol that is probably wrong.

  ‡

Example 1 of error code 800A0408 – Invalid Character

Note: The error  ‘Rem VBScript

It should be ‘ Rem VBScript

»

Example 2 Code 800A0408 – Invalid Character

I include this screen shot just to emphasise that Char: number need not be one.  Thus Char: 20, or what ever your char number is, becomes a big clue in tracing obscure characters that may have sneaked into your script.

See More Windows Update Error Codes 8004 Series

• Error 800A101A8 Object Required   •Error 800A0046   •Error 800A10AD   •Error 800A000D

• Error 80048820   •Error 800A0401   •Review of SolarWinds Permissions Monitor

• Error 80040E14   • Error 800A03EA   • Error 800A0408   • Error 800A03EE

Guy Recommends: WMI Monitor and It’s Free!

Windows Management Instrumentation (WMI) is one of the hidden treasures of Microsoft operating systems.  Fortunately, SolarWinds have created the WMI Monitor so that you can examine these gems of performance information for free.  Take the guess work out of which WMI counters to use for applications like Microsoft Active Directory, SQL or Exchange Server.

Download your free copy of WMI Monitor

Do you need additional help?

• For interpreting the WSH messages check Diagnose 800 errors.
• For general advice try my 7 Troubleshooting techniques.
• See master list of 0800 errors.
• Codes beginning 08004…
• Codes beginning 08005…
• Codes beginning 08007…
• Codes beginning 0800A…

Give something back?

Would you like to help others?  If you have a good example of this error, then please email me, I will publish it with a credit to you:

If you like this page then please share it with your friends

• 

  In the command line or a batch file try using «type old.vbs > new.vbs» to convert the file(s) to ansi.

  http:/ Opens a new window/www.robvanderwoude.com/type.php#Unicode Opens a new window

  
  Was this post helpful?
  thumb_up
  thumb_down
  

• You need to post a snippet of your code, maybe the line and character referenced in the error?
  We do not have enough information to help with just the error.

  EDIT:
  After searching the error, it does seen to be an encoding issue.
  I have never seen that with NotePad++.

  
  Was this post helpful?
  thumb_up
  thumb_down
  

• 

  AdamRPL wrote:

  In the command line or a batch file try using «type old.vbs > new.vbs» to convert the file(s) to ansi.

  http:/ Opens a new window/www.robvanderwoude.com/type.php#Unicode Opens a new window

  Tried that and when I run the new file I get the same message.  Notepad++ is showing that it is ANSI.

  attach_file
  Attachment
  
  2014-01-23_13_34_…ection.png
  41.1 KB
  
  

  
  Was this post helpful?
  thumb_up
  thumb_down
  

• 

  Dave Rossi wrote:

  You need to post a snippet of your code, maybe the line and character referenced in the error?
  We do not have enough information to help with just the error.

  EDIT:
  After searching the error, it does seen to be an encoding issue.
  I have never seen that with NotePad++.

  It’s always line 1 character 1.

  Here is the beginning of the code:

  ‘——————————————————————————–
  ‘declare variables
  ‘——————————————————————————–
  
  Const ForAppending = 8
  
  Const LogFile = “c:tempjavauninstall.txt”
  
  ‘——————————————————————————–
  ‘create log file
  ‘——————————————————————————–
  
  Set objFSO = CreateObject(“Scripting.FileSystemObject”)
  
  Set objLogFile = objFSO.CreateTextFile(LogFile)
  
  sLog = “Started Java Uninstall”
  
  Call WriteLog(sLog)
  

  This script worked just fine until I edited it recently.

  
  Was this post helpful?
  thumb_up
  thumb_down
  

• 

  So I had to go through the whole file and replace invalid characters.  This is rather frustrating.  What I think happened is I edited in Notepad at one point rather than Notepad++.

  I’ll have to change the default editor for vbs files or I’m going to do that again I’m sure of it.

  
  Was this post helpful?
  thumb_up
  thumb_down
  

This is a simple VBS script. But when I double-click on this, I get Invalid Character 800A0408 on Line 1, Character 1, which I think is the first «Dim». I am new to VBS—can u tell me what I did wrong? FYI, I have an XP OS and IIS6 Manager installed.

' 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