À partir d'un tableau de code-barres détecte les doublons dans le Sudoc.

Sub DetecteDoublonsCodeBarre()
REM Ouvre un fichier en ecriture et ecrit Code-barre doublon dans Sudoc
	Dim oNet, sUsername, FSO
	Dim Chemin, MonFichier
	Set oNet=CreateObject("WScript.Network")
	sUsername=oNet.UserName
	Set oNet = Nothing
	Chemin = "c:\oclcpica\WinIBW30\Profiles\" & sUsername & "\CB_Doublons.txt"
	Set FSO = CreateObject("Scripting.FileSystemObject")
	Chemin = FSO.GetAbsolutePathName(Chemin)
	Set MonFichier = FSO.OpenTextFile(Chemin,2,True)
REM Debut Programme
	Dim CodeBarre
	Dim LesCodesBarres
	LesCodesBarres = Array("0261280531","0261280166","0261280296","0261280326","0261280227")
	For Each CodeBarre In LesCodesBarres
		Application.ActiveWindow.Command "che cod " & CodeBarre
		If Application.ActiveWindow.Variable("P3GSZ") > 1 Then
			MonFichier.WriteLine CodeBarre
		End If
	Next
	MsgBox "Résultat dans CB_Doublons.txt"
End Sub

Les doublons sont inscrits dans un fichier.