'**************************** 
'*by r05e 
'*检验SQL SERVER是否在这机器上工作 
'**************************** 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2") 
Set colServices = objWMIService.ExecQuery _ 
("Select * from Win32_Service Where Name='MSSQLServer'") 
If colServices.Count > 0 Then 
For Each objService in colServices 
Wscript.Echo "SQL Server is " & objService.State & "." 
Next 
Else 
Wscript.Echo "SQL Server is not installed on this computer." 
End If 

vbs 字符统计功能模块
字符统计功能模块SubTongJi()SetobjFSO=CreateObject("Scripting.FileSystemObject")SetobjFile=objFSO.OpenTextFile("ok.txt",1)strText=objFile.ReadAllAll=Len(strText)S="`~!@#$%^&*()-_=+|[{]};:',./?

重新安装ie的一个vbs
'run_ie_reinstall.vbs-RunstheInternetExplorerSetup'?DougKnox-4/10/2002'Downloadedfromwww.dougknox.comX=MsgBox("DoyouwanttoreinstallInternetExplorer?",vbYesNo,"Prompt!")Y=MsgBox("DoyouwanttoreinstallOu

中文姓名笔画计算（VBS脚本版）
'中文姓名笔画计算（VBS脚本版）dimword,keyword=inputbox("请输入你要计算的文字")ifword=""thenmsgbox"小样不是叫你不要输入文字吗"Wscript.Quitendifkey=char_wordnum(word)