vbscript UAC

'/*
' * Start of UAC workaround code
' */
If WScript.Arguments.length =0 Then
    Set objShell = CreateObject("Shell.Application")

    objShell.ShellExecute "wscript.exe", Chr(34) & _
    WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else
    '/*
    ' * Start of code
    ' */

'*/
' * End of code
' * End of UAC workaround code
' */
End If