我已经单击运行它,并以Admin身份运行,它可以正常工作。
当我将其放在配置为以管理员身份运行的快捷方式中时,它不会在启动时启动。
这是我的VBS脚本:
Set objshell = wscript.createobject("wscript.shell")
objshell.run("C:\ERPSystem\znc\backup\bat\callbackupdb.bat"),0, true
我想象它在操作系统中具有某些权限,因为它在其他计算机上可以正常工作。
答案 0 :(得分:0)
如果它可以在其他计算机上正常工作,则问题出在您的操作系统上,您可以尝试通过将文件放置在同一目录中或以管理员身份运行脚本来尝试运行脚本,因为我已经尝试过您的脚本在笔记本电脑上运行良好(只是更改了批处理文件) )
答案 1 :(得分:0)
您可以尝试使用类似vbscript的内容:
Option Explicit
Dim PathApplication,ShortcutName,VbsPath
VbsPath = Wscript.ScriptFullName
PathApplication = "C:\ERPSystem\znc\backup\bat\callbackupdb.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%\system32\SHELL32.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
'----------------------------------------------------------------------------------------