just have a look here,

Public function closeAllBrowsers()
Dim qtStartTime, ieStartTime, strComputer, objWMIService,ieProcessList,qtProcessList

strComputer = “.”
Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\cimv2″)

Set ieProcessList = objWMIService.ExecQuery (“Select * from Win32_Process Where Name = ‘iexplore.exe’”) ‘to get all list  of IE  which are in process
Set qtpProcessList = objWMIService.ExecQuery (“Select * from Win32_Process Where Name = ‘qtpro.exe’”) ‘To get all list of qtp which are in process

For Each qtpProcess in qtpProcessList
dtStartTime = qtProcess.CreationDate     ‘Date Time Month at the time of creation
qtStartTime = WMIDateStringToDate(dtmStartTime) ‘Returns qtp start time
Next

For Each ieProcess in ieProcessList
dtStartTime = ieProcess.CreationDate
ieStartTime = WMIDateStringToDate(dtmStartTime)  ‘Returns IE start time

If ieStartTime > qtStartTime Then    ‘If any IE browsers opened (process running) before QTP  process then it will close all
SystemUtil.CloseProcessById ieProcess.processid
End If
Next
End Function

‘To get Process time
Function WMIDateStringToDate(dtStart)
WMIDateStringToDate = CDate(Mid(dtmStart, 5, 2) & “/” & Mid(dtmStart, 7, 2) & “/” & Left(dtmStart, 4) & ” ” & Mid (dtmStart, 9, 2) & “:” & Mid(dtmStart, 11, 2) & “:” & Mid(dtmStart, 13, 2))
End Function

1.SetLocale(lcid)

a.if lcid=0 then the locale is set to match the current system setting

Msgbox (SetLocale(0))–>1033

b.Msgbox (SetLocale(“en-gb”))–>1033

c.SetLocale(currentLocale)-->1033

Note:1033 denotes “English – United States” Zone

by using this u can customize your time formats,zones,etc

here use Rnd argument number as -1

Script:

Dim MyValue, Response
Randomize   ‘ Initialize random-number generator.
Do Until Response = vbNo
MyValue = Int((9 * Rnd(-1)) + 1)   ‘ Generate random value between 1 and 9.
MsgBox MyValue
Response = MsgBox (“Is it same that prev value “, vbYesNo)
Loop

'If you want find specific local time zone.

Function Local_TimeZone()

End Function

]]> http://chinnu9999.wordpress.com/2011/02/05/find-your-zone-time/feed/ 0 chinnu9999 http://chinnu9999.wordpress.com/2011/02/05/how-to-lock-your-system-automatically/ http://chinnu9999.wordpress.com/2011/02/05/how-to-lock-your-system-automatically/#comments Sat, 05 Feb 2011 06:55:30 +0000 chinnu9999 http://chinnu9999.wordpress.com/?p=37 ]]> ’If you want lock your sustem once your script running is done automatically just you call the below function.

‘If you want lick ur system(for manual users)save this function in a .VBS file and then give one double click.

Function Lock_Mysystem()

Dim oSys,Syscmd

Set oSys = CreateObject("WScript.Shell")

Syscmd = "%windir%\SYSTEM32\rundll32.exe user32.dll,LockWorkStation"

oSys.Run Syscmd, 0, False

End Function
------------------------------------------------

Lock_Mysystem()'to call the function

Set ExcelFile = CreateObject(“Excel.Application”)
Set wb = ExcelFile.Workbooks.Open (resultsPath & Filename&”.xls”) ‘To  open  the  existing  work book

ExcelFile.Visible=False
wb.Sheets(nameSheet).select                                                                                                                                                                                                                  ‘To select  specific XL sheet
RCols = wb.Sheets(nameSheet).UsedRange.Columns.Count  ‘To get  the  number of  columns used
Rrows=wb.Sheets(nameSheet).UsedRange.Rows.Count    ‘To get  the  number of   rows used
For cl=1 to RCols
wb. Sheets(nameSheet).Cells(1,cl).Interior.ColorIndex = 53  ‘To set the color to the interior  of  the XLSheet
wb. Sheets(nameSheet).Cells(1,cl).Font.ColorIndex = 19   ‘To set the color to the fonts  of  the XLSheet
wb. Sheets(nameSheet).Cells(1,cl).Font.Bold=True
wb. Sheets(nameSheet).Columns(cl).Autofit  ‘To set  the  columns  as autofit
wb. Sheets(nameSheet).Cells(1,cl).Borders(1).LineStyle = 1  ‘To Set the Borders
wb. Sheets(nameSheet).Cells(1,cl).Borders(2).LineStyle = 1
wb. Sheets(nameSheet).Cells(1,cl).Borders(3).LineStyle = 1
wb. Sheets(nameSheet).Cells(1,cl).Borders(4).LineStyle = 1

For j=2 to Rrows
rvalue = wb.Sheets(nameSheet).cells(j,cl).Value
If StrComp(rvalue,”PASS”,1)=0 Then
Status=”"
wb. Sheets(nameSheet).Cells(j,cl).Font.ColorIndex=50
wb. Sheets(nameSheet).Cells(j,cl).Font.Bold=True
wb. Sheets(nameSheet).Columns(cl).Autofit
wb. Sheets(nameSheet).Cells(j,cl).Borders(1).LineStyle = 1
wb. Sheets(nameSheet).Cells(j,cl).Borders(2).LineStyle = 1
wb. Sheets(nameSheet).Cells(j,cl).Borders(3).LineStyle = 1
wb. Sheets(nameSheet).Cells(j,cl).Borders(4).LineStyle = 1
ElseIf StrComp(rvalue,”FAIL”,1)=0 Then
Status=”"
wb. Sheets(nameSheet).Cells(j,cl).Font.ColorIndex=3
wb. Sheets(nameSheet).Cells(j,cl).Font.Bold=True
wb. Sheets(nameSheet).Columns(cl).Autofit
wb. Sheets(nameSheet).Cells(j,cl).Borders(1).LineStyle = 1
wb. Sheets(nameSheet).Cells(j,cl).Borders(2).LineStyle = 1
wb. Sheets(nameSheet).Cells(j,cl).Borders(3).LineStyle = 1
wb. Sheets(nameSheet).Cells(j,cl).Borders(4).LineStyle = 1
End If
wb. Sheets(nameSheet).Cells(j,cl).Interior.ColorIndex = 19
wb. Sheets(nameSheet).Columns(cl).Autofit
‘wb. Sheets(nameSheet).Cells(j,cl).Font.Bold=100
wb. Sheets(nameSheet).Cells(j,cl).Borders(1).LineStyle = 1
wb. Sheets(nameSheet).Cells(j,cl).Borders(2).LineStyle = 1
wb. Sheets(nameSheet).Cells(j,cl).Borders(3).LineStyle = 1
wb. Sheets(nameSheet).Cells(j,cl).Borders(4).LineStyle = 1
Next
Next
wb.Sheets(“Con”).select
CCols = wb.Sheets(“Con”).UsedRange.Columns.Count
Crows=wb.Sheets(“Con”).UsedRange.rows.count

For ccl=1 to CCols
wb. Sheets(“Con”).Cells(1,ccl).Interior.ColorIndex = 53
wb. Sheets(“Con”).Cells(1,ccl).Font.ColorIndex = 19
wb. Sheets(“Con”).Cells(1,ccl).Font.Bold=True
wb. Sheets(“Con”).Columns(ccl).Autofit                                                                                                                                                                                                ‘Set Column width
wb. Sheets(“Con”).Cells(1,ccl).Borders(1).LineStyle = 1    ‘To Set the Borders
wb. Sheets(“Con”).Cells(1,ccl).Borders(2).LineStyle = 1
wb. Sheets(“Con”).Cells(1,ccl).Borders(3).LineStyle = 1
wb. Sheets(“Con”).Cells(1,ccl).Borders(4).LineStyle = 1

For crc=2 to crowCount+1
wb. Sheets(“Con”).Cells(crc,ccl).Interior.ColorIndex = 19
wb. Sheets(“Con”).Cells(crc,ccl).Font.Bold=200
wb. Sheets(“Con”).Columns(ccl).Autofit
wb. Sheets(“Con”).Cells(crc,ccl).Borders(1).LineStyle = 1
wb. Sheets(“Con”).Cells(crc,ccl).Borders(2).LineStyle = 1
wb. Sheets(“Con”).Cells(crc,ccl).Borders(3).LineStyle = 1
wb. Sheets(“Con”).Cells(crc,ccl).Borders(4).LineStyle = 1
If StrComp(Environment.Value(“EOT”),”TT”,1)=0 Then
For rc= crowCount+4 to Crows
For cc=1 to 2
wb. Sheets(“Con”).Cells(rc,cc).Interior.ColorIndex = 19
wb. Sheets(“Con”).Cells(rc,cc).Font.ColorIndex = 53
wb. Sheets(“Con”).Cells(rc,cc).Font.Bold=200
wb. Sheets(“Con”).Columns(cc).Autofit
wb. Sheets(“Con”).Cells(rc,cc).Borders(1).LineStyle = 1
wb. Sheets(“Con”).Cells(rc,cc).Borders(2).LineStyle = 1
wb. Sheets(“Con”).Cells(rc,cc).Borders(3).LineStyle = 1
wb. Sheets(“Con”).Cells(rc,cc).Borders(4).LineStyle = 1
Next
Next
End If
Next
Next
wb.Save
ExcelFile.Quit
Set ExcelFile = nothing
Set wb= nothing
Set ExcelSheet = nothing
End If

End Function

Filter function help you to filter a specific sub string in a string

Return Value:

Returns a zero-based array containing a subset of a string array based on a specified filter criteria.

Filter(InputStrings, Value[, Include[, Compare]])
Arguments:
InputStrings :
Required. One-dimensional array of strings to be searched. 
Value :
Required. String to search for. 
Include :
Optional. Boolean value indicating whether to return substrings that include  or exclude Value. If Include is True, Filter returns  the subset of the array that contains Value as a substring. If Include is False, Filter returns the subset of the array that does not  contain Value as a substring. 
Compare :
Optional. Numeric/Text comparision
Example:
Dim MyIndex
Dim MyArray (3)
MyArray(0) = "Sunday"
MyArray(1) = "Monday"
MyArray(2) = "Tuesday"
MyIndex = Filter(MyArray, "Mon") ' MyIndex(0) contains "Monday".
Remarks:If no matches of Value are found within InputStrings,  Filter returns an empty array. An error occurs if InputStrings is  Null or is not a one-dimensional array.
The array returned by the Filter function contains only enough  elements to contain the number of matched items.
Thanks,
Chinnu

mvar=Instr(“VB Script is fun!”,”is”)

msgbox(mvar)’returns 1st occurence position of the string/letter within another string

2.To get specific length of the string

MyVar = Mid(“VB Script is fun!”, mvar, 2)
msgbox(MyVar)  ‘ Returns ” is”

3.Suppose if you want to get specific text from a string,when you know the required string within another string but you dont know where it is in.

In this case you can use the following method to get directly:

mvar=Mid(“VB Script is fun!”,Instr(“VB Script is fun!”,”is”),2)
msgbox(mvar)  ‘ Returns  “is”

Example: Try this “I want to be a good quality engineer” find the specific text “quality”,whether it is presented in the given string or not? and get the same

Thanks,

Chinnu