w1100n
This site is best viewed in Google Chrome
10/29/2012 11:24

Public Cnn, Rs Public function getDBInfo() Dim xmlFilePath, XMLObj, Xmlstr, ConnectionString xmlFilePath = environment(“DBConfig”) Set XMLObj = XMLUtil.CreateXMLFromFile(xmlFilePath) Dim root, DBInfo, Oracle, Server, Port, SID, UserName, Password Set root = XMLObj.GetRootElement() Set DBInfo = root.ChildElementsByPath(“./DBInfo”) If DBInfo.Count()<1 Then Reporter.ReportEvent micFail, … Continue reading

10/29/2012 11:21

‘/////////////////////////////////////////////////////////////////////////////////////////////////////////// ‘ ‘ Compare two plain file in row-to-row ‘ Return Code: 1 = same; 0=difference ‘ ‘////////////////////////////////////////////////////////////////////////////////////////////////////////// public Function ComparePlainFile(cFile1, cFile2) On Error Resume Next ComparePlainFile = 1 Const ForReading = 1 Dim fso, txtFile1, strLine1, txtFile2, strLine2 Set … Continue reading

10/29/2012 11:18

Public sub sendEmail(resultMsg) Const SMTP =”mail.google.com” Const userName=”username” Const password = “password” Const fromAddress = “QTP.Admin” Const toAddress =”abc@163.com, def@163.com” ‘ Format receiver001@abc.com, receiver002@abc.come, receiver003@abc.com On Error Resume Next Dim Email ‘ E-mail object Dim subject, attachments subject=”Auto Test Result” … Continue reading

辽ICP备14012896