Public function sGetCurrentTestScriptName()
Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
Dim qtTestName

if(IsExecutedFromQC()) then
sGetCurrentTestScriptName = qcutil.CurrentTest.Name
else
Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
sGetCurrentTestScriptName = qtApp.Test.Name
Set qtApp = Nothing ' Release the Application object
end if
End Function


Below is the code to obtain the ipaddress using WMI

Function LocalHostIPAddress()
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

For Each objitem In ColItems
strIP = Join(objitem.IPAddress, ",")
strIPAddress = strIP
Next
LocalHostIPAddress = strIPAddress
End Function


At times, there may be a need to sync your QTP client systems time with a remote system before executing a test. There are otherways to sync windows system time such as NTP servers. Below is one way to getting the target system time using WMI. Setting the local system time will be another function that I’ll post later.


Function tGetTargetSystemDateTime(ByVal hostname, ByVal username, ByVal password)

Reporter.Filter=0
End Function



Private Function WMIDateStringToDate(ByVal strTime)
WMIDateStringToDate = CDate(Mid(strTime, 5, 2) & "/" & _
Mid(strTime, 7, 2) & "/" & Left(strTime, 4) _
& " " & Mid (strTime, 9, 2) & ":" & _
Mid(strTime, 11, 2) & ":" & Mid(strTime, _
13, 2))
End Function



Public function IsExecutedFromQC()
 Dim CurrentTSTest
 if qcutil.IsConnected then
  Reporter.ReportEvent micPass,"Connected to QC", "Connected to Quality Center Server: " & qcutil.QCConnection.ServerName & vbcrlf & _
  "Project : " & qcutil.QCConnection.ProjectName & vbcrlf & " Domain : " & qcutil.QCConnection.DomainName
  Set CurrentTSTest = qcutil.CurrentTestSetTest
  if CurrentTSTest is Nothing then
   Reporter.ReportEvent micFail,"IsExecutedFromQC", "QTP is connected to quality center server. But the test is **not** executed from a Testlab in QC"
   IsExecutedFromQC = FALSE
  else
   Reporter.ReportEvent micPass,"IsExecutedFromQC", "The test is executed from a Testlab in QC"
   IsExecutedFromQC = TRUE
  end if
 else
  Reporter.ReportEvent micDone,"IsExecutedFromQC", "QTP is not connected to quality center server"
  IsExecutedFromQC = FALSE
 end if 
   
End Function

sendEmail(“c:\testreport.txt”, “myemail@mycompany.com”)

Function sendEmail(reportfile,sendto)

Set oMessage = CreateObject(“CDO.Message”)

‘==This section provides the configuration information for the remote SMTP server.
‘==Normally you will only change the server name or IP.
oMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2

‘Name or IP of Remote SMTP Server
oMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “Your_smtp_server_name”

‘Server port (typically 25)
oMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25

oMessage.Configuration.Fields.Update
oMessage.Subject = “Specify the subject here”
oMessage.Sender = “Your email ID”
oMessage.To = sendto
oMessage.CC = “an email ID”
oMessage.TextBody = “Please find the report attached” &vbcrlf & vbcrlf & “Thanks” & vbcrlf & “your name”
oMessage.AddAttachment reportfile
oMessage.Send

Set oMessage = Nothing

End Function


Sub Reboot_System(ByVal strTargetSystem, ByVal strUserName, ByVal strPassword)

Const FORCED_REBOOT = 6
Dim objLocator
Dim objWMIService

wbemImpersonationLevelImpersonate = 3
wbemAuthenticationLevelPktPrivacy = 6
Set objLocator = CreateObject(“WbemScripting.SWbemLocator”)
On Error Resume Next
Set objWMIService = objLocator.ConnectServer _
(strTargetSystem, “root\cimv2″, strUserName, strPassword)
objWMIService.Security_.ImpersonationLevel = wbemImpersonationLevelImpersonate
objWMIService.Security_.AuthenticationLevel = wbemAuthenticationLevelPktPrivacy

Set colOS = objWMIService.ExecQuery(“SELECT * FROM Win32_OperatingSystem”)

For Each objOS In colOS ‘only one
intReturn = objOS.Win32Shutdown(FORCED_REBOOT)
If intReturn 0 Then
Reporter.ReportEvent micFail, “Error: Unable to reboot.” & VbCrLf & _
“Return code: ” & intReturn
else
Reporter.ReportEvent micPass, “Successfully rebooted” & VbCrLf & _
“Return code: ” & intReturn
End If
Next

End Sub

Set ObjFSO = nothing
Set objNetwork = nothing
end function



Function parseArgs()
Dim filelen
filelen = WScript.Arguments.length
if filelen < 4 Then
WScript.Echo("Usage : cscript //nologo mapdrive.vbs ")
WScript.Echo("Example : cscript //nologo mapdrive.vbs i: \\myserver\data\myshare administrator mypassword")
WScript.Quit()
end if
mapdrive()
End function



parseArgs()


We could use the ExtendedStorage object in OTA API to transport files that are not attachments.
This ExtendedStorage Object allows us to transport files between QTP client and the QC server without having to attach files to specific Quality Center (QC) entities (such as a test).

The following code will upload a file called Trial.mdb from the QTP client to the project repository in QC

Set currentTest = QCUtil.CurrentTest
Set attachmentFact = currentTest.Attachments
Set extendedStorage = attachmentFact.AttachmentStorage
extendedStorage.serverpath = extendedStorage.serverpath
extendedStorage.clientpath = “C:\”
extendedStorage.save “Trial.mdb”, true

The following code can be used to download a file from the project repository to C:\ of the QTP Client:

Set currentTest = QCUtil.CurrentTest
Set attachmentFact = currentTest.Attachments
Set extendedStorage = attachmentFact.AttachmentStorage
extendedStorage.serverpath = extendedStorage.serverpath
extendedStorage.clientpath = “C:\”
extendedStorage.load “trial.mdb”, true

Notes:


'FileName : disconnectdrive.vbs
'Purpose  : To disconnect specified network drive
'Usage    : Usage  : cscript //nologo disconnectdrive.vbs <drive>
'To Debug : cscript //D //X //nologo disconnectdrive.vbs <drive>
'Example : Usage  : cscript //nologo disconnectdrive.vbs i:
'Date     : 08/01/2008

Function disconnectdrive()
set objNetwork = WScript.CreateObject(“WScript.Network”)
Set ObjFSO = CreateObject(“Scripting.FileSystemObject”)
strDrive = WScript.Arguments(0)

     if(ObjFSO.DriveExists(strDrive)) then
       objNetwork.RemoveNetworkDrive strDrive, True, True
       WScript.Echo “Disconnected network drive : ” & strDrive
     end if

Set ObjFSO = nothing
Set objNetwork = nothing
End function
‘———————————————————————————————
Function parseArgs()
    Dim filelen
    filelen = WScript.Arguments.length    
    if filelen < 1 Then
         WScript.Echo(“Usage  : cscript //nologo disconnectdrive.vbs <drive>”)
         WScript.Echo(“Example : cscript //nologo disconnectdrive.vbs i:”)
        WScript.Quit()
    end if  
    disconnectdrive()
End function
‘———————————————————————————————
parseArgs()

 

Function RemoteExecute(strServer, strUser, strPassword, strCommand)

Set objWMIService = nothing
Set objLocator = nothing
 
End Function