Set WshShell = WScript.CreateObject("WScript.Shell")
If WScript.Arguments.Length = 0 Then
 Set ObjShell = CreateObject("Shell.Application")
 ObjShell.ShellExecute "wscript.exe"_
 , """" & WSCript.ScriptFullName & """ RunAsAdministrator", , "runas", 1
WSCript.Quit
End if

Set objshell = WScript.createobject("WScript.shell")
 objshell.run("C:\inetpub\INSTALADORES\Scripts\ReinicializacaoDeServicos\sistema.bat"),0, true

Msgbox ("Sistema iniciado com sucesso!")