Вот так можно получить случайное число:
Sc = CreateObject("MSScriptControl.ScriptControl");
Sc.language = "VBscript";
sc.executeStatement("randomize");
слч=Sc.eval("rnd");
А проверить на уникальность как пишет EnigMan.
Еще
здесь есть генератор случайных чисел.
Как я понял речь идет именно об уникальном целом числе.