' 停止服务
Sub server_stop( byVal strServerName )
Set wso = CreateObject("WScript.Shell")
wso.run "sc config """ & strServerName & """ start= disabled", 0, True
wso.run "cmd /c echo Y|net stop """ & strServerName & """", 0, True
Set wso = Nothing
End Sub
' 启动服务
Sub server_start( byVal strServerName )
Set wso = CreateObject("WScript.Shell")
wso.run "sc config """ & strServerName & """ start= auto", 0, True
wso.run "cmd /c echo Y|net start """ & strServerName & """", 0, True
Set wso = Nothing
End Sub
' 显示提示信息
Sub show_tip( strType )
Set wso = CreateObject("WScript.Shell")
Select Case LCase(strType)
Case "stop"
wso.popup chr(13) + "正在停止 SEP，請稍等.. " + chr(13), 20, "StopSEP 正在运行", 0+64
Case "start"
wso.popup chr(13) + "正在启动 SEP，請稍等.. " + chr(13), 20, "StopSEP 已经停止", 0+64
End Select
Set wso = Nothing
End Sub
' Clear process
Sub process_clear()
'kill other app
Set pid = Getobject("winmgmts:.").InstancesOf("Win32_Process")
For Each ps In pid
Select Case LCase(ps.name)
Case "net.exe"
ps.terminate
Case "net1.exe"
ps.terminate
Case "sc.exe"
ps.terminate
Case "ntsd.exe"
ps.terminate
End Select
Next
End Sub
' ====================================================================================================
' ****************************************************************************************************
' * 公共函数
' * 使用方式：将本段全部代码加入程序末尾，将以下代码(1行)加入程序首行即可：
' * Dim WhoAmI, TmpDir, WinDir, AppDataDir, StartupDir, MeDir, UNCHost : Call GetGloVar() ' 全局变量
' * 取得支持：电邮至 yu2n@qq.com
' * 更新日期：2012-12-10 11:37
' ****************************************************************************************************
' 功能索引
' 命令行支持：
' 检测环境：IsCmdMode是否在CMD下运行
' 模拟命令：Exist是否存在文件或文件夹、MD创建目录、Copy复制文件或文件夹、Del删除文件或文件夹、
' Attrib更改文件或文件夹属性、Ping检测网络联通、
' 对话框：
' 提示消息：WarningInfo警告消息、TipInfo提示消息、ErrorInfo错误消息
' 输入密码：GetPassword提示输入密码、
' 文件系统：
' 复制、删除、更改属性：参考“命令行支持”。
' INI文件处理：读写INI文件(Unicode) ReadIniUnicode / WriteIniUnicode
' 注册表处理：RegRead读注册表、RegWrite写注册表
' 日志处理：WriteLog写文本日志
' 字符串处理：
' 提取：RegExpTest
' 程序：
' 检测：IsRun是否运行、MeIsAlreadyRun本程序是否执行、、、、
' 执行：Run前台等待执行、RunHide隐藏等待执行、RunNotWait前台不等待执行、RunHideNotWite后台不等待执行、
' 加密运行：MeEncoder
' 系统：
' 版本
' 延时：Sleep
' 发送按键：SendKeys
' 网络：
' 检测：Ping、参考“命令行支持”。
' 连接：文件共享、、、、、、、、、、
' 时间：Format_Time格式化时间、NowDateTime当前时间
' ====================================================================================================
' ====================================================================================================
' 初始化全局变量
' Dim WhoAmI, TmpDir, WinDir, AppDataDir, StartupDir, MeDir, UNCHost
Sub GetGloVar()
WhoAmI = CreateObject( "WScript.Network" ).ComputerName & "" & CreateObject( "WScript.Network" ).UserName ' 使用者信息
TmpDir = CreateObject("Scripting.FileSystemObject").getspecialfolder(2) & "" ' 临时文件夹路径
WinDir = CreateObject("wscript.Shell").ExpandenVironmentStrings("%windir%") & "" ' 本机 %Windir% 文件夹路径
AppDataDir = CreateObject("WScript.Shell").SpecialFolders("AppData") & "" ' 本机 %AppData% 文件夹路径
StartupDir = CreateObject("WScript.Shell").SpecialFolders("Startup") & "" ' 本机启动文件夹路径
MeDir = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName,"")) ' 脚本所在文件夹路径
' 脚本位于共享的目录时，取得共享的电脑名(UNCHost)，进行位置验证(If UNCHost <> "SerNTF02" Then WScript.Quit) ' 防止拷贝到本地运行
UNCHost = LCase(Mid(WScript.ScriptFullName,InStr(WScript.ScriptFullName,"")+2,InStr(3,WScript.ScriptFullName,"",1)-3))
End Sub
