rem_dup_1.vbs

来自「my test for duplicate entry in active di」· VBS 代码 · 共 33 行

'==========================================================
' LANG : VBScript
' NAME : rem_dup_1.vbs
' VERSION : 1.0
' DATE : 2008-02-24
'==========================================================
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001
Const Dirname = "c:\morningcheck\elenchi\"
Const File = "site.txt"
Out = Dirname & File

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

'strPathToTextFile = "C:\Scripts\"
'strFile = "Test.txt"

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & Dirname & ";" & _
          "Extended Properties=""text;HDR=NO;FMT=Delimited"""

objRecordSet.Open "Select DISTINCT * FROM " & File, _
    objConnection, adOpenStatic, adLockOptimistic, adCmdText

Do Until objRecordSet.EOF
    Wscript.Echo objRecordSet.Fields.Item(0).Value   
    objRecordSet.MoveNext
Loop