使用脚本调用系统的关机对话框实现代码
以前有介绍如何使用命令行调用系统的关机对话框：
具体方法：开始／运行：
但是，上述方法会存在一问题，XP下无法正常使用该方法进行关机（感谢网友沐烨 发现该问题）。问题原因可能是：正常情况下，关机对话框是有explorer.exe调用，直接使用rundll32调用时无法触发相关命令。
既然使用explorer.exe调用可以，我们可以尝试使用脚本来实现。实现原理：
激活explorer.exe
按ALT＋F4
编写VBS脚本如下（将下述内容另存为shutdown.vbs）：
上述脚本运行环境为：XP SP2
其他环境也可能正常工作，不过对于有多个explorer.exe进程的系统，就可能不正常工作了，如开了远程终端服务的多用户环境下。
具体方法：开始／运行：
rundll32.exe shell32.dll #60
但是，上述方法会存在一问题，XP下无法正常使用该方法进行关机（感谢网友沐烨 发现该问题）。问题原因可能是：正常情况下，关机对话框是有explorer.exe调用，直接使用rundll32调用时无法触发相关命令。
既然使用explorer.exe调用可以，我们可以尝试使用脚本来实现。实现原理：
激活explorer.exe
按ALT＋F4
编写VBS脚本如下（将下述内容另存为shutdown.vbs）：
Dim objWMI,wsh
Dim colProcesses,objProcess
pid=0
set objWMI = GetObject( "winmgmts:{impersonationLevel=impersonate}//. /root/cimv2" )
set colProcesses = objWMI.ExecQuery( "SELECT * FROM Win32_Process" & _
" WHERE Name='explorer.exe'" )
for Each objProcess In colProcesses
pid = objProcess.ProcessId
Next
set wsh = WScript.CreateObject("WScript.Shell")
wsh.AppActivate pid
wsh.sendKeys "%{F4}"
上述脚本运行环境为：XP SP2
其他环境也可能正常工作，不过对于有多个explorer.exe进程的系统，就可能不正常工作了，如开了远程终端服务的多用户环境下。
获取外网IP并发送到指定邮箱的vbs代码[已测]
''getIPsethttp=createobject("Microsoft.XMLHTTP")ipp="http://www.ip138.com/ip2city.asp"http.open"get",ipp,falsehttp.sendss=bytes2BSTR(Http.responsebody)intStrA=InStr(1,ss,"[",1)+1sss=mid(ss,intStrA)int
vbscript的骨灰级写法计算1到100的和
这篇日志完全是看了一篇日志后的启发，原文为：邪恶的eval和newFunction。很少使用newArray的方式来定义数组，没想到newArray有这么一个妙用，通过newArray(n
获取远程机器共享目录的物理路径的代码
第一：依靠135端口，用wmi。像下边的脚本是得到共享目录ttt的物理目录。strPath="\192.168.1.55ttt"strPath=Replace(strPath,"\","")arrPath=Split(strPath,"")strComputer=arrPat
