update to vbscript, had trough numbers wrong.