http://msdn.microsoft.com/en-us/library/xk6kst2k%28v=VS.85%29.aspx
in sections "Properties" On Fri, Jun 25, 2010 at 10:57 AM, rahul bansal <[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]> > 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 -- 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
