Remote System Shut Down - Please someone gimme the answer

[smalig]

Try it:

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

Private Sub Command1_Click()
Dim x&
x = InitiateSystemShutdown("pc_name", "Shutdown...", 0, True, False)
End Sub

------------------
smalig
[email protected]
smalig.tripod.com