Shutdown a list of computers using VB.net

[newsgroups.jd]

Im sure there is a better way to do this - just posting what I did to
get it to work.

Please feel free to comment with suggestions - this was my first vb.net
program and I am not a programmer, so im sure it has room for
improvement
Assumptions:
list of computers in C:\shutdownvbs\ computers.txt
log file at C:\shutdownvbs\ logFile.txt

Aslo had to add reference to System.Manageme nt
Project > Add reference > System.Manageme nt
Imports System.IO
Imports System.Manageme nt

Public Class Form1

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Try
Dim computerList As StreamReader = New
StreamReader("C :\shutdownvbs\c omputers.txt")
Dim logFile As StreamWriter =
File.AppendText ("C:\shutdownvb s\logFile.txt")
Dim computer As String, logMessage As String
Dim command As String
logMessage = " has been shutdown"
Do
computer = computerList.Re adLine()
Console.WriteLi ne(computer)
If My.Computer.Net work.Ping(compu ter) Then
Dim theDate As String =
FormatDateTime( DateTime.Now, DateFormat.Shor tDate)
Dim theTime As String =
FormatDateTime( DateTime.Now, DateFormat.Shor tTime)
logMessage = (theDate + " " + theTime + " " +
computer + " has been shutdown")
command = "shutdown -f -s -t 0 -m \\" + computer
Shell(command)
logFile.WriteLi ne("{0}", logMessage)
Else
End If
Loop Until computerList.En dOfStream
computerList.Cl ose()
logFile.Close()
Catch
Console.WriteLi ne("An error occurred.")
End Try
End Sub
End Class

[newsgroups.jd]

One thing I have not figured out yet is that if there is a computer in
the list that does not resolve it breaks the task and does not
continue.

JD

[Andrew Morton]

ne***********@g mail.com wrote:

One thing I have not figured out yet is that if there is a computer in
the list that does not resolve it breaks the task and does not
continue.

Does psshutdown from www.sysinternals.com cope with that situation?

Andrew

[Del]

I wrote a program in VB.NET that shuts down all computer on the domain using
wired or wireless

There are two ways to do it; InitializeSyste mShutdown (API), but the
machines need the remote shutdown privilige set. In XP, you can use
shutdown.exe using the switches. InitializeSyste mShutdown works across
platforms, shutdown.exe doesn't

Example:

Dim pi As New ProcessInfo

With pi
.Filename = "shutdown.e xe"
.Arguments = "-s -m \\" & YourComputerNam eHere & " -c " & chr(34) &
"Windows is shutting down" & chrs(34) & " -t 120"
End With

System.Diagnost ics.Process.Sta rt(pi)

Just typed the above in here. You will have to double-check the above to get
the code 100% perfect...

You have the main idea though

Crouchie1998
BA (HONS) MCP MCSE

I don't recomment the SysemInternals tool