charI="0123456789"
Redim numI(9) 
for x=0 to 9 
   numI(x)=right(left(charI, x+1), 1) 
next 
Randomize 
for x=1 to 5 
   sNewNameI=sNewNameI & numI(8*Rnd)
next 

msgbox sNewNameI

charS="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Redim numS(25) 
for x=0 to 25 
   numS(x)=right(left(charS, x+1), 1) 
next 
Randomize 
for x=1 to 12 
   sNewNameS=sNewNameS & numS(24*Rnd)
next 

Randomize 
for x=1 to 8 
   sNewNameS1=sNewNameS1 & numS(24*Rnd)
next 


Set oShell = CreateObject ("WSCript.shell")
With oShell
.RegWrite "HKLM\SOFTWARE\Microsoft\Internet Explorer\Registration\ProductId", "76481-640-8834005-" & sNewNameI
.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductId", "76481-640-8834005-" & sNewNameI
.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductId", "76481-640-8834005-" & sNewNameI
.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization", sNewNameS
.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner", sNewNameS1
End With