[Iska]

vbscript:

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

Код:

Option Explicit

Dim strNewVolumeID

strNewVolumeID = GetVolumeIDPart() & "-" & GetVolumeIDPart()

WScript.Echo strNewVolumeID
WScript.CreateObject("WScript.Shell").Run """C:\Program Files (x86)\Sysinternals.com\Sysinternals Suite\Volumeid.exe"" C: " & strNewVolumeID & "", 0, True

WScript.Quit 0

Function GetVolumeIDPart()
	Randomize Timer
	
	GetVolumeIDPart = Right("0000" & Hex(Int(Rnd() * 2^16)), 4)
End Function

Кстати, про «C:» — проще использовать для этих целей присоединённый виртуальный диск, поскольку ему можно сделать detach/attach сценарием (хоть в том же скрипте/файле, что и генерация и задание VolumeID) без перезагрузки.