用于获取 Windows 服务的 Tcl 脚本是否存在[关闭]

【问题标题】：Tcl script for getting windows service is exist or not [closed]用于获取 Windows 服务的 Tcl 脚本是否存在[关闭]
【发布时间】：2018-09-11 13:01:16
【问题描述】：

我想通过tcl脚本检查windows服务是否已经安装。请注意，我使用的是 ActiveTcl.8.6.7 版本。

提前致谢。

【问题讨论】：

标签： windows-services tcl

【解决方案1】：

registry 包（Windows 上的标准）可用于查看实际设置服务的位置。

package require registry
set services [registry keys {HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services}]
if {$yourServiceName in $services} {
    puts "It is installed"
} else {
    puts "No $yourServiceName in [join $services ,]"
}

（检查这对你有用！我在错误的操作系统上为你测试它......）

【讨论】：

在 windows 中，显示错误 can't read "$servicename": no such variable.
或许您应该在执行该脚本之前设置$servicename。