cleanConnect h = do
 writeCleanOut h ""
 writeCleanOut h "#-------------------"
 writeCleanOut h "# connect to vcenter"
 writeCleanOut h "#-------------------"
 writeCleanOut h ""
 writeCleanOut h "Connect-VIServer -Server $vcenter -User $vcenteruser -Password $vcenterpass"
cleanConnect h = do
 writeCleanOut h ""
 writeCleanOut h "#-------------------"
 writeCleanOut h "# connect to vcenter"
 writeCleanOut h "#-------------------"
 writeCleanOut h ""
 writeCleanOut h "Connect-VIServer -Server $vcenter -User $vcenteruser -Password $vcenterpass"
cleanConnect h = do
 writeCleanOut h ""
 writeCleanOut h "#-------------------"
 writeCleanOut h "# connect to vcenter"
 writeCleanOut h "#-------------------"
 writeCleanOut h ""
 writeCleanOut h "Connect-VIServer -Server $vcenter -User $vcenteruser -Password $vcenterpass"