使用脚本实现登录时的Num Lock 状态
[ 2006/08/24 08:55 | by gOxiA ]
通常我们为了实现数字键盘打开都会编辑注册表，对于初手要记住老长的键位确实够难的，所以我们可以通过脚本来实现此要求，编写的脚本放到启动项或同过组策略自动运行即可。不过我怎么感觉这样很麻烦，呵呵！总之微软既然为大家提供了此HOWTO我想还是应该学习利用一下的。脚本内容如下：
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{NUMLOCK}"
WshShell.SendKeys "{NUMLOCK}"
保存为numlock.vbs即可！
通过脚本察看当前TCP的连接数目
[ 2006/07/27 16:57 | by gOxiA ]
在网上找了个脚本可以查询到当前TCP的连接数目，非常有用哦！
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
Wscript.Echo "TCP连接数: " & objNetworkSettings.SetTCPNumConnections
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
Wscript.Echo "TCP连接数: " & objNetworkSettings.SetTCPNumConnections
通过VBS脚本提取IUSR和IWAM帐户的密码
[ 2006/06/29 17:25 | by gOxiA ]
Dim IIsObject
Set IIsObject = GetObject ("IIS://localhost/w3svc")
WScript.Echo "AnonymousUserName = " & IIsObject.Get("AnonymousUserName") & vbCrlf & _
"AnonymousUserPass = " & IIsObject.Get("AnonymousUserPass") &vbCrlf &vbCrlf &_
"WAMUserName = " & IIsObject.Get("WAMUserName") & vbCrlf & _
"WAMUserPass = " & IIsObject.Get("WAMUserPass")
Set IIsObject = Nothing
Set IIsObject = GetObject ("IIS://localhost/w3svc")
WScript.Echo "AnonymousUserName = " & IIsObject.Get("AnonymousUserName") & vbCrlf & _
"AnonymousUserPass = " & IIsObject.Get("AnonymousUserPass") &vbCrlf &vbCrlf &_
"WAMUserName = " & IIsObject.Get("WAMUserName") & vbCrlf & _
"WAMUserPass = " & IIsObject.Get("WAMUserPass")
Set IIsObject = Nothing
