Help converting a section of Perl to VBScript

[galli]

Hi there guys

I have a perl script that gets some basic system info data, and it has a section that converts a Western Digital Serial Number in Win32_PhysicalMedia in to a readable form.

Here is the section of the perl script:

foreach my $hdd ( in( $WMIServices->InstancesOf( $Class2 ) ) )
{
$sn=pack H36, $hdd->{serialNumber}."\n";
for ($ch=0;$ch<=18;$ch=$ch+2) {
$sn2=$sn2.substr($sn,$ch+1,1);
$sn2=$sn2.substr($sn,$ch,1);
}
push (@hdd,$sn2);
undef $sn2;
}

Does anyone know if it is possible to convert to VBScript?

Any help would be great!!!

Cheers

Ben

 

[PHV]

Can't you use the Hex function ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886