Rebootเครื่องด้วยScript

[imoomoo]

strComputer = "." ' Local Computer

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\" & _
strComputer & "\root\cimv2")

Set colOS = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

For Each objOS in colOS
objOS.Reboot()
Next

[Grabrial]

vb รึเปล่าครับ? เจ้าของกระทู้ แนะนำวิธีใช้ด้วยนะครับ เพราะผู้อ่านบางคนจะไม่ทราบว่าต้องเอาไปใช้ยังไง ^ ^ เห็นคุณ imoomoo ไปโพสไว้หลายอัน แต่ไม่ได้อธิบายไว้ซักอันเลยครับ และถ้าจะให้ดีผมว่ารวมเป็น topic เดียว และมาอธิบายแต่ละ code ดีกว่าครับ ^ ^ ไม่อย่างนั้นผมว่าเป็นการปั้มกระทู้โดยใช่เหตุ ^ ^