Oi,

 

Para desligar computador localmente:
Public Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Form_Load()

Form1.Visible = False
If MsgBox("Deseja Realmente Desligar o Computador", vbYesNo, "Encerrar Windows") = vbYes Then
Call ExitWindowsEx(1, 0)
Else
End
End If

End Sub

 

Tenta ver se vc adapta para desligar um pc na rede.

 

Achando a solução final, posta para nós aqui neste tópico.