Connect to SQL Server

Connection string fro SQL Server, use following code:
Steps:

1) Create an ADODB connection  with provider as "sqloledb"

2) Open database connection

Code:

'Connect to SQL Server
'==============================================
Function Create_SQL_Connection(DataSource,Ini_catalog)
'1) Create an ADODB connection  with provider as "sqloledb"'
set SQLcon= CreateObject( "ADODB.Connection")
SQLcon.ConnectionString = "Provider='sqloledb';Data Source='" & DataSource & "';" & _
          "Initial Catalog='" & Ini_catalog & " ';Trusted_Connection=YES"
'2) Open database connection'
SQLcon.Open
End Function

Make a message alert with ding sound using Microsoft Office assistant popup

Make a message alert with ding sound using Microsoft Office assistant popup, use following code:
Code:

strAgentName = "MERLIN"
strAgentPath = "C:\Windows\Msagent\Chars\" & strAgentName & ".acs"
Set objAgent = CreateObject("Agent.Control.2")

objAgent.Connected = TRUE
objAgent.Characters.Load strAgentName, strAgentPath
Set objPeter = objAgent.Characters.Character(strAgentName)

objPeter.MoveTo 500,300
objPeter.Show

objPeter.Play "GetAttention"
objPeter.Play "GetAttentionReturn"

objPeter.Speak("You got a message, script provided by Automation.ultimatetimepass.com")

Wscript.Sleep 2000

Set objAction= objPeter.Hide

Do While objPeter.Visible = True
Wscript.Sleep 250
Loop

Kill a task manager process

To Kill a task manager process , use following code:
Steps:
1) Get an object from winmgmts root\CIMV2

2) Execute SQL to retrieve all process from process

3) Kill all process

Code:

 Dim objWMIService, colItems,OSname,strComputer
 
          strComputer = "."
          strProcessToKill="Winword.exe"
'1) Get an object from winmgmts root\CIMV2'         
          Set objWMIService = GetObject("winmgmts:" _
              & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

'2) Execute SQL to retrieve all process from process             
          Set colProcessList = objWMIService.ExecQuery _
              ("Select * from Win32_Process Where Name = '" & strProcessToKill & "'")

'3) Kill all process'
          For Each objProcess in colProcessList
              objProcess.Terminate()
          Next

Launch TestPartner from VBscript or any other tool

' VB Script Document
option explicit
To launch TestPartner from VBscript or any other tool, use following code:
Steps:
1) Create a TestPartner application

2) Login to Testpartner

3) Make TestPartner visible

4) Connect to a Project

5) Open a script and execute

6) Wait until testpartner is executing script

7) Check results

8) Stop script.


        Dim tp 'As testpartner Object
        Dim proj 'As project Object
        Dim scr 'As script Object
         Dim Username, Password, Databasename, Projectname , Scriptname

'1) Create a TestPartner application
'
       Set tp = CreateObject("TestPartner.Application") 'create an instance of TestPartner

'2) Login to Testpartner

        tp.Login Username, Password, Databasename, True    'provide TestPartner login, password and database name details
'3) Make TestPartner visible'
        tp.show() 'show TestPartner App

'4) Connect to a Project'
        Set proj = tp.Projects.Item(Projectname) 'select project

        tp.show()

'5) Open a script and execute'
        Set scr = proj.Scripts.Item(Scriptname) 'select script

        scr.Open() 'open script

        scr.Execute() 'execute script
 
 '6) Wait until testpartner is executing script
        ' check every second if script is still running
        While tp.PlaybackInProgress

        Wend

'7) Check results
        ' show script result in a message box
        MsgBox(tp.LastResult.ChecksPassed & "/" & tp.LastResult.ChecksExecuted)

'8) Stop script.'
        tp.stop()