vbs纯小白，遇到一个问题，求解决...，应该是第6行有问题？

Question

Dim WshShell, strDesk, strWinDir, objLink
Set WshShell = CreateObject("WScript.Shell") ''创建对象
strDesk = WshShell.SpecialFolders("DeskTop") ''桌面文件夹路径
strWinDir = WshShell.ExpandenVironmentStrings("%WinDir%") ''系统文件夹路径
Set objLink = WshShell.CreateShortcut(strDesk & "\360.LNK")
objLink.TargetPath = "C:\Users\Administrator\AppData\Local\360ChromeX\Chrome\Application\360ChromeX.exe" & " " &  "--unsafely-treat-insecure-origin-as-secure=""http://bbs.siqweqw.com"""  & " " &"--user-data-dir=/test/only/profile/dir"
objLink.WorkingDirectory = strWinDir & "\system32" 
objLink.WindowStyle = 1 
objLink.IconLocation = "C:\Users\Administrator\AppData\Local\360ChromeX\Chrome\Application\360ChromeX.exe, 0"
objLink.Save

Answer 1

Dim WshShell, strDesk, strWinDir, objLink
Set WshShell = CreateObject("WScript.Shell") ''创建对象
strDesk = WshShell.SpecialFolders("DeskTop") ''桌面文件夹路径
strWinDir = WshShell.ExpandEnvironmentStrings("%WinDir%") ''系统文件夹路径
Set objLink = WshShell.CreateShortcut(strDesk & "\360.LNK")
objLink.TargetPath = "C:\Users\Administrator\AppData\Local\360ChromeX\Chrome\Application\360ChromeX.exe"
objLink.Arguments = "--unsafely-treat-insecure-origin-as-secure=""http://bbs.siqweqw.com"""  & " " &"--user-data-dir=/test/only/profile/dir"
objLink.WorkingDirectory = strWinDir & "\system32"
objLink.WindowStyle = 1
objLink.IconLocation = "C:\Users\Administrator\AppData\Local\360ChromeX\Chrome\Application\360ChromeX.exe, 0"
objLink.Save