|
我这有一段代码,提示 $path = \\Server\baojing\ 这行解析错误,请帮我看看怎么修改!
#include <GUIConstants.au3>
#NoTrayIcon
$path = \\Server\baojing\
While 1
$time0 = @mon & "月" & @mday & "日"
$time1 = "开始时间" & @mon & "-" & @mday & " " & @hour & ":" & @min & ":" & @sec
$time2 = @mon
$time3 = @mday
if FileExists ($path & $time0 & ".htm") then
Else
filewriteline($path & $time0 & ".htm","<HTML>")
filewriteline($path & $time0 & ".htm","<HEAD>")
filewriteline($path & $time0 & ".htm","<meta http-equiv='refresh' content='11'>")
filewriteline($path & $time0 & ".htm","<TITLE>")
filewriteline($path & $time0 & ".htm", $time2 & "月"& $time3 & "日" & "非法上机记录")
filewriteline($path & $time0 & ".htm","</TITLE>")
filewriteline($path & $time0 & ".htm","</HEAD>")
filewriteline($path & $time0 & ".htm","<BODY>")
EndIf
$name =regread("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName","ComputerName")
$name1 = @Computername
if ProcessExists ("pubwin.exe")Then
Else
$time0 = @mon & "月" & @mday & "日"
$time1 = "开始时间" & @mon & "-" & @mday & " " & @hour & ":" & @min & ":" & @sec
filewriteline($path & $time0 & ".htm","客户机 " & $name & " 发现PUBWIN进程被非法结束,请注意!" & $time1 & " ==== " & $name1 & "</P>" )
EndIf
Sleep(10000)
$name =regread("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName","ComputerName")
$name1 = @Computername
if FileExists ("C:\Program Files\PUBWIN\PUBWIN.EXE") then
Else
$time0 = @mon & "月" & @mday & "日"
$time1 = "开始时间" & @mon & "-" & @mday & " " & @hour & ":" & @min & ":" & @sec
filewriteline($path & $time0 & ".htm","客户机 " & $name & " 发现C:\Program Files\PUBWIN\PUBWIN.EXE" & $time1 & " ==== " & $name1 & "</P>" )
EndIf
Sleep(10000)
WEnd |
|