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