topic Re: need help converting a perl script to powershell in Microsoft Virtualization Discussions

need help converting a perl script to powershell

bever — Thu, 05 Jun 2025 06:50:22 GMT

I have a perl script which call an optap command via rsh and parses the output. If a certain condition is met, it calls another ontap via rsh to run a couple more ontap commands.

I am looking for help converting this to powershell and potentially getting rid of the rsh dependency if possible.

Can you help?

need help converting a perl script to powershell

GlennSizemore — Sat, 16 Jul 2011 16:37:26 GMT

Hey Bever, Try something like:

$interval = 5            
$Threshold = 99            
$Controller = Connect-NaController '192.168.1.91' -Credential root -Transient            
$first = New-Object Collections.HashTable            
$second = New-Object Collections.HashTable            
            
Get-NaPerfData -Name System `
    -Instances system `
    -Controller $Controller `
    -Counters 'total_processor_busy','cpu_elapsed_time','avg_processor_busy','cpu_elapsed_time1'|            
    Select-Object -ExpandProperty Counters |             
    ForEach-Object {            
        [void]$first.add($_.Name,$_.value)            
    }            
            
Start-Sleep -Seconds $interval            
            
Get-NaPerfData -Name System `
    -Instances system `
    -Controller $Controller `
    -Counters 'total_processor_busy','cpu_elapsed_time','avg_processor_busy','cpu_elapsed_time1' |            
    Select-Object -ExpandProperty Counters |             
    ForEach-Object {            
        [void]$second.add($_.Name,$_.value)            
    }            
                
$totalCpuBusy = ($second.total_processor_busy - $first.total_processor_busy)/($second.cpu_elapsed_time - $first.cpu_elapsed_time)            
$averageCpuBusy = ($second.avg_processor_busy - $first.avg_processor_busy)/($second.cpu_elapsed_time1 - $first.cpu_elapsed_time1)            
            
if ($averageCpuBusy -gt $threshold)            
{            
    Invoke-NaSsh "priv set diag; prof off; prof reset; prof on" -Controller $Controller            
    Start-Sleep -Seconds 60            
    Invoke-NaSsh "priv set diag; prof dump" -Controller $Controller            
}

Hope that helps,

~Glenn

Re: need help converting a perl script to powershell

bever — Tue, 19 Jul 2011 04:52:14 GMT

I have not been able to get this working in my lab. I have install v1.4 of the toolkit but I get errors when trying to run the script.

New-Object : Cannot find type : make sure the assembly containing this type is loaded

At C:\scripts\check_cpu.ps1:4 char:20

+ $first = New-Object <<<< Collections.HashTable

+ CategoryInfo : InvalidType: ( , PSArgumentException

+ FullyQualifiedErrorId : TypeNotFound,Microsoft.PowerShell.Commands.NewObjectCommand

New-Object : Cannot find type : make sure the assembly containing this type is loaded

At C:\scripts\check_cpu.ps1:5 char:21

+ $second = New-Object <<<< Collections.HashTable

+ CategoryInfo : InvalidType: ( , PSArgumentException

+ FullyQualifiedErrorId : TypeNotFound,Microsoft.PowerShell.Commands.NewObjectCommand