Const ForReading = 1
Const ForWriting=2
Dim ResultArray(7)
Dim Attribute
Dim i
i=11
j=401
ISODrive="I:\"
destination="c:\test.txt"
Compuare_FirstTime()
Public Function Compuare_FirstTime()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile= objFSO.OpenTextFile (destination, ForReading)
Do Until objTextFile.AtEndOfStream
FileLine = objTextFile.ReadLine
ISO_Path=ISODrive+trim(FileLine)
If objFSO.FileExists(ISO_Path)Then
f=objFSO.GetFile(ISO_Path)
ResultArray(0)=FileLine
ResultArray(1)=ISO_Path
ResultArray(2)="Exists"
Attribute=ShowFileAccessInfo(ISO_Path)
ResultArray(3)=Attribute(0)
ResultArray(4)=Attribute(1)
ResultArray(5)=Attribute(2)
ResultArray(6)=Attribute(3)
ReportToExcel ResultArray,i
i=i+1
else
ResultArray(0)=FileLine
ResultArray(1)="NULL"
ResultArray(2)="Do not Exists"
ReportToExcel ResultArray,j
j=j+1
End if
Loop
objTextFile.Close
Set objFSO=Nothing
End Function
Function ShowFileAccessInfo(filespec)
Dim attribute(4)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
attribute(0)=ShowFileVersion(filespec)
attribute(1)=f.DateCreated
attribute(2)=f.DateLastModified
attribute(3)=f.size
ShowFileAccessInfo=attribute
End Function
Function ShowFileVersion(filespec)
Dim wShell, exec,version_original,version,command
Set wShell = CreateObject( "WScript.Shell" )
command="%comspec% /C filever.exe" +" " +filespec
Set exec = wShell.Exec( command )
version_original=exec.StdOut.ReadALL
ShowFileVersion=mid(version_original,27,10)
End Function
public Sub ReportToExcel(ByVal ResultArray,n)
Set fso=CreateObject("Scripting.FileSystemObject")
Set oExcel=CreateObject("Excel.Application")
Set objWorkBook = oExcel.Workbooks.Open("c:\result1.xls")
Set objSheet = oExcel.Sheets("Testing Result")
With objSheet
Environment.Value("Row") = .Range("C7").Value + n
.Cells(Environment("Row"),2).value = ResultArray(0)
.Cells(Environment("Row"),3).value = ResultArray(1)
.Cells(Environment("Row"),4).value = ResultArray(2)
.Cells(Environment("Row"),5).value = ResultArray(3)
.Cells(Environment("Row"),6).value = ResultArray(4)
.Cells(Environment("Row"),7).value = ResultArray(5)
.Cells(Environment("Row"),8).value = ResultArray(6)
End With
objWorkBook.Save
oExcel.Quit
Set objSheet = Nothing
Set objWorkBook = Nothing
Set oExcel = Nothing
Set fso = Nothing
End Sub
Public Function Report(ReportExcelFile)
Dim fso
Dim oExcel
Dim ExcelFile
Dim TestCaseName
Dim objWorkBook
Dim objSheet
Dim NewTC
Dim Status
Dim temp
Dim PngPath
Set fso=CreateObject("Scripting.FileSystemObject")
Set oExcel=CreateObject("Excel.Application")
Status=UCase(sStatus)
'oExcel.Visable=false
If Not fso.FileExists(ReportExcelFile) Then
oExcel.Workbooks.Add
Set objSheet=oExcel.Sheets.Item(1)
oExcel.Sheets.Item(1).Select
With objSheet
.Name="Testing Result"
.Columns("A:A").ColumnWidth=5
.Columns("B:B").ColumnWidth=100
.Columns("C:C").ColumnWidth=100
.Columns("D").ColumnWidth=60
.Columns("E:E").ColumnWidth=80
.Columns("F:F").ColumnWidth=80
.Columns("F:F").ColumnWidth=80
.Columns("G:G").ColumnWidth=80
.Columns("H:H").ColumnWidth=80
.Columns("A:H").HorizontalAlignment=-4131
.Columns("A:H").WrapText=True
' set style for Result Summery
.Range("B400:H400").Interior.ColorIndex = 53
.Range("B400:H400").Font.ColorIndex = 19
.Range("B400:H400").Font.Bold = True
'set style for Result Summery
.Range("B400:H400").Borders(1).LineStyle= 1
.Range("B400:H400").Borders(2).LineStyle= 1
.Range("B400:H400").Borders(3).LineStyle= 1
.Range("B400:H400").Borders(4).LineStyle= 1
.Range("B400:H400").HorizontalAlignment= -4131
.Range("C400:C1000").HorizontalAlignment= -4131
.Columns("B:H").Select '
.Columns("B:H").Autofit
.Range("B11").Select
End with
oExcel.ActiveWindow.FreezePanes = True
oExcel.ActiveWorkbook.SaveAs ReportExcelFile
oExcel.Quit
Set objSheet = Nothing
End If
End Function
Public Function GetIP
ComputerName="."
Dim objWMIService,colItems,objItem,objAddress
Set objWMIService = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * FromWin32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem in colItems
For Each objAddress in objItem.IPAddress
If objAddress <> "" then
GetIP = objAddress
Exit Function
End If
Next
Next
End Function