b.Carvalho

Bom dia, estou com uma duvida bem simples, tenho que fazer uma pagina web interna no serviço, alias ela já esta pronta só que preciso fazer o seguinte(vou tentar explicar). tenho que fazer tipo de um menu com tópicos e sub-topicos, a hora que clico no tópico ele lista deslisando embaixo os sub-topicos . EX: 1. Primeiro tópico. ( Ao clicar nele, o sub tópico aparece por baixo com um efeito jquery). 1. Primeiro tópico. 1.2. Primeiro Sub-Tópico 1.2.3. Segundo sub-tópico

Ai galera resolvi oque precisava, muito obrigado pela ajuda. O codigo para ler o tipo de atributo da tag é o seguinte: 'Inicio Set objDoc = CreateObject("MSXML2.DOMDocument") objDoc.load("C:\Arquivos de programas\Symantec AntiVirus\Config.xml") Set objNode = objDoc.selectSingleNode("//AutoUpgrade") Set RefAttr = objNode.GetAttributeNode("ServerVersion") MsgBox RefAttr.value Muito obrigado pela ajuda mesmo!

Boa tarde, é o seguinte trabalho numa empresa que precisa de um script que faça a leitura de todas as maquinas da versão do anti-virus, o script eu já tenho pronto, quando roda o script ele gera uma planilha .xls com alguns dados, mas a versão atual do script ele não consegue pegar, era pro script pegar a versão do anti virus no registro mais não esta pegando, intao andei mexendo aqui e vi que na pasta do anti-virus tem um arquivo .xml que contem a versão correta do anti-virus, agora o problema é ler a versão correta do anti virus, jogar o valor desta versão na planilha xls. Bom não sei se consegui explicar corretamente, mais se alguém puder me ajudar sou muito grato. Obrigado pela atenção. Codigo do Script: 'On Error Resume Next Const ForReading = 1 Const HKEY_LOCAL_MACHINE = &H80000002 x = 2 'Create an Excel Work Sheet Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add objExcel.Cells(1, 1).Value = "Nome da Máquina" objExcel.Cells(1, 2).Value = "Parent Server" objExcel.Cells(1, 3).Value = "Versão SAV" objExcel.Cells(1, 4).Value = "Definição de Vírus" objExcel.Cells(1, 5).Value = "Número Rev" objExcel.Cells(1, 6).Value = "Status" objExcel.Cells(1, 7).Value = "Hora de Checagem" objExcel.Range("A1:G1").Select objExcel.Selection.Interior.ColorIndex = 19 objExcel.Selection.Font.ColorIndex = 11 objExcel.Selection.Font.Bold = True objExcel.Cells.EntireColumn.AutoFit 'Read machine names from a txt file Set Fso = CreateObject("Scripting.FileSystemObject") Set InputFile = fso.OpenTextFile("C:\MachineList.Txt") Do While Not (InputFile.atEndOfStream) strComputer = InputFile.ReadLine intRow = x objExcel.Cells(intRow, 1).Value = strComputer GetRegInfo GetDefInfo objExcel.Cells(intRow, 7).Value = Now() set strValue = Nothing set dwValue = Nothing set strSavVersion = Nothing set objFSO = Nothing Set objFile = Nothing Set dtDefDate = Nothing Set strRevNumber= Nothing x = x + 1 Loop Wscript.Echo "Teste" '********************************************************************************************************* 'Get information from Registry Sub GetRegInfo Set oReg=GetObject( _ "winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Symantec\Symantec Endpoint Protection\SMC" strParent = "Parent" strProversion = "ProductVersion" oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strParent,strValue objExcel.Cells(intRow, 2).Value = strValue oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strProversion,dwValue Select Case dwValue Case 328336375 strSavVersion ="10.1.5.5010" Case 23528424 strSavVersion = "10.0.0.359" Case 65537001 strSavVersion = "10.0.1.1000" Case 65995753 strSavVersion = "10.0.1.1007" Case 66061289 strSavVersion = "10.0.1.1008" Case 131073002 strSavVersion = "10.0.2.2000" Case 131138538 strSavVersion = "10.0.2.2001" Case 131728362 strSavVersion = "10.0.2.2010" Case 132383722 strSavVersion = "10.0.2.2020" Case 132449258 strSavVersion = "10.0.2.2021" Case 25822194 stSavVersion = "10.1.0.394" Case 25953266 strSavVersion = "10.1.0.396" Case 26215410 strSavVersion = "10.1.0.400" Case 26280946 strSavVersion = "10.1.0.401" Case 65536905 strSavVersion = "9.0.5.1000" Case 72090503 strSavVersion = "9.0.3.1100" Case 65536903 strSavVersion = "9.0.3.1000" Case 65536902 strSavVersion = "9.0.2.1000" Case 65536901 strSavVersion = "9.0.1.1000" Case 22152068 StrSavversion = "9.0.0.338" Case 21562155 strSavVersion = "8.1.1.329" Case 21168939 strSavVersion = "8.1.1.323" Case 20906795 strSavVersion = "8.1.1.319" Case 20579115 strSavVersion = "8.1.1.314" Case 54068001 strSavVersion = "8.1.0.825" Case 29950753 strSavVersion = "8.0.1.457" Case 614597408 strSavVersion = "8.0.0.9378" Case 614335264 strSavVersion = "8.0.0.9374" Case 29229856 strSavVersion = "8.0.0.446" Case 28640032 strSavVersion = "8.0.0.437" Case 28443424 strSavVersion = "8.0.0.434" Case 28115744 strSavVersion = "8.0.0.429" Case 27853600 strSavVersion = "8.0.0.425" Case 85197700 strSavVersion = "7.60.926" Case 61997817 strSavVersion = "7.6.1.946" Case 61473529 strSavVersion = "7.6.1.938" Case 60949241 strSavVersion = "7.6.1.930" Case 60687096 strSavVersion = "7.6.1.926" Case 55509743 strSavVersion = "7.5.1.847" Case 48366268 strSavVersion = "7.0.0" End Select objExcel.Cells(intRow, 3).Value = strSavVersion End Sub '******************************************************************************************************************* 'Get Virus definition from definfo.dat. Sub GetDefInfo Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile("C:\Arquivos de Programas\Arquivos Comuns\Symantec Shared\VirusDefs\definfo.dat") If objFSO.FileExists(objFile) Then Set objDatFile = objFSO.OpenTextFile(objFile, 1) Do Until objDatFile.AtEndOfStream strLine = objDatFile.Readline intCurDefs = InStr(strLine , "CurDefs") If intCurDefs > 0 Then strCurDefs = strLine strDateDefs = Mid(strCurDefs, 9, 8) dtYear = Left(strDateDefs, 4) dtMonth = Mid(strDateDefs, 5, 2) dtDay = Right(strDateDefs, 2) DateVirDefs = dtMonth & "/" & dtDay & "/" & dtYear dtDefDate = CDate(DatevirDefs) objExcel.Cells(intRow, 4).Value = dtDefDate If (date - dtDefDate) = 1 Then objExcel.Cells(intRow, 6).Value = "OK" Else objExcel.Cells(intRow, 6).Value = "Need Attention!" End If strRevNumber = Right(strCurDefs, 3) objExcel.Cells(intRow, 5).Value = strRevNumber End If Loop objDatFile.Close Else objExcel.Cells(intRow, 4).Value = "The file definfo.dat does not exist" End If End Sub Codigo do .XML: <?xml version="1.0" encoding="UTF-8"?> <AutoUpgrade NameSpace="rpc" ServerVersion="11.0.6005.562"/> Tenho que pegar o Resultado ServerVersion="11.0.6005.562"

Boa Tarde, Faço estagio numa empresa, e nos ultilizamos muito o FeedReader 3.14 . Tenho que dar um jeito de que toda vez que o pc for ligado, irá rodar um script que atualize o banco de dados do feedreader, sempre deixando 2 canais noticias especificos da empresa. Ou bloquear a opção de adicionar os Canais de Atualização. alguém sabe algum software que faz com que bloqueie essa opção de adicionar ou sabe +- o caminho que tenho que tomar para começar a montar o script. OBS: FeedReader é software livre. Codigo-fonte: http://sourceforge.net/projects/feedreader/files/ Ou no site do FeedReader no forum deles fala alguma coisa mais não ajuda muito: http://www.feedreader.com/forum Muito obrigado pela atenção. Att, Bruno.