Visual Basic - initiatesystemshutdown

funciona initiatesystemshutdown en win xp,
no me marca ningun error pero no apaga el equipo remoto
InitiateSystemShutdown "maquina1", "apagar", 1, True, False

Revisa los parámetros porque no los estás enviando en forma correcta, funciona si tienes permisos de adminitrador en la máquina que quieres apagar, en la MSDN tienes especificado el alcance:

Declare Function InitiateSystemShutdown Lib "advapi32.dll" Alias "InitiateSystemShutdownA" (ByVal lpMachineName As String, ByVal lpMessage As String, ByVal dwTimeout As Long, ByVal bForceAppsClosed As Long, ByVal bRebootAfterShutdown As Long) As Long

InitiateSystemShutdown("\\maquina1", "apagar", 1, True, False