I think a general recommendation is if you don't know what the registry
code is doing, then you should not be changing it and leave it alone....
Would most agree with this for safety sake..
In a message dated 6/25/10 5:16:25 P.M. Eastern Daylight Time,
[email protected] writes:
as in this example i am not getting what they are doing ?? As i am
getting they are craeating a key in registery file and deleting it.i got this
code in QTP help guide..
Dim WshShell, bKey
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY"
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\MindReader",
"Goocher!", "REG_SZ"
bKey = WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\")
WScript.Echo
WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\MindReader")
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\MindReader"
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\"
WshShell.RegDelete "HKCU\Software\ACME\
____________________________________
From: Roman Zilber <[email protected]>
To: [email protected]
Sent: Fri, 25 June, 2010 1:14:30 PM
Subject: Re: Doubt in QTp
_http://msdn.microsoft.com/en-us/library/xk6kst2k%28v=VS.85%29.aspx_
(http://msdn.microsoft.com/en-us/library/xk6kst2k(v=VS.85).aspx)
in sections "Properties"
On Fri, Jun 25, 2010 at 10:57 AM, rahul bansal
<[email protected]_ (mailto:[email protected]) >
wrote:
> 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]_
(mailto:[email protected]) >
> To: [email protected]_ (mailto:[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]_ (mailto:[email protected]) >
> wrote:
>>
>> thanks dear ...
>>
>> can you provide more information..it will be helpfull for me
>>
>> kind regards
>> rahul
>>
>> ________________________________
>> From: Roman Zilber <[email protected]_ (mailto:[email protected]) >
>> To: [email protected]_ (mailto:[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]_ (mailto:[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]_ (mailto:[email protected]) >
>> > To: [email protected]_
(mailto:[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_
(http://msdn.microsoft.com/en-us/library/aew9yb99(VS.85).aspx)
>> >
>> > look on the "Methods" section
>> >
>> > On Thu, Jun 24, 2010 at 10:53 PM, rahul bansal
>> > <[email protected]_ (mailto:[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]_
(mailto:[email protected])
>> >> To unsubscribe from this group, send email to
>> >> [email protected]_
(mailto:[email protected])
>> >> For more options, visit this group at
>> >> _http://groups.google.com/group/MercuryQTP?hl=en_
(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]_
(mailto:[email protected])
>> > To unsubscribe from this group, send email to
>> > [email protected]_
(mailto:[email protected])
>> > For more options, visit this group at
>> > _http://groups.google.com/group/MercuryQTP?hl=en_
(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]_
(mailto:[email protected])
>> > To unsubscribe from this group, send email to
>> > [email protected]_
(mailto:[email protected])
>> > For more options, visit this group at
>> > _http://groups.google.com/group/MercuryQTP?hl=en_
(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]_
(mailto:[email protected])
>> To unsubscribe from this group, send email to
>> [email protected]_
(mailto:[email protected])
>> For more options, visit this group at
>> _http://groups.google.com/group/MercuryQTP?hl=en_
(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]_
(mailto:[email protected])
>> To unsubscribe from this group, send email to
>> [email protected]_
(mailto:[email protected])
>> For more options, visit this group at
>> _http://groups.google.com/group/MercuryQTP?hl=en_
(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]_
(mailto:[email protected])
> To unsubscribe from this group, send email to
> [email protected]_
(mailto:[email protected])
> For more options, visit this group at
> _http://groups.google.com/group/MercuryQTP?hl=en_
(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]_
(mailto:[email protected])
> To unsubscribe from this group, send email to
> [email protected]_
(mailto:[email protected])
> For more options, visit this group at
> _http://groups.google.com/group/MercuryQTP?hl=en_
(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]_
(mailto:[email protected])
To unsubscribe from this group, send email to
[email protected]_
(mailto:[email protected])
For more options, visit this group at
_http://groups.google.com/group/MercuryQTP?hl=en_
(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_
(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
