' Script for remote reboot/shutdown, power off, etc.
' You must have proper rights on a remote computer
' for this script to work

Dim StationName
Dim OpSysSet
Dim Flags
Dim Reserved
StationName = InputBox("Insert the Name of the Station to be Shutdown.")
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate,(RemoteShutdown)}//" & StationName).ExecQuery("select * from Win32_OperatingSystem where Primary=true")
' Flags Action
'  0    Logoff
'  1    Shutdown
'  2    Reboot
'  4    Force
'  8    Power Off
' 16    Force If Hung
Flags = 8
Reserved = 0
For Each OpSys In OpSysSet
   OpSys.Win32Shutdown Flags,Reserved
Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate, (Backup, Security)}!\\" _
        & strComputer & "\root\cimv2")
Set colLogFiles = objWMIService.ExecQuery _
    ("Select * from Win32_NTEventLogFile")
For Each objLogfile in colLogFiles
    If objLogFile.FileSize > 100000 Then
       strBackupLog = objLogFile.BackupEventLog _
           ("c:\scripts\" & objLogFile.LogFileName & ".evt")
       objLogFile.ClearEventLog()
    End If
Next

• Scriptomatic 2.0
• Do-It-Yourself Script Center Kit
• WMI Code Creator
• ADSI Scriptomatic
• Tweakomatic
• Log Parser 2.2
• Portable Script Center
• HTA Helpomatic
• Scriptomatic 1.0

Script center
Learn to Script
The Script Center Script Repository
The Windows PowerShell Toolbox

Documentation

• Sesame Script
Every Sesame Script article through June 2007 in one downloadable Help file.

• Hey, Scripting Guy!
Almost 500 Hey, Scripting Guy! articles, fully searchable.

• Windows PowerShell Help File
Fully-searchable help for Windows PowerShell.

• VBScript Quick Reference
Short and to-the-point cheat sheet for working with VBScript.

• Windows PowerShell Quick Reference
The basics of Windows PowerShell at your fingertips.