Rafaveloz

Estou tentando executar um arquivo .vbs em minha maquina para que ele possa inserir URL's na lista de exceções do java, segue código: (erro que está retornando : Linha 1 Caractere: 9 erro : instrução esperada) mkdir C:\WINDOWS\Sun\Java\Deployment\ echo deployment.user.security.exception.sites=C\:/WINDOWS/Sun/Java/Deployment/exception.sites>>C:\WINDOWS\Sun\Java\Deployment\deployment.properties echo deployment.browser.vm.iexplorer.locked >>C:\WINDOWS\Sun\Java\Deployment\deployment.properties echo deployment.browser.vm.iexplorer=true >>C:\WINDOWS\Sun\Java\Deployment\deployment.properties echo deployment.browser.vm.mozilla.locked >>C:\WINDOWS\Sun\Java\Deployment\deployment.properties echo deployment.browser.vm.mozilla=true >>C:\WINDOWS\Sun\Java\Deployment\deployment.properties echo deployment.expiration.check.enabled=false >>C:\WINDOWS\Sun\Java\Deployment\deployment.properties echo deployment.security.level=HIGH >>C:\WINDOWS\Sun\Java\Deployment\deployment.properties echo deployment.system.config=file\:C\:/WINDOWS/Sun/Java/Deployment/deployment.properties >>C:\WINDOWS\Sun\Java\Deployment\deployment.config echo deployment.system.config.mandatory=true >>C:\WINDOWS\Sun\Java\Deployment\deployment.config echo https://(INSIRA SUA URL AQUI)>C:\WINDOWS\Sun\Java\Deployment\exception.sites

"Este e meu codigo ate o primeiro momento, esse primeiro sub e do botão enviar, minha macro deveria, enviar um email para o destinatario q estaria presente na coluna 1 , toda vez q o status da coluna 6 mudasse para para Realizar compra, com apenas as as suas linhas respectivas (couluna(2) a (6)); seria isso galera. Sub Enviar() Dim EnviarPara As String Dim Mensagem As String EnviarPara = ThisWorkbook.Sheets(1).Cells(i, 1) Mensagem = ThisWorkbook.Sheets(1).Cells(i, 3) Envia_Emails EnviarPara, Mensagem End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim OutApp As Object Dim OutMail As Object Dim texto As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) linha = ActiveCell.Row - 1 If Target.Address = "$F$" & linha Then If Plan1.Cells(linha, 6) = "Realizar Compra" Then texto = "Prezado(a) " & Plan1.Cells(linha, 1) & "." & vbCrLf & vbCrLf & _ "O estoque atual e semanal consta: " & Plan1.Cells(linha, 2) & Plan1.Cells(linha, 3) & Plan1.Cells(linha, 4) & Plan1.Cells(linha, 5) & Plan1.Cells(linha, 6) & _ "Rafael. INF" & vbCrLf End If