| '### Script criado para acomodar as necessidades de acesso ao sistema Conectividade Social |
| '##### Desabilita CNS ##### |
| |
| Set objShell = WScript.CreateObject("WScript.Shell") |
| Set WSHShell = WScript.CreateObject("WScript.Shell") |
| |
| '### Inicializa serviço Microsoft Firewall Client |
| |
| 'strServiceName = "FwcAgent" |
| 'Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") |
| 'Set colListOfServices = objWMIService.ExecQuery("Select * from Win32_Service Where Name ='" & strServiceName & "'") |
| 'For Each objService in colListOfServices |
| ' objService.StartService() |
| 'Next |
| |
| '### Adiciona rotas |
| |
| 'Set objExecObject = objShell.Exec("%comspec% /c route delete 200.201.174.0 mask 255.255.255.0 192.168.1.14") |
| 'Set objExecObject = objShell.Exec("%comspec% /c route delete 200.201.173.0 mask 255.255.255.0 192.168.1.14") |
| |
| '### Desabilita Microsoft Java Virtual Machine |
| |
| WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Java VM\EnableLogging", CLng(&H00000000), "REG_BINARY" |
| WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Java VM\EnableJIT", CLng(&H00000000), "REG_BINARY" |
| WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Java VM\EnableJavaConsole", CLng(&H00000000), "REG_BINARY" |
| |
| '### Habilita Java Runtime Sun |
| |
| Dim strRoot, strModify |
| |
| strRoot = "HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment\Java6FamilyVersion" |
| strModify = objShell.RegRead(strRoot) |
| WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Plug-in\" & mid(strModify,1,len(strModify)) & "\UseJava2IExplorer", 1, "REG_DWORD" |
| strModify = null |
| |
| '### Habilita Usar script de configuração automática |
| |
| 'Const st_TEMPFILE = "temp.reg" |
| |
| 'Dim oFS |
| 'Dim txtStream |
| 'Dim WSHShell |
| |
| 'Set oFS = CreateObject("Scripting.FileSystemObject") |
| 'Set txtStream = oFS.CreateTextFile(st_TEMPFILE,true) |
| 'txtStream.WriteLine("Windows Registry Editor Version 5.00") |
| 'txtStream.WriteLine("") |
| 'txtStream.WriteLine("[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections]") |
| 'txtStream.WriteLine(chr(34) & "DefaultConnectionSettings" & chr(34) & "=" & "hex:3c,00,00,00,3d,00,00,00,0f,00,00,00,12,00,00,\") |
| 'txtStream.WriteLine(" 00,70,72,6f,78,79,2e,63,61,6c,6c,2e,62,72,3a,38,30,38,30,07,00,00,00,3c,6c,\") |
| 'txtStream.WriteLine(" 6f,63,61,6c,3e,39,00,00,00,68,74,74,70,3a,2f,2f,70,72,6f,78,79,2e,63,6f,6e,\") |
| 'txtStream.WriteLine(" 74,6f,73,6f,2e,62,72,3a,38,30,38,30,2f,61,72,72,61,79,2e,64,6c,6c,3f,47,65,\") |
| 'txtStream.WriteLine(" 74,2e,52,6f,75,74,69,6e,67,2e,53,63,72,69,70,74,05,00,00,00,1c,00,00,00,68,\") |
| 'txtStream.WriteLine(" 74,74,70,3a,2f,2f,31,39,32,2e,31,36,38,2e,31,2e,31,34,2f,77,70,61,64,2e,64,\") |
| 'txtStream.WriteLine(" 61,74,70,f4,e7,73,f6,a0,c9,01,01,00,00,00,c0,a8,01,39,00,00,00,00,00,00,00,\") |
| 'txtStream.WriteLine(" 00") |
| 'txtStream.Close |
| |
| |
| 'WshShell.Run "regedit /s " & st_TEMPFILE, 1, true |
| 'Set WshShell = nothing |
| |
| 'oFS.DeleteFile st_TEMPFILE |
| 'Set oFS = Nothing |
| |
| WScript.Sleep 1000 |
| WScript.Echo("Acesso ao CNS desabilitado.") |
| WScript.Quit(0) |
