'On Error Resume Next ' 检查操作系统版本 Call CheckOS() Call MeEncoder()
' 程序初始化,取得参数 If WScript.Arguments.Count = 0 Then Call main() WScript.Quit Else Dim strArg, arrTmp For Each strArg In WScript.Arguments arrTmp = Split(strArg, "=") If UBound( arrTmp ) = 1 Then Select Case LCase( arrTmp(0) ) Case "sep" Call sep( arrTmp(1) ) Case "process_stop" Call process_stop( arrTmp(1) ) Case "process_start" Call process_start( arrTmp(1) ) Case "server_stop" Call server_stop( arrTmp(1) ) Case "server_start" Call server_start( arrTmp(1) ) Case "show_tip" Call show_tip( arrTmp(1) ) Case Else WScript.Quit End Select End If Next WScript.Quit End If