Buscar artigos na base da Microsoft

O script a seguir efetua busca por artigos da base microsoft do tipo KB123456... de forma simples e rápida, bastando somente inserir os 06 dígitos contidos no nome do artigo.

EX.: Para o KB123456 devemos inserir somente os números 123456 conforme mostrado na figura a seguir .










Instruções para utilização do script.


Abra o bloco de notas do Windows, selecione o código entre o "Início do código" e o "Fim do código", copie e cole no bloco de notas e em seguida salve o arquivo com a extensão .vbs e pronto.


'**Inicio do Código***************************************************************

Dim oShell, sKBArticle

Set oShell = CreateObject("WScript.Shell")
sKBArticle = InputBox("Insira os 6 digitos do número do artigo da Microsoft KnowledgeBase que deseja pesquisar:","Suporte & Scripts")
If NOT Len(sKBArticle) = 6 Then
MsgBox "Número do KB incorreto!", 16, "Falha"
Set oShell = Nothing
WScript.Quit
Else
oShell.Run "http://support.microsoft.com/?kbid=" & sKBArticle
End If

Set oShell = Nothing
WScript.Quit

'**Fim do Código***************************************************************

Postado por: Marcelo Montezuma