|
|
发表于 2025-1-18 22:32:19
|
显示全部楼层
#检测网络连接
#设置连接的网络及端口
set host "www.baidu.com"
set port 123
#使用socket检查网络连接，判断电脑是否连接网络，如果没有连接处理报警及停止输出。
if {[catch {set socket [socket -async $host $port]}]} {
MOM_display_message "电脑没有连接网络，请连网后使用后处理。"
MOM_abort "\n\n电脑没有连接网络，请连网后使用后处理。\n\n"
} else {
MOM_outputto_listing_device "网络连接成功"
catch {close $socket}
}
#获取系统注册表中的时间设置
set reg_key "HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Services\\W32Time\\Parameters"
set reg_value "Type"
set cmd [exec reg query "$reg_key" /v "$reg_value"]
#系统注册表解析输出，判断电脑系统是否开启自动设置时间，如果没有开启则后处理报警及停止输出。
if {[regexp {Type\s+REG_SZ\s+(\w+)} $cmd match value] } {
if {$value eq "NTP"} {
MOM_output_to_listing_device "电脑系统开启自动设置时间"
} else {
MOM_output_to_listing_device "请开启电脑系统自动设置时间"
MOM_abort "\n\n电脑系统没有开启自动设置时间\n\n"
}
}
#当前时间大于设置的时间，输出报警信息
#获取当前时间（精确到秒）
set cktm [clock format [clock seconds] -format &Y&m&d&H&M&S -gmt 0]
#设置后处理过期时间，如果当前时间大于设置时间则停止输出
if {$cktm > "20260130173000"} {
MOM_abort "\n\n提示:后处理已经过期！\n\n"
}
|
|
