20 lines
683 B
Plaintext
20 lines
683 B
Plaintext
' Áëîê ïîâûøåíèÿ ïðàâ (îñòàâüòå åãî â íà÷àëå)
|
|
If Not WScript.Arguments.Named.Exists("elevate") Then
|
|
CreateObject("Shell.Application").ShellExecute "wscript.exe", _
|
|
"""" & WScript.ScriptFullName & """ /elevate", "", "runas", 1
|
|
WScript.Quit
|
|
End If
|
|
|
|
' ÈÑÏÐÀÂËÅÍÈÅ: Ïîëó÷àåì ïóòü ê ïàïêå, ãäå ëåæèò âàø VBS-ôàéë
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
strPath = fso.GetParentFolderName(WScript.ScriptFullName)
|
|
|
|
Set WshShell = CreateObject("WScript.Shell")
|
|
|
|
' Çàïóñêàåì bat-ôàéë, óêàçûâàÿ åãî ÏÎËÍÛÉ ïóòü
|
|
' 0 — ñêðûòü îêíî, True — æäàòü çàâåðøåíèÿ (ïî æåëàíèþ)
|
|
WshShell.Run chr(34) & strPath & "\start0.bat" & Chr(34), 1, True
|
|
|
|
Set WshShell = Nothing
|
|
Set fso = Nothing
|