vbs遇到语法问题帮我看一下

最近工作上接触到了一个vsb，自己完完全全是没接触，有一个问题，一直报错，帮我看看，自己试了试应该是设置目标路径问题。也就是第6行

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="域名""  & "--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

根据您提供的VBScript代码，问题出在第6行，即设置目标路径的代码段。问题可能是由于目标路径字符串中的引号未正确处理而导致的语法错误。答案参考Chatgpt解答

下面是修改后的代码，修复了引号的问题：

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.sihenet.com:85"" --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

在修改后的代码中，我在目标路径字符串中正确处理了引号，使用两对引号来包含包含在目标路径中的双引号。

请尝试运行这个修改后的代码，看看是否还会报错。如果问题仍然存在，请提供具体的错误信息，以便更好地帮助您解决问题。

看了第六行代码，主要的问题是空格问题，你的命令和命令的参数之间是需要有空格的，而你之前的代码只是连接，而没有空格。另外还有双引号嵌套的问题，可以将其中一个改成单引号（或者取消双引号，根据经验，命令行里有些双引号去掉后也不影响识别），避免双引号嵌套。