Thanks dear for soon reply...
i need more example as you gave in your previous Ans.
like .strDesktop = WshShell.SpecialFolders("Desktop") - get access to
Desktop folder (for current user)
Becouse in link there is no explanation of syntex.
i will be thankfull for it
Kind regards
rahul
________________________________
From: Mason W. Foley <[email protected]>
To: [email protected]
Sent: Fri, 25 June, 2010 12:34:51 PM
Subject: Re: Doubt in QTp
What exactly are you looking for Rahul? The information linked earlier is
about as comprehensive as one can provide. Not sure that "more information" is
going to help here as it seems the information provided is more than
sufficient. Perhaps be more specific with your question?
Cheers,
Mason
On Fri, Jun 25, 2010 at 1:10 PM, rahul bansal <[email protected]>
wrote:
thanks dear ...
>
>can you provide more information..it will be helpfull for me
>
>kind regards
>rahul
>
>
>
>
________________________________
From: Roman Zilber <[email protected]>
>To: [email protected]
>Sent: Fri, 25 June, 2010 12:06:21 PM
>
>Subject: Re: Doubt in QTp
>
>
>strDesktop = WshShell.SpecialFolders("Desktop") - get access to
>Desktop folder (for current user)
>set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut
>Script.lnk") - CreateShortcut, that what it does
>other lines set properties for the shortcut
>
>you need to read about COM objects, and the link above about specific
>WshShell object.
>
>On Fri, Jun 25, 2010 at 9:54 AM, rahul bansal
><[email protected]> wrote:
>> hi ,
>>
>> can you explane what he is doing ..i need some theory regarding it
>> mean strDesktop = WshShell.SpecialFolders("Desktop") ,what it is doing ??as
>> i guess it is creating a folder ..
>> set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut
>> Script.lnk") ,,,,what it is doing i am not getting..
>> as i did not work on it so plz give some more link
>>
>>
>>
>> script language="VBScript">
>> set WshShell = WScript.CreateObject("WScript.Shell")
>> strDesktop = WshShell.SpecialFolders("Desktop")
>> set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut
>> Script.lnk")
>> oShellLink.TargetPath = WScript.ScriptFullName
>> oShellLink.WindowStyle = 1
>> oShellLink.Hotkey = "CTRL+SHIFT+F"
>> oShellLink.IconLocation = "notepad.exe, 0"
>> oShellLink.Description = "Shortcut Script"
>> oShellLink.WorkingDirectory = strDesktop
>>
>> kind regards
>> rahul
>> ________________________________
>> From: Roman Zilber <[email protected]>
>> To: [email protected]
>> Sent: Fri, 25 June, 2010 7:50:27 AM
>> Subject: Re: Doubt in QTp
>>
>> http://msdn.microsoft.com/en-us/library/aew9yb99%28VS.85%29.aspx
>>
>> look on the "Methods" section
>>
>> On Thu, Jun 24, 2010 at 10:53 PM, rahul bansal
>> <[email protected]> wrote:
>>> Hi to all,
>>>
>>> I am running this scripts and running perfect,But i am not getting what it
>>> is doing, i have mainly doubt on red marked area, as i never worked on
>>> shell
>>> object ,so i need some information of it.
>>>
>>>
>>>
>>>
>>> Dim oShell, oFSO
>>> Set oShell = CreateObject("WScript.Shell")
>>> Set oFSO = CreateObject ("Scripting.FileSystemObject")
>>> 'Install Visual C++ Run-time Component 2008
>>> On Error Resume Next
>>>
>>> s=oShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{3C3D696B-0DB7-3C6D-A356-3DB8CE541918}\DisplayVersion")
>>> If Err.Number = 0 Then
>>> Reports.Report "Warning",Environment("TestName"),"Checking if Visual C++
>>> Run-time 2008 is already installed.","Visual C++ Run-time 2008 was already
>>> installed.","Continue with HPACSP Prerequisite install."
>>> Else
>>> Reports.Report "Pass",Environment("TestName"),"Checking if Visual C++
>>> Run-time 2008 is already installed.","Visual C++ Run-time 2008 was not yet
>>> installed.","Begining install of Visual C++ Run-time 2008"
>>> PC.Application.CMD.ExecAndReadCommand """" & sGlobal_AutoPath &
>>> "Software\Microsoft\C++Redist2008\vcredist_x86.exe"" /q, 1, true"
>>> Wait 5
>>> On Error Resume Next
>>>
>>> s=oShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{3C3D696B-0DB7-3C6D-A356-3DB8CE541918}\DisplayVersion")
>>> If Err.Number = 0 Then
>>> Reports.Report "Pass",Environment("TestName"),"Checking if Visual C++
>>> Run-time 2008 was successfully installed.","Visual C++ Run-time 2008 was
>>> successfully installed.","Continue with HPACSP Prerequisite install."
>>> Else
>>> Reports.Report "Fail",Environment("TestName"),"Checking if Visual C++
>>> Run-time 2008 was successfully installed.","Visual C++ Run-time 2008 was
>>> not
>>> successfully installed.","Manual installation of the Visual C++ Run-time
>>> 2008 is required."
>>> End If
>>> On Error GoTo 0
>>> End If
>>> On Error GoTo 0
>>>
>>>
>>> Thanks in advanced
>>>
>>> Kind regards
>>> rahul bansal
>>>
>>> --
>>> You received this message because you are subscribed to the Google
>>> "QTP - HP Quick Test Professional - Automated Software Testing"
>>> group.
>>> To post to this group, send email to [email protected]
>>> To unsubscribe from this group, send email to
>>> [email protected]
>>> For more options, visit this group at
>>> http://groups.google.com/group/MercuryQTP?hl=en
>>
>> --
>> You received this message because you are subscribed to the Google
>> "QTP - HP Quick Test Professional - Automated Software Testing"
>> group.
>> To post to this group, send email to [email protected]
>> To unsubscribe from this group, send email to
>> [email protected]
>> For more options, visit this group at
>> http://groups.google.com/group/MercuryQTP?hl=en
>>
>> --
>> You received this message because you are subscribed to the Google
>> "QTP - HP Quick Test Professional - Automated Software Testing"
>> group.
>> To post to this group, send email to [email protected]
>> To unsubscribe from this group, send email to
>> [email protected]
>> For more options, visit this group at
>> http://groups.google.com/group/MercuryQTP?hl=en
>
>--
>You received this message because you are subscribed to the Google
>"QTP - HP Quick Test Professional - Automated Software Testing"
>group.
>To post to this group, send email to [email protected]
>To unsubscribe from this group, send email to
>[email protected]
>For more options, visit this group at
>http://groups.google.com/group/MercuryQTP?hl=en
>
>--
>
>You received this message because you are subscribed to the Google
>"QTP - HP Quick Test Professional - Automated Software Testing"
>group.
>To post to this group, send email to [email protected]
>To unsubscribe from this group, send email to
>[email protected]
>For more options, visit this group at
>http://groups.google.com/group/MercuryQTP?hl=en
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
