我想写个定时重启电脑的程序，听说重启要权限，求高手指教，

Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Dim a As SYSTEMTIME
GetLocalTime a
Label1.Caption = "当前时间为" & a.wYear & "年" & a.wMonth & "月" & a.wDay & "日" & a.wHour & "时" _
& a.wMinute & "分" & "今天星期" & a.wDayOfWeek
If a.wHour = 8 And a.wDayOfWeek = 2 Then
'''''''''''''''这里需要执行重启操作，
End If

End Sub

Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Dim a As SYSTEMTIME
GetLocalTime a
Label1.Caption = "当前时间为" & a.wYear & "年" & a.wMonth & "月" & a.wDay & "日" & a.wHour & "时" _
& a.wMinute & "分" & "今天星期" & a.wDayOfWeek
If a.wHour = 8 And a.wDayOfWeek = 2 Then
'''''''''''''''这里需要执行重启操作，
Shell "shutdown -r -t 05"
End If

End Sub