2014年11月24日 星期一
to periodically Search file in php on web pages
< ? php
$url = 'http://www.example.com.tw/it/unnessaryfile.doc';
$array = get_headers($url);
$string = $array[0];
if(strpos($string,"200"))
{
echo 'url exists';
$myfile = fopen("C:/Users/%username%/Desktop/Server_found_unnessaryfile.txt", "w") or die("Unable to open file!");
$txt = "請檢查Server,同步到非必要檔案至網頁?????????\n";
fwrite($myfile, $txt);
fclose($myfile);
}
else
{
echo 'url does not exist';
}
? >
上面網頁存成 URLCheck.php
存成ServerFileCheck.bat檔,讓開機時,自動呼叫執行 URLCheck.php ,每天開機時自動檢查,是否有多餘非必要檔案(Server_found_unnessaryfile.txt)。
%comspec% /c php "E:\Apache\htdocs\URLCheck.php"
開機啟動執行機碼,自動呼叫執行 E:\ServerFileCheck.bat
REG ADD "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /V "URLCheck_php" /t REG_SZ /F /D "E:\ServerFileCheck.bat"
Search files in VBS
Set wshNetwork = WScript.CreateObject("Wscript.Network")
'設定電腦名稱參數,供追蹤使用
strComputerName =wshNetwork.ComputerName
Set objFSO = CreateObject("Scripting.FileSystemObject")
'將問題檔案資訊及該台電腦名稱,紀錄於\\PublicFolder公用資料夾中
If objFSO.FileExists("c:\bugex1.dll") Then
set objFile = objFSO.CreateTextFile("\\Publicfolder\" & strComputerName & "_bugex1")
Wscript.Echo "Found Bugex1 !"
'查其他問題檔案
Elseif objFSO.FileExists("c:\bugex2.xd") then
set objFile = objFSO.CreateTextFile("\\Publicfolder\" & strComputerName & "_bugex2")
Wscript.Echo ""Found Bugex2 !""
else
Wscript.Echo "Congratulation! Bugs not Found ^_^.."
End If
set wshNetwork = nothing
set strComputerName =nothing
set objFSO = nothing
set objFile = nothing
WScript.Sleep 3000
Wscript.Quit
'設定電腦名稱參數,供追蹤使用
strComputerName =wshNetwork.ComputerName
Set objFSO = CreateObject("Scripting.FileSystemObject")
'將問題檔案資訊及該台電腦名稱,紀錄於\\PublicFolder公用資料夾中
If objFSO.FileExists("c:\bugex1.dll") Then
set objFile = objFSO.CreateTextFile("\\Publicfolder\" & strComputerName & "_bugex1")
Wscript.Echo "Found Bugex1 !"
'查其他問題檔案
Elseif objFSO.FileExists("c:\bugex2.xd") then
set objFile = objFSO.CreateTextFile("\\Publicfolder\" & strComputerName & "_bugex2")
Wscript.Echo ""Found Bugex2 !""
else
Wscript.Echo "Congratulation! Bugs not Found ^_^.."
End If
set wshNetwork = nothing
set strComputerName =nothing
set objFSO = nothing
set objFile = nothing
WScript.Sleep 3000
Wscript.Quit
2014年11月16日 星期日
show all characters
複製文字片段程式,看起來是空白,實際上卻可能為TAB或 換行 CRLF,要如何檢視?
可透過 (開放源碼)NOTEPAD++ 工具,
檢視 | 特殊字元 | 顯示所有字元 。
相關查詢:
show all characters spaces tabs cr lf
NOTEPAD++ 制御文字をすべて表示
可透過 (開放源碼)NOTEPAD++ 工具,
檢視 | 特殊字元 | 顯示所有字元 。
相關查詢:
show all characters spaces tabs cr lf
NOTEPAD++ 制御文字をすべて表示