Guys I think I have solved it. Put the $nul = MessageBox(@ProductType,"OS",0) in the script and behold I was given this" Windows LongHorn Media Center Edition" changed the line windows 7 for this and behold the entire script ran.

Here was I winver Windows 7 Ver.... in Dos windows 6.. bla bla...
wrong track entirely

now it reads
Case InStr(@PRODUCTTYPE, "Windows XP") Or InStr(@ProductType, "Windows 2000 Professional") Or InStr(@ProductType, "Windows LongHorn Media Center Edition")