Click here to Skip to main content
Click here to Skip to main content

Remote Shutdown in VB.NET 2003 and C#.NET 2008

, 3 Jun 2010
Rate this:
Please Sign up or sign in to vote.
Shutdown, reboot, and log-off your remote PCs.
Sample screenshot

Sample screenshot

Introduction

This application can be used to shutdown, reboot, and logoff remote PCs. Client application that is 'remoteClientX' must be installed on client PCs and 'ServerX' is used to give commands like shutdown, reboot and logoff.

Listen State Module of remoteClientX

Sub ListenToServer()
  Try
    Dim LISTENING As Boolean
    Dim localhostAddress As IPAddress = IPAddress.Parse(ipAddress.ToString)
    Dim port As Integer = 63000
    '' PORT ADDRESS
    ''''''''''' making socket tcpList 
    ''''''''''''''''
    Dim tcpList As New TcpListener(localhostAddress, port)
    Try
      tcpList.Start()
      LISTENING = True
      Do While LISTENING
        Do While tcpList.Pending = False And LISTENING = True
          ' Yield the CPU for a while.
          Thread.Sleep(10)
        Loop
        If Not LISTENING Then Exit Do

        Dim tcpCli As TcpClient = tcpList.AcceptTcpClient()
        Dim ns As NetworkStream = tcpCli.GetStream
        Dim sr As New StreamReader(ns)
        ''''''''' get data from server'''''''''''''''
        Dim receivedData As String = sr.ReadLine()
        If receivedData = "###SHUTDOWN###" Then
          trShutdown = New Thread(AddressOf shutdown)trShutdown.Start()
        End If
        If receivedData = "###REBOOT###" Then
          trReboot = New Thread(AddressOf reboot)trReboot.Start()
        End If
        If receivedData = "###LOGOFF###" Then
          trLogOff = New Thread(AddressOf logoff)trLogOff.Start()
        End If
        Dim returnedData As String = "###OK###" '& " From Server"
        Dim sw As New StreamWriter(ns)
        sw.WriteLine(returnedData)
        sw.Flush()
        sr.Close()
        sw.Close()
        ns.Close()
        tcpCli.Close()
      Loop
      tcpList.Stop()
    Catch ex As Exception
      'error
      LISTENING = False
    End Try
End Sub

Here port address is taken as 63000.

ServerX Shutdown Request Module

Sub SendMessage()
  Dim host As String = txtClientIP.Text
  Dim port As Integer = 63000
  Try
    Dim tcpCli As New TcpClient(host, port)
    Dim ns As NetworkStream = tcpCli.GetStream

    ' Send data to the client.
    Dim sw As New StreamWriter(ns)
    If rbShutdown.Checked = True Then
        sw.WriteLine("###SHUTDOWN###")
    End If

    If rbReboot.Checked = True Then
        sw.WriteLine("###REBOOT###")
    End If
    If rbLogOff.Checked = True Then
        sw.WriteLine("###LOGOFF###")
    End If
    If rbNothing.Checked = True Then
        sw.WriteLine("to")
    End If
    sw.Flush()
    ' Receive and display data.
    Dim sr As New StreamReader(ns)
    Dim result As String = sr.ReadLine()
    If result = "###OK###" Then
        MsgBox("Operation Performed!!!", MsgBoxStyle.Information, _
               "Accepted by client")
    End If

    sr.Close()
    sw.Close()
    ns.Close()
  Catch ex As Exception
    MsgBox(ex.Message)
  End Try
End Sub

Note: remoteClientX must be run on remote PCs & check the network IP address.

t = objComputer.Win32Shutdown(8 + 4, 0)

The above statement is used to shutdown the system. Here 8 is the code for shutdown and 4 is for Force that is 8+4 : force shutdown, same for reboot and logoff.

Force shutdown: 8+4
Force reboot    : 2+4
LogOff            : 0

Note: remoteClientX uses WMI that is Win32_OperatingSystem class for force shutdown, force reboot, logoff.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

About the Author

Hari Om Prakash Sharma
Software Developer
India India
Developer
Follow on   Twitter

Comments and Discussions

 
GeneralThank You Hari! Pinmembergorpor25-May-08 18:52 
GeneralRe: Thank You Hari! PinmemberHari Om Prakash Sharma27-May-08 20:44 
Generalcode Pinmemberchanda sharma30-Mar-08 6:02 
AnswerRe: code PinmemberHari Om Prakash Sharma30-Mar-08 18:16 
Generalhai Pinmembersujithomas9-Oct-07 8:09 
GeneralExport data Pinmemberhungdl22-Sep-07 4:45 
GeneralThnx Hari! Pinmembertw1st3d9-May-07 19:18 
GeneralRe: Thnx Hari! PinmemberHari Om Prakash Sharma10-May-07 23:21 
GeneralShutdown command PinmemberKing_kLAx11-Sep-06 0:27 
GeneralRe: Shutdown command PinmemberHari Om Prakash Sharma11-Sep-06 3:43 
GeneralRe: Shutdown command PinmemberKing_kLAx15-Sep-06 0:17 
Generalsome guidance on my project Pinmembermanish30127-Aug-06 22:34 
GeneralRe: some guidance on my project Pinmemberbaljeet_1237-Nov-07 2:53 
GeneralAwesome code! Pinmemberphilipg3630-Jul-06 17:52 
JokeThank's Hari Om Prakash Sharma! Pinmembernguyenkiem25-Apr-06 15:40 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Mobile
Web04 | 2.8.140721.1 | Last Updated 3 Jun 2010
Article Copyright 2006 by Hari Om Prakash Sharma
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid