How to shut down all PCs on a network at a specific time, with a few exceptions.

I have a need to power down all PCs on the network (across two physical sites) that are still on after 10pm nightly.
There are about 40 PCs (out of 500+) that need to be kept on to run overnight processes or for remote connection for troubleshooting issues.

We have Windows Server 2000 and Windows Server 2003 for most of our servers. We also have Altiris for remote software deployment and remote control purposes.

How would I use either of these systems (Windows Server or Altiris) to power down the PCs, with some exclusions??
LVL 18
RartemassAuthor, martial arts coach, IT ConsultantAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
amritgillConnect With a Mentor Commented:
If you have configuration manger you can issue a shutdown command.

Also no policy, but this might do it:
http://www.specopssoft.com/products/specopsgpupdate/

It is a tool that lets you perform actions per OU - such as mass group policy update, mass shutdown, etc.
0
 
RartemassAuthor, martial arts coach, IT ConsultantAuthor Commented:
Thanks.
I'll check if we have config manager. I wasn' t involved with setting up the servers so unsure on what is installed.
I will investigate the specops software too. Quick question, does this software know when a PC is already powered down and skip it; or does it power it on to turn if back off?
0
 
debuggerauConnect With a Mentor Commented:
this is the script I use:

Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Set objFSO = CreateObject("Scripting.FileSystemObject")
strComputer = "."
 
On Error Resume Next
 
Set objOU = GetObject("LDAP://CN=Computers,dc=<yourdomainname>,dc=local")
objOU.Filter = Array("Computer")
Dim iNum
For Each objComputer in objOU
    iNum = 0
    If objComputer.CN = "<Excluded machine name here>" Then iNum = 1
    If iNum = 0 then
	    strComputer = objComputer.CN
	    Set objShell = CreateObject("WScript.Shell")
	    strCommand = "%comspec% /c ping -n 3 -w 1000 " & strComputer & ""
	    Set objExecObject = objShell.Exec(strCommand)
	    Do While Not objExecObject.StdOut.AtEndOfStream
        	strText = objExecObject.StdOut.ReadAll()
	        If Instr(strText, "Reply") > 0 Then
 
		    Set objTextFile = objFSO.CreateTextFile(strComputer & ".tsv", True)
		    objTextFile.WriteLine "Machine Name" & vbtab & strComputer
 
	            'Set objComputer = GetObject("WinNT://" & strComputer & "")
	            'objComputer.Filter = Array("User")
	            'For Each objUser in objComputer
	            '    Wscript.Echo strComputer & "  " & objUser.Name
	            'Next
		    'Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
		    'strComputer & "\root\default:StdRegProv")
			    'strKeyPath = "SOFTWARE\Classes\exefile\shell\open\command\"
		    'strValueName = ""
		    'oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
	
		    'objTextFile.WriteLine "exefile: " & strValue & vbtab
           
		    strCommand = "%comspec% /c shutdown -s -m \\" & strComputer & " -t 1 -f "
		    Set objExecObject = objShell.Exec(strCommand)
	        Else
	            'Wscript.Echo strComputer & " could not be reached."
	        End If
	   Loop
    End if
Next

Open in new window

0
Free tool for managing users' photos in Office 365

Easily upload multiple users’ photos to Office 365. Manage them with an intuitive GUI and use handy built-in cropping and resizing options. Link photos with users based on Azure AD attributes. Free tool!

 
RartemassAuthor, martial arts coach, IT ConsultantAuthor Commented:
Thanks debuggerau.
I'll check that script out too.

Will get back to you both.
0
 
KCTSCommented:
A simple batch script will also to the job eg

shutdown /s /t:10 /m Computer001
shutdown /s /t:10 /m Computer002
shutdown /s /t:10 /m Computer003
....
shutdown /s /t:10 /m Computer999
etc

Create the above as a text file, save it with the .bat extention and use task scheduler to tun it at the desired time
0
 
RartemassAuthor, martial arts coach, IT ConsultantAuthor Commented:
Thanks for your help.
The two methods awarded points have been tested and appear to work fine.
0
All Courses

From novice to tech pro — start learning today.