Defragmenteer VMware Workstation Images

Ik vond een handig scriptje op de site ICT-Freak.
Ik een momenteel aardig wat vm’s draaien in VMworkstation.
Alleen de vm’s beginnen aardig groot te worden. Met dit scriptje worden ze wat kleiner.

Scriptje:

function Defrag-allVMDKs{
param([string]$path)
$vdiskmanager = “C:\Program Files\VMware\VMware Workstation\vmware-vdiskmanager.exe”
$parameter = “-d”
$List = get-childitem $path -recurse | where {$_.extension -eq “.vmx”} |
foreach-object -process { $_.FullName } | ForEach-Object {$_ -replace “.vmx”, “.vmdk”}
ForEach($vmdk in $List)
{
echo $vmdk
& $vdiskmanager $parameter $vmdk
}
}

Defrag-allVMDKs <drive>\<path>