Voici un petit programme « vbs » (Visual Basic Script)  qui permet de faire apparaître directement la page KB Microsoft (Knowledge Base, Base de Connaissance) si on connait son numéro ID (noté par un code de 6 chiffres, par exemple : « KB 132571″ ou « Q132571″).

Direct KB

Ce programme est très simple à réaliser : il suffit de copier-coller le texte suivant dans un éditeur de texte, et de l’enregistrer sous le nom « DirectKB.vbs » (sans les guillemets, et sans l’extension txt !)
Pour le lancer, double-cliquer dessus.

—— Début du texte à copier ligne suivante ——

Option Explicit
Dim shell
Dim strARTICLE
Dim strURL
Dim strMESSAGE
Dim strTITRE
Dim strLETTRE
strMESSAGE = "Entrez les 6 chiffres d’un article de la KB Microsoft. Faites-les précéder de la lettre Q."
strTITRE = "Accès KB Microsoft"
strLETTRE = "Q"
strARTICLE = InputBox(strMESSAGE, strTITRE, strLETTRE)
If strARTICLE = "" Then
 WScript.Quit
End If
While len(strARTICLE) <> 7 or UCase(left(strARTICLE, 1)) <> "Q"
 strMESSAGE = "Les articles de la KB commencent par Q, "
 strMESSAGE = strMESSAGE & "suivi de 6 chiffres."
 strARTICLE = InputBox(strMESSAGE, strTITRE, strARTICLE)
 if strARTICLE = "" Then
  WScript.Quit
 End If
Wend
strURL = "http://support.microsoft.com/support/kb/articles/"
 strURL = strURL & left(strARTICLE, 4) & "/"
 strURL = strURL & mid(strARTICLE, 5, 1)  & "/"
 strURL = strURL & right(strARTICLE, 2) & ".asp"
 
 Set shell = CreateObject("WScript.Shell")
 shell.Run("IEXPLORE" & " " & strURL)
 shell.AppActivate "IExplore"
------ Fin du texte à copier ligne précédente ------

REMARQUE

Il y a maintenant un méthode simple, proposée par Microsoft :
Taper directement dans la barre d’adresses du navigateur
http://support.microsoft.com/?id=         suivi de l’ID à 6 chiffres, par exemple :
http://support.microsoft.com/?id=132571

On peut quand même utiliser le petit utilitaire, qui s’écrit plus simplement :

—— Début du texte à copier ligne suivante ——
Option Explicit
Dim shell
Dim strARTICLE
Dim strURL
Dim strMESSAGE
Dim strTITRE
strMESSAGE = "Entrez les 6 chiffres d’un article de la KB Microsoft."
strTITRE = "Accès KB Microsoft"
strARTICLE = InputBox(strMESSAGE, strTITRE)
If strARTICLE = "" Then
WScript.Quit
End If
While len(strARTICLE) <> 6
strMESSAGE = "Les articles de la KB comportent 6 chiffres."
strARTICLE = InputBox(strMESSAGE, strTITRE, strARTICLE)
if strARTICLE = "" Then
WScript.Quit
End If
Wend
strURL = "http://support.microsoft.com/?id="
strURL = strURL & (strARTICLE)
Set shell = CreateObject("WScript.Shell")
shell.Run("IEXPLORE" & " " & strURL)
shell.AppActivate "IExplore"
—— Fin du texte à copier ligne précédente ——

Accès rapide à la KB

Remarque

Ceux qui ont Internet Explorer 7 n’ont pas besoin de ce script, puisqu’ils peuvent intégrer la recherche dans la KB dans les moteurs de recherche de IE7 : voir cet article.