update DataGen.vbs