Visual Basic - apagar/reiniciar en red

hola , tengo varios ordenadores conectados en red y necesito apagarlos o reiniciarlos desde mi ordenador tengo un codigo pero no me funciona en el form tengo puesto:
Private Sub Command1_Click()
InitiateSystemShutdown "\\pc1", "The system is Shutting Down", 30, True, True
End Sub

Private Sub Command2_Click()
AbortSystemShutdown "\\pc1"
End Sub
y en un modulo:
Public 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

Public Declare Function AbortSystemShutdown Lib "advapi32.dll" Alias "AbortSystemShutdownA" (ByVal lpMachineName As String) As Long
si alguien me puede indicar que esta mal o si alguien sabe otro codigo para apagar o reiniciar un ordenador de la red se lo agradeceria.