Как сделать операцию вручную в сценарий автозапуска?

Question

Я хочу сделать операцию вручную в сценарий автозапуска в win7. Моя операция:
step1 Чтобы войти в консоль cmd, выполните команду как администратор.

D:\wamp\wampmanager.exe 

step2 Для ввода команды тайм-аута в консоли cmd.

timeout 10 

step3 Чтобы загрузить данные в моей базе данных WordPress

mysql -u root -ppasswd wpdatabase < e:/back.sql 

Теперь я пишу команду как start.bat и сохраните его в каталоге автозагрузки.

D:\wamp\wampmanager.exe 
timeout 10 
mysql -u root -ppasswd wpdatabase < e:/back.sql 

Не имеет значения.

Важно, чтобы start.bat запускался как администратор, как запускать start.bat как администратор автоматически на этапе загрузки? Как это исправить?

Answer 1

Вот vbscript, который позволяет запускать команды щелчка правой кнопкой мыши на объектах оболочки, таких как файлы. Дважды щелкните по нему для справки.

---

для Windows Script Host

---

ShVerb

Списки или запускает Проводник глаголом (меню правой кнопкой мыши) на файл или папку

ShVerb <filename> [verb]

Используется без глагола он перечисляет глаголы, доступные для файла или папок

Программа списков большинства глаголов, а только те, над первым сепаратором

работы меню при использовании этого способа

Свойство можно использовать глагол. Однако программа должна продолжать работать

, чтобы сохранить диалог свойств открытым. Он продолжает работать, показывая

окно сообщения.

---

OK

---

HelpMsg = vbcrlf & " ShVerb" & vbcrlf & vbcrlf & " David Candy 2014" & vbcrlf & vbcrlf & " Lists or runs an explorer verb (right click menu) on a file or folder" & vbcrlf & vbcrlf & " ShVerb <filename> [verb]" & vbcrlf & vbcrlf & " Used without a verb it lists the verbs available for the file or folder" & vbcrlf & vbcrlf 
HelpMsg = HelpMsg & " The program lists most verbs but only ones above the first separator" & vbcrlf & " of the menu work when used this way" & vbcrlf & vbcrlf 
HelpMsg = HelpMsg & " The Properties verb can be used. However the program has to keep running" & vbcrlf & " to hold the properties dialog open. It keeps running by displaying" & vbcrlf & " a message box." 
Set objShell = CreateObject("Shell.Application") 
Set Ag = WScript.Arguments 
set WshShell = WScript.CreateObject("WScript.Shell") 
Set fso = CreateObject("Scripting.FileSystemObject") 

    If Ag.count = 0 then 
     wscript.echo " ShVerb - No file specified" 
     wscript.echo HelpMsg 
     wscript.quit 
    Else If Ag.count = 1 then 
     If LCase(Replace(Ag(0),"-", "/")) = "/h" or Replace(Ag(0),"-", "/") = "/?" then 
      wscript.echo HelpMsg 
      wscript.quit 
     End If 
    ElseIf Ag.count > 2 then 
     wscript.echo vbcrlf & " ShVerb - To many parameters" & vbcrlf & " Use quotes around filenames and verbs containing spaces" & vbcrlf 
     wscript.echo HelpMsg 
     wscript.quit 
    End If 

    If fso.DriveExists(Ag(0)) = True then 
     Set objFolder = objShell.Namespace(fso.GetFileName(Ag(0))) 
'  Set objFolderItem = objFolder.ParseName(fso.GetFileName(Ag(0))) 
     Set objFolderItem = objFolder.self 
     msgbox ag(0) 
    ElseIf fso.FolderExists(Ag(0)) = True then 
     Set objFolder = objShell.Namespace(fso.GetParentFolderName(Ag(0))) 
     Set objFolderItem = objFolder.ParseName(fso.GetFileName(Ag(0))) 
    ElseIf fso.fileExists(Ag(0)) = True then 
     Set objFolder = objShell.Namespace(fso.GetParentFolderName(Ag(0))) 
     Set objFolderItem = objFolder.ParseName(fso.GetFileName(Ag(0))) 
    Else 
     wscript.echo " ShVerb - " & Ag(0) & " not found" 
     wscript.echo HelpMsg 
     wscript.quit 
    End If 

    Set objVerbs = objFolderItem.Verbs 

    'If only one argument list verbs for that item 

    If Ag.count = 1 then 
     For Each cmd in objFolderItem.Verbs 
      If len(cmd) <> 0 then CmdList = CmdList & vbcrlf & replace(cmd.name, "&", "") 
     Next 
     wscript.echo mid(CmdList, 2) 

    'If two arguments do verbs for that item 

    ElseIf Ag.count = 2 then 
     For Each cmd in objFolderItem.Verbs 
      If lcase(replace(cmd, "&", "")) = LCase(Ag(1)) then 
       wscript.echo(Cmd.doit) 
       Exit For 
      End If 
     Next 
    'Properties is special cased. Script has to stay running for Properties dialog to show. 
     If Lcase(Ag(1)) = "properties" then 
      WSHShell.AppActivate(ObjFolderItem.Name & " Properties") 
      msgbox "This message box has to stay open to keep the " & ObjFolderItem.Name & " Properties dialog open." 
     End If 
    End If 
End If 

Answer 2

ли НУ говорят, что d:\wamp... вызывает сценарий, который будет работать в качестве администратора?

Есть много, много статей уже на SO, которые описывают, как запустить скрипт как администратор.

Ваша проблема может быть, что вы пытаетесь запустить start.bat - попробуйте переименовать его в startmysql.bat поскольку start является внутренней cmd команды.