7. 创建Subversion服务之补充

手工启动Subversion服务容易出错，尤其是一个空格没打好也不行。所以我写了两个脚本，一个用来创建服务，一个用来删除服务。这两个脚本在Windows资源管理器里可直接运行。

Notice：就像第一个脚本注释里写的一样，运行Create Service.js时请右键点击“在命令行里运行”方可。不然会产生运行时错误。

Create Service.js

/**//*    Author: 杨冬
    Date: 2007-11-24
    
    This script is used to create subversion service and start it. The user is supposed to excute this script in the command line
    mode. Right click on the script file, select "Open in command line". When the script was running, it would ask you to type the
    svnserve.exe path which is exactly the same as subversion installation path and your respository path. If you specify nothing,
    their values would be replaced by their default values which is only suitable on my computer. :) Therefore, DON'T left the
    respository path empty.
*/

// Declarations
var serviceName = "svn";                                                // Service name
var srvPath = "";                                                    // Path of svnserve.exe
var resPath = "";                                                    // Path of your svn respository
var defaultSrvPath = "C:\\Program Files\\Subversion\\bin\\svnserve.exe";    // Default binPath
var defaultResPath = "C:\\Documents and Settings\\杨冬\\Files\\SvnRepos";    // Default resPath
var displayName = "Subversion Server";    // Display name

// Read the srvPath and resPath from user.
var stdin = WScript.Stdin;
var stdout = WScript.Stdout;
var srvPathPrompt = "请输入 svnserve.exe 的安装目录：";
stdout.WriteLine(srvPathPrompt);
var srvPath = stdin.ReadLine();
var resPathPrompt = "请输入您 Repository 的目录：";
stdout.WriteLine(resPathPrompt);
var resPath = stdin.ReadLine();
// If user entered nothing, then set srvPath and resPath to their default values.
if (srvPath == "") srvPath = defaultSrvPath;
if (resPath == "") resPath = defaultResPath;

// Assemble command string
var cmdStr = "sc create " + serviceName + " binpath= \"\\\"" + srvPath + "\\\"" +
    " --service -r " + "\\\"" + resPath + "\\\"\" displayname= \"" + displayName +
    "\" depend= Tcpip start= auto";

// Create the svn service.
var wshShell = WScript.CreateObject("WScript.Shell"); // Get WshShell object.
var oExec = wshShell.Exec(cmdStr); // Execute command.
while (oExec.Status == 0) WScript.Sleep(100); // Wait for command execution finish.

// Start the svn service.
var runCmd = "net start " + serviceName;
oExec = wshShell.Exec(runCmd);
while (oExec.Status == 0) WScript.Sleep(100);

// Show the user tip.
var tipStr = "服务已经启动\n" +
    "svnserve.exe 路径：\t" + srvPath + "\n" +
    "respository 路径：\t" + resPath;
wshShell.Popup(tipStr);

Delete Service.js

/**//*    Author: 杨冬
    Date: 2007-11-24
    
    This script will delete the subversion service on your computer. But the service must be named as "svn".
    If not, there would be no effect at all.
*/

var serviceName = "svn";    // Service name
var stopCmd = "net stop " + serviceName;
var delCmd = "sc delete " + serviceName;

// Execute command
var wshShell = WScript.CreateObject("WScript.Shell"); // Get WshShell object.
var oExec = wshShell.Exec(stopCmd); // Stop the service
while (oExec.Status == 0) WScript.Sleep(100); // Wait for command execution finish.
var oExec = wshShell.Exec(delCmd); // Delete the service
while (oExec.Status == 0) WScript.Sleep(100); // Wait for command execution finish.

// Show user tip.
var tipStr = "服务已经删除";
wshShell.Popup(tipStr);