首先设置自动登录（原已设置登录密码），在开始菜单搜索框输 入 “netplwiz” 按 回车，打开高级用户控制面板，然后取消对“要使用本机，用户需输入用户名和密码(E)”项的勾选，系统弹出窗口要求输入默认登录系统的用户名和密码，输入完成 后点击确定就完成了设置。
接着是自动锁定，这个要用vbs代码来实现，将这个vbs文件附到开始菜单里的“启动”文件夹里即可。
vbs代码如下：
Dim Wsh
Set
Wsh = WScript.CreateObject("WScript.Shell")
Wsh.Run "ping 127.0.0.1 -n 20",0,True ‘延时20秒，给点时间让系统加载程序
Wsh.Run
"rundll32.exe
user32.dll,LockWorkStation",1,False
‘锁定计算机
Set Wsh=NoThing
WScript.quit
通过VBS实现自动拨号
Dim Wsh
Set Wsh =
WScript.CreateObject("WScript.Shell")
Wsh.Run "ping 127.0.0.1 -n
3",0,True
Wsh.Run "rasdial 宽带连接 宽带帐号 宽带密码",0,True
Set
Wsh=NoThing
WScript.quit
解释：
Wsh.Run "rasdial 宽带连接 宽带帐号
宽带密码",0,True 此行的宽带帐号，宽带密码（蓝字部分）为你的ADSL帐号及密码。
开机后延时运行自动关机
代码：
Dim Wsh
Set Wsh =
WScript.CreateObject("WScript.Shell")
WScript.Sleep(15000000)
‘延时15000s
wsh.run "shutdown -s -t
60"
‘运行shutdown进行关机，倒计时60s
Set Wsh=NoThing
WScript.quit
这个代码我让其开机运行，功能就是开机后15000s，运行shutdown进行关机操作。