.

segunda-feira, 27 de setembro de 2010

NTBackup Full

Galera,

Como verificar e analisar detalhadamente os logs dos backup da ferramenta NTBACKUP em Tools-> Options-> Aba Backup Log -> Selecionar Detailed. (conforme figura)


Ou via linha de comando  com a opção ntbackup backup name.bks /l:f  com a opçao de log full habilitada conseguimos analisar detalhadamente como é feito e para uma possivel analise de erro.

[]`s

domingo, 26 de setembro de 2010

sexta-feira, 17 de setembro de 2010

Warranty Dell Code VBS - Garantia Dell Script

Como posso trazer informacoes sobre garantia do site da dell de uma lista de service tag?

Com o codigo abaixo e um arquivo de texto com o service tag de servidores e computadores Dell é possivel trazer as informaçoes de data de garantia, data de compra, local de compra, e mais informacões importantes, como o arquivo de saida é um CSV é possivel fazer a importação para um banco de dados.

Codigo abaixo:

'******************************************************
'* Author: Unknown / Thiago Cardoso 
'* Version: 1.0
'* last modified: 09/16/2010
'* This script will check the Dell website the warranty  of computer service tag.
'* Input File := ServiceTagsDell.txt (separated by enter)
'* Example:
'* J1JO45X
'* ASA465J
'* Output File:Result.csv (comma separated values "value","value",)
'* Example:"value","value","value"
'* Cscript WarrantyDell.vbs
'******************************************************

Set dtmConvertedDate = Createobject("WbemScripting.SWbemDateTime")
strComputer = "."
'Files I/O
strInputFile = "ServiceTagsDell.txt"
strOutputFile = "Result.csv"
arrHeads = Array("Service Tag:", "Days Left")
Set oFSO = Createobject("Scripting.FileSystemobject")
Const intForRead = 1
Set oHTTP = Createobject("Msxml2.XMLHTTP")
strDetails = """Service Tag"",""System Type"",""Ship Date"",""Dell IBU"",""Description"",""Provider"",""Start Date"",""End Date"",""Days Left"""
If oFSO.FileExists(strInputFile) Then
 Set oInputFile = oFSO.OpenTextFile(strInputFile, intForRead, False)
 While Not oInputFile.AtEndOfStream
    strServiceTag = oInputFile.ReadLine
    strCurrentTag = ""
    'Dell Website
    strURL = "http://supportapj.dell.com/support/topics/topic.aspx/ap/shared/support/my_systems_info/en/details?c=in&cs=inbsd1&l=en&s=bsd&ServiceTag=" & strServiceTag & "&~tab=1"
    oHTTP.open "GET", strURL, False
    oHTTP.send
    strPgText = oHTTP.responseText
    For Each strHead In arrHeads
    intSummaryPos = InStr(LCase(strPgText), LCase(strHead))
    If intSummaryPos > 0 Then
       intSmmTblStart = InStrRev(LCase(strPgText), "<table", intSummaryPos)
       intSmmTblEnd = InStr(intSummaryPos, LCase(strPgText), "</table>") + 8
       strInfoTbl = Mid(strPgText, intSmmTblStart, intSmmTblEnd - intSmmTblStart)
       strInfoTbl = Replace(Replace(Replace(strInfoTbl, VbCrLf, ""), vbCr, ""), vbLf, "")
       arrCells = Split(LCase(strInfoTbl), "</td>")
       For intCell = LBound(arrCells) To UBound(arrCells)
       arrCells(intCell) = Trim(arrCells(intCell))
       intOpenTag = InStr(arrCells(intCell), "<")
       While intOpenTag > 0
          intCloseTag = InStr(intOpenTag, arrCells(intCell), ">") + 1
          strNewCell = ""
          If intOpenTag > 1 Then strNewCell = strNewCell & Trim(Left(arrCells(intCell), intOpenTag - 1))
          If intCloseTag < Len(arrCells(intCell)) Then strNewCell = strNewCell & Trim(Mid(arrCells(intCell), intCloseTag))
          arrCells(intCell) = Replace(Trim(strNewCell), " &nbsp;&nbsp;&nbsp;&nbsp;change service tag","")
          intOpenTag = InStr(arrCells(intCell), "<")   
       Wend
       Next
       If LCase(arrCells(0)) = LCase("Service Tag:") Then
       strCurrentTag = ""
        For intField = 1 To UBound(arrCells) Step 2
           If strCurrentTag = "" Then
           strCurrentTag = """" & arrCells(intField) & """"
           Else
           strCurrentTag = strCurrentTag & ",""" & arrCells(intField) & """"
           End If
        Next
       ElseIf LCase(arrCells(0)) = LCase("Description") Then
       If  UBound(arrCells) < 10 then 
        For intField = 5 To UBound(arrCells)
           strCurrentTag = strCurrentTag & ",""" & arrCells(intField) & """"
        Next    
       Else
        For intField = 5 To 9
           strCurrentTag = strCurrentTag & ",""" & arrCells(intField) & """"
        Next
       End If 
       End If
    Else
       strCurrentTag = """" & strServiceTag & """,""No warranty information found."""
    End If
    Next
    strDetails = strDetails & VbCrLf & strCurrentTag
 Wend
 oInputFile.Close
 Set oInputFile = Nothing
 Set oOutputFile = oFSO.CreateTextFile(strOutputFile, True)
 oOutputFile.Write strDetails
 oOutputFile.Close
 Set oOutputFile = Nothing
 Set oFSO = Nothing
Else
 MsgBox "The file does not exists " & strInputFile & ". Create please."
End If

sexta-feira, 3 de setembro de 2010

Evento Marco Civil da Internet Mackenzie

No dia 01 de setembro participei do evento Marco Civil da Internet na Mackenzie, alguns pontos que me chamaram a atenção foram:
  • Nas Olimpíadas de 2008 que ocorreram em Pequim a pagina dos jogos foi invadido por hackers que alteraram e usaram as cores da bandeira da China esta atitude foi recebida como ofensa ao povo chinês que tem estas cores como “sagradas” já que são cores da bandeira.
  • As Fraudes online movimentaram em 2005 U$ 105 bilhões e as Drogas ilegais 100 U$ bilhões
  • Em 2006 a BMW faz uma otimização das buscas em palavras chaves no serviço do Google após esta ação o Google penalizou a BMW colocando a na lista negra entendo que foi feita manipulação das buscas.
  • No Brasil não é aceito o “Flagrante Preparado”.
  • Como seria o Mundo sem internet?
  • A quantidade de jovens usando a internet diariamente em lanhouses da China é absurda.
  • As escolas precisam auxiliar na educação ao uso da internet
  • A maioria das crianças e jovens hoje usa mais de 5 horas por dia na internet e pincipalmente sites de redes sociais.
  • Apologia ao nazismo na França é crime e na era possível encontrar na busca do Yahoo francês e após uma ação judicial foi bloqueado, mas no Yahoo EUA era possível à visualização, como existem acordo entre as nações foi feito este pedido a justiça dos EUA como a liberdade de expressão é um dos princípios da justiça americana não foi feito dado andamento nesta ação.
  • Quebra de barreiras pela internet
  • De modo geral as regras legislativas não acompanham a tecnologia uma latência mundial.
[]`s