WScript.Echo "Your pseudorandom number is " & GetPseudoRandom()

Function GetPseudoRandom()
dtStamp=Now
iNum=Minute(dtStamp) & Month(dtStamp) & Second(dtStamp) 
GetPseudoRandom=iNum
End Function