Microsoft KB Search Scripts

Copy the Below Script and Paste it into Notepad save it as KB.VBS

-----------------------------------------------------------------------------
Option Explicit

Dim oShell, sKBArticle

Set oShell = CreateObject("WScript.Shell")
sKBArticle = InputBox("Enter a 6-digit Microsoft KnowledgeBase article number:")
If NOT Len(sKBArticle) = 6 Then
MsgBox "Invalid KB article number!", 16, "Error"
Set oShell = Nothing
WScript.Quit
Else
oShell.Run "http://support.microsoft.com/?kbid=" & sKBArticle
End If

Set oShell = Nothing
WScript.Quit
------------------------------------------------------------------------------