运行批处理文件的VBS脚本，在启动时不运行

Question

我已经通过点击运行了它，并以管理员身份运行，它工作正常。

当我把它放在一个快捷方式中，配置为以管理员身份运行时，它不会在启动时启动。

这是我的VBS脚本：

Set objshell = wscript.createobject("wscript.shell")
objshell.run("C:ERPSystemzncbackupbatcallbackupdb.bat"),0, true

我想它在操作系统中有权限，因为它在其他计算机中正常工作。

Answer 1

如果它在其他计算机中正常工作，那么问题就出在你的操作系统中。你可以尝试将文件放在同一目录中，或者以管理员身份运行脚本。我已经尝试过你的脚本，它在我的笔记本电脑中运行良好(刚刚更改了批处理文件(

Answer 2

您可以尝试类似以下vbscript的东西：

Option Explicit
Dim PathApplication,ShortcutName,VbsPath
VbsPath = Wscript.ScriptFullName
PathApplication = "C:ERPSystemzncbackupbatcallbackupdb.bat"
ShortcutName = "Backupdb"
Call Shortcut(VbsPath,ShortcutName)
Call Hidden_Run(Dblquote(PathApplication))
'----------------------------------------------------------------------------------------
Sub Shortcut(PathApplication,ShortcutName)
Dim objShell,StartFolder,objShortCut,MyTab
Set objShell = CreateObject("WScript.Shell")
MyTab = Split(PathApplication,"")
If ShortcutName = "" Then
ShortcutName = MyTab(UBound(MyTab))
End if
StartFolder = objShell.SpecialFolders("Startup")
Set objShortCut = objShell.CreateShortcut(StartFolder & "" & ShortcutName & ".lnk")
objShortCut.TargetPath = Dblquote(PathApplication)
ObjShortCut.IconLocation = "%SystemRoot%system32SHELL32.dll,-25"
objShortCut.Save
End Sub
'----------------------------------------------------------------------------------------
Function DblQuote(Str)
DblQuote = Chr(34) & Str & Chr(34)
End Function
'----------------------------------------------------------------------------------------
Function Hidden_Run(MyProgram)
Dim ws,Result
Set ws = CreateObject("wscript.Shell")
Result = ws.run(MyProgram,0,True) '0 to hide the program
Hidden_Run = Result
End Function
'----------------------------------------------------------------------------------------