49 lines
1.2 KiB
Plaintext
49 lines
1.2 KiB
Plaintext
'Copyright (c) 1999 Microsoft Corporation
|
|
'
|
|
'Module Name:
|
|
' diff.vbs
|
|
'
|
|
'Abstract:
|
|
' script to find list of binaries not having symbol files in repository
|
|
' script does not take version into account
|
|
'
|
|
'Revision History:
|
|
' Brijesh Krishnaswami (brijeshk) - 05/17/99 - Created
|
|
|
|
Dim regEx, Match, Match2, Matches, Matches2
|
|
Dim fso, ts, strFile, str
|
|
Dim cExists, cNotExist
|
|
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
Set ts = fso.OpenTextFile("f:\\mpc\\core\\target\\i386\\new98bins", 1)
|
|
cExists = 0
|
|
cNotExist = 0
|
|
|
|
Do While Not ts.AtEndOfStream
|
|
strFile = ts.ReadLine
|
|
Set regEx = New RegExp
|
|
regEx.Pattern = "\w+\."
|
|
regEx.IgnoreCase = True
|
|
regEx.Global = True
|
|
Set Matches = regEx.Execute(strFile)
|
|
For Each Match in Matches
|
|
regEx.Pattern = "\w+"
|
|
str = Match.Value
|
|
Set Matches2 = regEx.Execute(str)
|
|
For Each Match2 in Matches2
|
|
strFldr = "\\pch18\\symshare\\symbols\\" + Match2.Value
|
|
if fso.FolderExists(strFldr) Then
|
|
cExists = cExists + 1
|
|
Else
|
|
Wscript.Echo(strFile)
|
|
cNotExist = cNotExist + 1
|
|
End If
|
|
Next
|
|
Next
|
|
Loop
|
|
ts.Close
|
|
Wscript.Echo("Bins with syms : " & cExists)
|
|
Wscript.Echo("Bins without syms : " & cNotExist)
|
|
|
|
|