windows7自动登录后锁定 & 其他VBS

首先设置自动登录（原已设置登录密码），在开始菜单搜索框输 入 “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进行关机操作。