.

Monday, September 27, 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

Sunday, September 26, 2010

Friday, September 17, 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

Friday, September 3, 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