The script suspends all running virtual machines.

suspend_vb_vms.cmd

@FOR /F "tokens=*" %%G IN ('VBoxManage list runningvms') DO @CALL :suspend %%G
 
:suspend
@SETLOCAL
@SET _name=%1
@SET _uuid=%2
@IF [%1]==[] GOTO:eof 
@echo Suspend: %_name%
VBoxManage controlvm %_uuid% savestate
@ENDLOCAL
@EXIT 0

Windows Bathfile.

The script suspends all running virtual machines.

Path to the VBoxManage.exe must by added to the system PATH variable.

for x64

SET PATH=%PATH%C:\Program Files\Oracle\VirtualBox;