I see now in your VBS to Kix conversion, this line is different.

 Quote:
$objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!//" + $strComputer)


This code is dang near exactly the same as the linked one... Apronk must have gotten his from the same source. \:\)