[Iska]

id334492052@vk, зачем что-то изобретать, когда можно просто взять и просто добавить код в тот же VBS? Вот Вам примерная болванка:

Скрытый текст

Код:

Option Explicit

Dim strComputer

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim objSWbemObjectEx


strComputer = "."

Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")

objSWbemServicesEx.Security_.Privileges.AddAsString "SeShutdownPrivilege", True

For Each objSWbemObjectEx In objSWbemServicesEx.ExecQuery( _
		"SELECT * FROM Win32_UserAccount WHERE LocalAccount = True AND SID LIKE 'S-1-5-21-%-500'" _
	)
	
	If objSWbemObjectEx.Disabled Then
		If MsgBox("Enable [" & objSWbemObjectEx.Name & "] account?", vbQuestion + vbYesNo + vbDefaultButton2, "Enable account") = vbYes Then
			With GetObject("WinNT://" & strComputer & "/" & objSWbemObjectEx.Name & ",user")
				.AccountDisabled = False
				.SetInfo
			End With
			
			Call Reboot
		End If
	Else
		If MsgBox("Disable [" & objSWbemObjectEx.Name & "] account?", vbQuestion + vbYesNo + vbDefaultButton2, "Disable account") = vbYes Then
			With GetObject("WinNT://./" & objSWbemObjectEx.Name & ",user")
				.AccountDisabled = True
				.SetInfo
			End With
			
			Call Reboot
		End If
	End If
Next

WScript.Quit 0
'=============================================================================

'=============================================================================
Sub Reboot()
	Dim objSWbemObjectEx
	
	For Each objSWbemObjectEx In objSWbemServicesEx.ExecQuery("SELECT * FROM Win32_OperatingSystem")
		objSWbemObjectEx.Reboot()
	Next
End Sub
'=============================================================================