Kod :
If WScript.Arguments.length = 0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & _
WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
End If
Vbscript ile yaptığınız programın yönetici olarak çalışması gerekiyorsa bu kodları, kodlarınızın başına ekleyerek Uac izni istenmesini sağlayabilirsiniz.