$computers = Get-VM | Select Name
$computers = $computers.Substring(0, $computers.IndexOf('.'))
$computers

$computers = Get-VM |ForEach-Object { $_.Name.Substring(0, $_.Indexof('.')) }