$servername='mysserver'

$oWbemServices = GetObject("winmgmts://$servername/root/wmi")
$enumSetAdapters = $oWbemServices.InstancesOf("MSFC_FCAdapterHBAAttributes")
$enumSetPorts = $oWbemServices.InstancesOf("MSFC_FibrePortHBAAttributes")
$nIndex = 0
For Each $oEltAdapter In $enumSetAdapters
For Each $oEltPort In $enumSetPorts
If ($oEltAdapter.InstanceName = $oEltPort.InstanceName)  
 " Model: " + $oEltAdapter.Model ?
 " HardwareVersion: " + $oEltAdapter.HardwareVersion ?
 " DriverVersion: " + $oEltAdapter.DriverVersion ?
 " Status: " + $oEltAdapter.HBAStatus ?
 " node_wwn: "
For Each $piece In $oEltAdapter.NodeWWN
  $piece ':'
Next
 ? " port_wwn: "
For Each $piece In $oEltPort.Attributes.PortWWN 
	$piece ':'	
Next
?
$nIndex = $nIndex + 1
EndIf
Next ' $oEltPort'
Next ' $oEltAdapter'

$num=split("33:0:0:36:255:91:208:99",":")
for $i=0 to ubound($num)
  $num[$i]=dectohex($num[$i])
next
$hex=join($num,":")

? $hex

For Each $piece In $oEltPort.Attributes.PortWWN 
	dectohex($piece) +  ':'	
Next