顯示文章

這裡允許您檢視這個會員的所有文章。請注意, 您只能看見您有權限閱讀的文章。


文章 - Dino9021

頁: 1 [2] 3 4 ... 6
31
Windows 討論版 / 回覆: sync自動備份軟體
« 於: 2008-12-10 02:21 »
SmartSync Pro :要錢, 比對項目很多

DFSR :Windows Server 內建
         有人說吃過他的虧, 不過目前我用起來沒什麼問題
         曾經遇過的問題已確認是 Router 的 VPN 連線有問題

32
怪的就是帳號沒有lost
密碼也沒過期

你要如何知道電腦密碼沒有過期?
能否教一下? 我還真不知道怎麼查詢電腦密碼是否過期...

33
我用本機admin登入退出domain重開機
再用本機admin登入重新加入domain重開機
我終於可以登入網域了...................

1. 電腦帳號遺失
2. 電腦密碼過期

34
MIS 討論區 / 回覆: 機櫃線路整理請教
« 於: 2008-12-02 06:40 »
一小部分整理完成, 討鞭...

原本長這樣... 其實這是暫時接的,­ 因為計畫等邏輯架構沒問題了再來整理實體線路
[圖移除]

半夜花了六個小時整理的成果
最上面是兩台 固16 FTTB 的 VDSL Modem
其下的 3Com 100M Switch 是用來作 Outside Switch
連接 VDSL Modem 與後端多個 Devices (Routers) 連線
[圖移除]

中間兩台 DeayTek (居易) 的 Vigor 2950 是用來建 VPN 用的 Router (互相備援)
再下面的 SMC Gigabits Switch 是 Server Zone (VLAN) 用的, 專門接伺服器等共用設備
最下面的第三台 DeayTek Vigor 2950 後端接的是網站, 要換固3的FTTB了
[圖移除]

顏色還沒有完全統一
綠色是 VDSL Modem -> Outside Switch
藍色是 Outside Switch -> Router
灰色是 Router -> Device
不過有兩條綠色的目前一個接的是 VOIP Device
一個接的是 Guest AP, 這個還要換線路
[圖移除]

看到下面那台 Zyxel 的 VDSL2 Modem 嗎?
他的燈號朝上, 所以我用一個紙板做了一個斜面, 貼上鋁箔紙就可以將燈號反射成正面
再把標示抄一遍貼在正面, 就能正確判讀燈號
[圖移除]

目前手上的資源只容許我做這麼多
沒有號碼環, 只能用貼的標示, 但手很痛了, 明天才貼標

除了沒有用機器打的線 & 理線槽以外, 還有什麼可以鞭的?
能否請大家不吝抽鞭...

35
MIS 討論區 / 回覆: 機櫃線路整理請教
« 於: 2008-12-02 06:36 »
MIS應該是幫老闆做建議,而不是幫老闆做決策
Dino您已經幫老闆做決策了
您這兩句話我想了好多天, 我分別站在自己的立場與老闆的立場思考
我覺得內心充滿了矛盾...
即使目前還沒有想通, 不過很感謝您這兩句話, 我還要再多想想才行...

36
檢查有沒有不該關的 Service 被關掉試試看

卡到陰...

37
喔喔...忘了說..該線路是正常的
我用notebook可以用該線路抓到dhcp沒問題
也可以手動設定ip

網路卡壞掉?
換一張試試看

38
朋友喜酒包紅包吧!

39
MIS 討論區 / 回覆: 機櫃線路整理請教
« 於: 2008-11-24 08:45 »
學技術不能靠別人來投資你,你必須投資你自己!! 不管花錢不花錢
你有沒有動力主動去學習??

呃, 這裡果然是狼區, 只是我還沒有長大成成年的狼...>"<

這麼說好了, 我個人是中文系出身, 從高中就是文組
從四年多前快退伍前經過某三子大人推薦來到酷學園
三年半前退伍取得目前工作
三年前借錢開始去上 MCSE 課程, 另外也上了 Exchange / 社區大學的 Linux 等一些課程
並且固定上酷學園, 訂閱 ITHome 雜誌...等

去年報名了 CCNA 的課程, 結果不巧遇上漲價, 原本兩萬多變四萬多, 實在沒錢上...
這個月初才考到 MCSE on 2003 (沒有看考古題憑實力考, 考過後才去看考古題增加知識)

我知道很多人會說要進修不一定要花錢上課, 上課也不一定能學到所有的東西
不過我畢竟沒有相關基礎, 先上課, 再自行進修對我來說成長速度比較快

所以, 希望大家能看到我其實是很有學習並充實/投資自己的渴望
誠心希望除了狼區的教育之外, 能否給我一些釣竿跟釣線/釣鉤
讓我能避免用錯方法/走錯方向, 浪費社會成本

或是...在狼區只能自己想辦法長大的話...
真得希望學園學長們能提供一些比較實際面的資訊
作為 IT / MIS 該有的態度我想我至少從學園這裡學習並內化了一大部分

40
MIS 討論區 / 回覆: 機櫃線路整理請教
« 於: 2008-11-24 07:26 »
咱家不認為如此.. 若是資訊系統處在一個不穩定的網路上面,個人認為再好的資訊系統也不會發揮多少效益!!
反過來看,若貴公司表單作業都可以取代電腦化作業.. 那另當別論.. 因為電腦化不夠,所以整改辦公室線路當然效益不高

大家就別鞭這個了...
不接網路時 (與網路無關), 開 Word / PowerPoint 要等 10-20 秒才開得出來, 開多幾個視窗就更久了
換了硬碟 / 記憶體加到 512 了 (SD-RAM......), 作業系統也有想盡辦法最佳化過了還是如此
這當然是換主機比換網路有投資報酬率吧...

問我也沒用
這種是典型的沒救
花小錢只是買到三個月的爽度而已
如果想花大錢下場可能也很慘

能不能請前輩們指引一個學習的道路?
比如有沒有哪幾本書籍以及案例可以學習的呢?
其實常看前輩們在鞭月球基地, 卻不知該如何避免自己也登陸月球...
如果說是找廠商學經驗, 也可能如 ZMAN 說的找到月球來的廠商...
且也會讓老闆很可憐...

如果沒有像前輩們這麼專業的指出問題所在
恐怕一輩子也沒發現自己住在月球...

有沒有辦法不要靠花大錢的可憐老闆+月球的廠商而學到這些技術及觀念呢?
(先從魔力門開始....)

41
MIS 討論區 / 回覆: 機櫃線路整理請教
« 於: 2008-11-23 17:56 »
想一下你要怎麼跟老闆報告這件事情?
如何老闆才會願意 "花錢" 去解決這個問題?

好吧, 其實我只是自己找事做
日常作業其實目前的網路環境一點兒問題也沒有
至少從來沒有人唉過網路慢或不通的
唉電腦慢的倒是不少 (還有白牌 P3-866 256MB 的....-.-"  我維護起來也很辛苦 O_Q)

不過即使總經理也支持換電腦, 預算還是被董事會砍, 那我也沒辦法 :Q
所以如果真要提建議花錢, 我也不會提要花錢去改良整個辦公室佈線
因為能為整個公司提升的效益不高

我只是純粹想整理一下機櫃佈線, 讓他更美觀好整理而已...
不知是否本文焦點被我自己模糊掉了...
我只是想問問在每個資訊插座排之間多空出 1U 空間來理線的情況下
有沒有其他好辦法能把線材整理好...

話說回來, 怎麼知道自己的網路環境到底健不健康? 有哪些需要改進的地方?
如果每天是五十台機器在 run , 從來沒有人唉過有問題的情況下?

42
MIS 討論區 / 回覆: 機櫃線路整理請教
« 於: 2008-11-23 16:32 »
光是這一個機櫃,不是只有兩台SMC的L2 switch啊,背後看得到的還有
一台3Com的switch吧....

好眼力!
竟然連 Switch 的背後看一眼就知道是什麼...

我是很有意願請人來看啦
只是很難有錢給人家賺...所以都很不好意思請廠商來幫我們建議...

Z 教主講很多次了:不要自己壓線頭。
買“合格”的 patch cord 來換吧。
不過,既然目前看起來都是自己壓線的,那後面的 drop cable 應該也不見得合格。
要做可以啦,進人事囉。
之前我就為公司某個點整理過一次,等大家下了班才開工,到凌晨快3點才弄好。

是的, 正是因為看到很多 [月球基地] 的文章
雖然我們目前並沒有因為 [國際等級] 的線材出現什麼靈異事件
不過我決定要提建議案買合格的線來換
因此才想問問看有實務經驗的前輩們
在我沒有辦法在每個資訊插座排之間多空出 1U 空間來理線的情況下
是否有其他好辦法能把線材整理好呢?

自己壓線頭除了品質不良以外...
手很痛.....Orz

備註:
   不過...
   從機房到各辦公桌資訊插座的線肯定是國際等級的...
   我只在機房中去改良會有實質效益嗎?

43
MIS 討論區 / 回覆: 機櫃線路整理請教
« 於: 2008-11-22 16:11 »
我只對電話分機那兒有點意見, 為什麼電話分機隨人移動就要改配線?
一般不都是話機接上去設定分機號碼就好了? 與線路沒什麼關係啊?

呃...因為本公司太厲害, 總機設備的廠商早就不見了, 也沒有說明書, 也沒有人會設定...
原來分機號碼是可以設定的喔? (筆記)

所以我們都是誰分機要換哪裡, 就去機房把線拔下來換...

44
MIS 討論區 / 機櫃線路整理請教
« 於: 2008-11-22 15:45 »
我想請教的是在有限的面板高度空間中 (大約10U而已) 這麼多面板+線材要怎麼整理才能兼顧美觀與實用?
先送兩張照片...

[圖移除]
[圖移除]

我想光是照片, 大家一定發現問題一堆
其實正在整理, 所以像照片中那個謎樣的黃色線只是拿來 [暫時綁東西] 用的...Orz
其他也有很多線也只是 [暫時] 掛著, 等著整理的...別拿這個來鞭....(逃)

先說明我的機房只是一個不到一坪小房間而已 (這還是總公司的機房, 比較大間, 分公司的機房只有一公尺平方左右...)
所以機櫃前面後面都上了設備, 目前我正在整理, 要把設備全都換到正面去, 背後只留資訊插座

而這些資訊插座沒有將網路與電話分開, 而是安照座位順序 1,2,3,4.... 這樣分下去...
每個座位有 3 個插座, 編號就是 1,2,3, 下一個座位編號就是 4,5,6...
我們通常把座位的第一個插座接電話, 第三個插座接網路, 中間的插座備用
這些插座對應到機房共有 5 排, 這 5 排的下面有 2 排分機插座

在照片中可以看到, 網路線都是自己打的頭
原因是為了不要讓線材亂糟糟, 而網路插座多是固定的, 不像電話分機一樣會跟人員移動而換來換去
所以都量了剛好的長度之後自己打頭接上
勉強還算美觀, 但是做的時候沒有經費可以買編號套環套上...Orz
別說編號環了, 連 RJ-45 頭的保護套都沒得買...
(還是有做個對應表可以看, 幸好真得不太會去更換線路)

而亂七八糟的就是電話接線
因為各資訊插座面板中間也沒有空間可以再留 1U 來理線了
而且又會需要換分機時換插座, 所以就亂七八糟放在那
也不是會影響功能, 但就是看起來很不專業...

最近看到許多討論中提到自己打的頭品質差很多
因此想請問以我目前遭遇的環境問題
應該怎麼處理才能夠既美觀又實用 (電話分機須要變動時不會影響配線) ?

45
現場還有switch一台串一台,最多達到串五台的水準 ....

能否請教 Switch 串接的問題是什麼?
因為我這邊也有串接, 目前總共是三台, 應該也不會再多了
不過還是希望能請教串接多台的問題及解決方案
(若同一網段有 200 台電腦要連線怎麼辦? 即使是 48 Port 的 Switch 也要 6 台啊...)

希望各位前輩能撥冗指教, 多謝!

46
雜七雜八 / [檢舉] 廣告訊息.....Orz
« 於: 2008-11-11 08:58 »
沒看到站務討論板
就丟這裡吧.... :-X

這個寄到私人訊息的....

如果你在台北縣市 跟我聯絡 可以去你們公司看看環境 升級還是其他可行方案

價錢不會像你說的那個貴啦!!  有興趣的話打我手機吧!! 0928568268 陳先生

反正就當交個朋友囉!! 最近常常出現類似問題 = =

47
如果無線電台串連一下,最好連電視台一起啦!

全部不撥新歌,都放老歌。放他個兩週。
這段期間,有藝人要出片?想打歌?那好,請你付錢來買時段,撥一次,收多少錢都定好。

原本電台和歌手的關係就是屬與互惠的,要搞成這樣?
沒有電台的強力放送,沒有電視 MV 的瘋狂打歌,我看你賣給誰!

可惜不播歌 / 音樂, 就沒有聽眾, 就沒有廣告, 就沒有錢......

48
各位學長大家好

最近有一個關於防毒的想法
如果利用 AD 的軟體限制原則, 設定只允許被設定的程式可以執行的話, 是否可以防毒?
因為若有程式感染病毒, 則 hash 值一定不同, 既然不同就會被限制不能執行...
這樣的想法正確嗎?

49
我升級 2K -> 2K3 時從來沒有用過 ADMT 之類的程式
基本上:
1. forestprep
2. domainprep
3. 2K3 dcpromo 加入成為 DC
4. 移轉五大腳色至 2K3 DC
5. 2K 降級成 Member Server 後移除

包過 2K3 -> 2K8 亦同

你會用其他什麼轉移程式我看已經有問題了
原則上根本不會需要用到的

50


要便宜的話, 10M/2M Dynamic FTTB 可以用 PPPOE 撥號取得一個固定 IP
每個月只要 990 , 還有贈品...


無言耶!! .... 看看樓主的需求吧!! 不要去害人家啦... 10M/2M Dynamic FTTB 可以用 PPPOE 撥號取得一個固定


這種 Solution 自己個人用用就好....

引述: simon2

是這樣的,因為最近公司內要架一台web server,所以老闆要我去規劃一下頻寬的問題,

Sorry, 文章很長忘記他說 5M-20M...
Dynamic FTTB 目前最高是 100M/5M 應該不夠用...

51
非常地謝謝各位前輩的指教

的確,價格是很重要的考量,但是目前問到這FTTB的價格,1M也要快3800,

要便宜的話, 10M/2M Dynamic FTTB 可以用 PPPOE 撥號取得一個固定 IP
每個月只要 990 , 還有贈品...

52
今天做了些修改, 參考看看
可以將未關機的電腦+使用者報表傳至 FTP
再用 php 讀取發出 E-mail

CheckPCOnline.vbs
代碼: [選擇]
'
' FSO 元件的開啟及關閉方法:
'
' Windows 2000
' 開啟: RegSvr32 C:\\WINNT\\SYSTEM32\\scrrun.dll
' 關閉: RegSvr32 /u C:\\WINNT\\SYSTEM32\\scrrun.dll
'
' Windows XP / 2K3
' 開啟: regsvr32 scrrun.dll
' 關閉: regsvr32 /u scrrun.dll
'
' 指令執行完畢後需登出才會生效
'
On Error Resume Next

Dim objShell
Dim objFSO

Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2
NowDateTime=DateAdd("h",0,now())
NowDateTimeForFileName=Year(NowDateTime) & "_" & Right("0" & Month(NowDateTime), 2) & "_" & Right("0" & Day(NowDateTime), 2) & "_" & Right("0" & Hour(NowDateTime), 2) & "_" & Right("0" & Minute(NowDateTime), 2) & "_" & Right("0" & Second(NowDateTime), 2)
NowDateTimeRegular=Year(NowDateTime) & "." & Right("0" & Month(NowDateTime), 2) & "." & Right("0" & Day(NowDateTime), 2) & " " & Right("0" & Hour(NowDateTime), 2) & ":" & Right("0" & Minute(NowDateTime), 2) & ":" & Right("0" & Second(NowDateTime), 2)

'--------------------------------------------------------------
' 設定值

' 測試用=1 (不刪除暫存檔供檢查) , 實際運作=0
ScriptForTest=1

' 作業系統語言, 執行 nbtstat 後顯示的是中文還是英文? 英文=0 , 中文=1
SystemOSLanguage=0

' 建立檢查未關機電腦名稱之批次檔
StepOneFileName = "StepOne.bat"

' 取得未關機電腦名稱
StepTwoFileName = "StepTwo.txt"

' 解析未關機電腦名稱
StepThreeFileName = "StepThree.bat"

' 取得未關機電腦之使用者名稱
StepFourFileName = "StepFour.txt"

' 合併未關機電腦名稱與其使用者名稱
StepFiveFileName = "PC_Online_"&NowDateTimeForFileName&".txt"

' 供發布的檔案名稱
AnnounceFileName= "PC_Online.txt"

' 要下指令關機之電腦
PCtoShutDownFileName = "ShutDownPC.txt"

' 關機指令
PCtoShutDownExecutionFileName = "ShutDownPC.bat"

' PsShutdown.exe 所在路徑 (後面不加 "\" 符號)
PsShutdownFileDirectory="C:\Program Files\PsTools"

' FTP 上傳批次暫存檔
FTPUploadBatchFileName="FTPUploadBatch.bat"

' FTP 上傳腳本暫存檔
FTPUploadScriptFileName="FTPUploadScript.txt"

' 要搜尋的網段 C_Class
IPClass="192.168.0"

' 要搜尋的起始 IP (含)
IPRangeFirst=100

' 要搜尋的結束 IP (含)
IPRangeLast=149

' 上傳之 FTP 位址 / IP , 相關資訊
FTPServer="ftp.test.com"
FTPUser="CheckPCOnline"
FTPPWD="password"

'--------------------------------------------------------------

' 刪除舊的 StepFile
If objFSO.FileExists(StepOneFileName) Then
objFSO.DeleteFile(StepOneFileName)
End If

If objFSO.FileExists(StepTwoFileName) Then
objFSO.DeleteFile(StepTwoFileName)
End If

If objFSO.FileExists(StepThreeFileName) Then
objFSO.DeleteFile(StepThreeFileName)
End If

If objFSO.FileExists(StepFourFileName) Then
objFSO.DeleteFile(StepFourFileName)
End If

If objFSO.FileExists(StepFiveFileName) Then
objFSO.DeleteFile(StepFiveFileName)
End If

If objFSO.FileExists(PCtoShutDownFileName) Then
objFSO.DeleteFile(PCtoShutDownFileName)
End If

' 預先開啟結案檔案
PCOnlineCount=0
Set StepFiveFile = objFSO.OpenTextFile(StepFiveFileName, ForWriting, True)
Set PCtoShutDownFile = objFSO.OpenTextFile(PCtoShutDownFileName, ForWriting, True)
StepFiveFile.WriteLine ""
StepFiveFile.WriteLine "未關機電腦報表"
StepFiveFile.WriteLine ""
StepFiveFile.WriteLine "檢查開始時間: "&NowDateTimeRegular
StepFiveFile.WriteLine "========================================"
StepFiveFile.WriteLine ""

' 建立檢查未關機電腦名稱查詢 BAT 檔
Set StepOneFile = objFSO.OpenTextFile(StepOneFileName, ForWriting, True)
IPNow=IPRangeFirst
While IPNow <= IPRangeLast
If SystemOSLanguage=0 Then
StepOneFile.WriteLine "nbtstat -A "&IPClass&"."&IPNow&" | Find ""UNIQUE"" /I | Find ""<00>"" /I >> "&StepTwoFileName
ElseIf SystemOSLanguage=1 Then
StepOneFile.WriteLine "nbtstat -A "&IPClass&"."&IPNow&" | Find ""唯一"" /I | Find ""<00>"" /I >> "&StepTwoFileName
End If
IPNow=IPNow+1
Wend
StepOneFile.Close
objShell.Run(StepOneFileName),1,True

' 開始解析未關機電腦名稱
If objFSO.FileExists(StepTwoFileName) Then

Set StepTwoFile = objFSO.OpenTextFile(StepTwoFileName, ForReading, False)

While StepTwoFile.AtEndOfStream <> True

' 從 StepTwoFileName 中解析出單純的電腦名稱
StepTwoFileNameTemp = Replace(StepTwoFile.ReadLine," ","")
StepTwoFileNameTempArray = Split(StepTwoFileNameTemp, "<00>")
ComputerName=StepTwoFileNameTempArray(0)

' 建立查詢該電腦使用者之批次檔 (StepFourFileName) , 電腦名稱為 StepTwoFileNameTempArray(0) 中
Set StepThreeFile = objFSO.OpenTextFile(StepThreeFileName, ForWriting, True)

' Windows XP 檔案結構
StepThreeFile.WriteLine "dir ""\\"&ComputerName&"\C$\Documents and Settings"" | Find ""<DIR>          "" /I | Find ""Default User"" /V /I | Find ""All Users"" /V /I | Find "">          ."" /V /I | Find ""Administrator"" /V /I | Find ""磁碟區"" /V /I | Find ""目錄"" /V /I | Find ""位元"" /V /I >> "&StepFourFileName
' Windows Vista 檔案結構
StepThreeFile.WriteLine "dir ""\\"&ComputerName&"\C$\Users"" | Find ""<DIR>          "" /I | Find ""Default User"" /V /I | Find ""Default"" /V /I | Find ""Public"" /V /I | Find ""All Users"" /V /I | Find "">          ."" /V /I | Find ""Administrator"" /V /I | Find ""磁碟區"" /V /I | Find ""目錄"" /V /I | Find ""位元"" /V /I >> "&StepFourFileName

StepThreeFile.Close

' 合併電腦與使用者資料第一步: 寫入電腦名稱
PCOnlineCount=PCOnlineCount+1
PCtoShutDownFile.WriteLine ComputerName
StepFiveFile.WriteLine "電腦名稱: "&ComputerName
StepFiveFile.WriteLine "--------------------"
' 合併電腦與使用者資料第一步: 寫入電腦名稱

' 執行 StepFourFileName 批次檔取得開電腦使用者名稱並存於 StepFourFileName 中
objShell.Run(StepThreeFileName),1,True

' 讀取 StepFourFileName 取得該電腦之使用者名稱
Set StepFourFile = objFSO.OpenTextFile(StepFourFileName, ForReading, False)

' 合併電腦與使用者資料第二步: 寫入使用者名稱
' 從 StepFourFileName 中解析出單純的使用者名稱
AddUser=0
While StepFourFile.AtEndOfStream <> True
StepFourFileNameTempArray = Split(StepFourFile.ReadLine, "<DIR>          ")
If ADDUser=0 Then
StepFiveFile.WriteLine "使用者: "&StepFourFileNameTempArray(1)
AddUser=1
Else
StepFiveFile.WriteLine "    "&StepFourFileNameTempArray(1)
End If
Wend
' 關閉 StepFourFileName 檔案
StepFourFile.Close
objFSO.DeleteFile(StepFourFileName)
StepFiveFile.WriteLine "----------------------------------------"
' 合併電腦與使用者資料第二步: 寫入使用者名稱
Wend
End If
StepTwoFile.Close
' 開始解析未關機電腦名稱

StepFiveFile.WriteLine ""
DoneDateTime=DateAdd("h",0,now())
DoneDateTimeRegular=Year(DoneDateTime) & "." & Right("0" & Month(DoneDateTime), 2) & "." & Right("0" & Day(DoneDateTime), 2) & " " & Right("0" & Hour(DoneDateTime), 2) & ":" & Right("0" & Minute(DoneDateTime), 2) & ":" & Right("0" & Second(DoneDateTime), 2)
StepFiveFile.WriteLine "========================================"
StepFiveFile.WriteLine "檢查結束時間: "&DoneDateTimeRegular
StepFiveFile.WriteLine "共有 "&PCOnlineCount&" 台電腦未關機"

StepFiveFile.Close
PCtoShutDownFile.Close
' 完成未關機列表

' 如果有電腦未關機則進行強制關機與公告
If PCOnlineCount<>0 Then

' 製作強制關機指令批次檔
Set PCtoShutDownExecutionFile = objFSO.OpenTextFile(PCtoShutDownExecutionFileName, ForWriting, True)
PCtoShutDownExecutionFile.WriteLine """"&PsShutdownFileDirectory&"\psshutdown"" -c -f -k -m ""為節省資源, 此電腦將在 10 分鐘後關機, 若要繼續使用請按 [Cancle]. For Saving Resources and [[--MONEY--]]. This computer will shutdown in 10 minutes. Press [Cancel] to preceed to use it. "" -n 10 -t 600 @"&PCtoShutDownFileName
PCtoShutDownExecutionFile.Close

' 執行強制關機指令批次檔
If ScriptForTest=0 Then
objShell.Run(PCtoShutDownExecutionFileName),1,True
End If

' 製作公佈檔案
objFSO.CopyFile StepFiveFileName , AnnounceFileName , TRUE

' 製作上傳 FTP 執行批次檔
Set FTPUploadBatchFile = objFSO.OpenTextFile(FTPUploadBatchFileName, ForWriting, True)
FTPUploadBatchFile.WriteLine "ftp -v -s:"&FTPUploadScriptFileName&" "&FTPServer
FTPUploadBatchFile.Close

' 製作上傳 FTP 執行批次檔之腳本檔
Set FTPUploadScriptFile = objFSO.OpenTextFile(FTPUploadScriptFileName, ForWriting, True)
FTPUploadScriptFile.WriteLine FTPUser
FTPUploadScriptFile.WriteLine FTPPWD
FTPUploadScriptFile.WriteLine "send "&AnnounceFileName
FTPUploadScriptFile.WriteLine "quit"
FTPUploadScriptFile.Close

' 上傳 FTP
If ScriptForTest=0 Then
objShell.Run(FTPUploadBatchFileName),1,True
End If

End If

' 實際運作時刪除暫存檔案
If ScriptForTest=0 Then
objFSO.DeleteFile(StepOneFileName)
objFSO.DeleteFile(StepTwoFileName)
objFSO.DeleteFile(StepThreeFileName)
objFSO.DeleteFile(PCtoShutDownFileName)
objFSO.DeleteFile(PCtoShutDownExecutionFileName)
objFSO.DeleteFile(FTPUploadBatchFileName)
objFSO.DeleteFile(FTPUploadScriptFileName)
objFSO.DeleteFile(AnnounceFileName)
End If


CheckPCOnline.php
代碼: [選擇]
<?

$AdminEmail="Administrator@test.com";

$SMTP_Server="192.168.0.1";

ini_set ( 'SMTP', $SMTP_Server );
ini_set ( 'smtp_port', '25' );
ini_set ( 'sendmail_from', $AdminEmail);

$File="D:\WebSite\PC_Online.txt";

$NowTime=getdate();

if (strlen($NowTime['mon'])==1) {
$NowTime['mon']="0".$NowTime['mon'];
};

if (strlen($NowTime['mday'])==1) {
$NowTime['mday']="0".$NowTime['mday'];
};

if (strlen($NowTime['hours'])==1) {
$NowTime['hours']="0".$NowTime['hours'];
};

if (strlen($NowTime['minutes'])==1) {
$NowTime['minutes']="0".$NowTime['minutes'];
};

if (strlen($NowTime['seconds'])==1) {
$NowTime['seconds']="0".$NowTime['seconds'];
};

$Now=$NowTime['year'].".".$NowTime['mon'].".".$NowTime['mday']." ".$NowTime['hours'].":".$NowTime['minutes'].":".$NowTime['seconds'];

if (file_exists($File)==1) {

$fd=fopen($File,'r');
$FileContent=fread($fd,filesize($File));
$FileContentArray=split("\r\n",$FileContent);

$MessageBody="";
for ($i=0;$i<count($FileContentArray);$i++) {
$MessageBody.=$FileContentArray[$i]."<br>\r\n";
};

fclose($fd);

$MessageSubject = "未關機電腦報表 ".$Now;

$MessageHeaders = "From: CheckPCOnline <".$AdminEmail.">\r\nReply-To: ".$AdminEmail."\r\nMIME-Version: 1.0\nContent-type: text/html; charset=big5\rContent-Transfer-Encoding: 8bit";

$IsMailSucceed=mail($AdminEmail, $MessageSubject, $MessageBody, $MessageHeaders);


if ($IsMailSucceed==1) {
echo "E-mail 寄送完成!";
} else {
echo "E-mail 寄送失敗";
};

unlink($File);
};
exit;
?>

53
花了一個晚上寫了這個小小程式
迫不及待與大家分享...
應該還有更好的寫法, 不過累了....

存成 .vbs 就可以執行了~
最好用網域 Administrator 或可以登入網域中每一台 PC 的帳號執行
才能查出該電腦的使用者是誰 / 有哪些

代碼: [選擇]
'
' FSO 元件的開啟及關閉方法:
'
' Windows 2000
' 開啟: RegSvr32 C:\\WINNT\\SYSTEM32\\scrrun.dll
' 關閉: RegSvr32 /u C:\\WINNT\\SYSTEM32\\scrrun.dll
'
' Windows XP / 2K3
' 開啟: regsvr32 scrrun.dll
' 關閉: regsvr32 /u scrrun.dll
'
' 指令執行完畢後需登出才會生效
'
Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2
NowDateTime=DateAdd("h",0,now())
NowDateTime=Year(NowDateTime) & "_" & Right("0" & Month(NowDateTime), 2) & "_" & Right("0" & Day(NowDateTime), 2) & "_" & Right("0" & Hour(NowDateTime), 2) & "_" & Right("0" & Minute(NowDateTime), 2) & "_" & Right("0" & Second(NowDateTime), 2)

'--------------------------------------------------------------
' 設定值

' 建立檢查未關機電腦名稱之批次檔
StepOneFileName = "C:\StepOne.bat"

' 取得未關機電腦名稱
StepTwoFileName = "C:\StepTwo.txt"

' 解析未關機電腦名稱
StepThreeFileName = "C:\StepThree.bat"

' 取得未關機電腦之使用者名稱
StepFourFileName = "C:\StepFour.txt"

' 合併未關機電腦名稱與其使用者名稱 => 報表
StepFiveFileName = "C:\PC_Online_"&NowDateTime&".txt"

' 要下指令關機之電腦
PCtoShutDownFileName = "C:\ShutDownPC.txt"

' 關機指令
PCtoShutDownExecutionFileName = "C:\ShutDownPC.bat"

' C Class 網段
IPClass="192.168.4"

' 要掃描的開始 IP
IPRangeFirst=100

' 要掃描的結尾 IP
IPRangeLast=100
'--------------------------------------------------------------

' 刪除舊的 StepFile
If objFSO.FileExists(StepOneFileName) Then
objFSO.DeleteFile(StepOneFileName)
End If

If objFSO.FileExists(StepTwoFileName) Then
objFSO.DeleteFile(StepTwoFileName)
End If

If objFSO.FileExists(StepThreeFileName) Then
objFSO.DeleteFile(StepThreeFileName)
End If

If objFSO.FileExists(StepFourFileName) Then
objFSO.DeleteFile(StepFourFileName)
End If

If objFSO.FileExists(StepFiveFileName) Then
objFSO.DeleteFile(StepFiveFileName)
End If

If objFSO.FileExists(PCtoShutDownFileName) Then
objFSO.DeleteFile(PCtoShutDownFileName)
End If

' 預先開啟結案檔案
Set StepFiveFile = objFSO.OpenTextFile(StepFiveFileName, ForWriting, True)
Set PCtoShutDownFile = objFSO.OpenTextFile(PCtoShutDownFileName, ForWriting, True)

' 建立查詢 BAT 檔
Set StepOneFile = objFSO.OpenTextFile(StepOneFileName, ForWriting, True)
StepOneFile.WriteLine "nbtstat -A %1.%2 | Find ""UNIQUE"" /I | Find ""<00>"" /I >> %3"
StepOneFile.Close

' 開始檢查未關機電腦名稱
IPNow=IPRangeFirst
While IPNow <= IPRangeLast
objShell.Run(StepOneFileName&" "&IPClass&" "&IPNow&" "&StepTwoFileName),1,True
IPNow=IPNow+1
Wend
objFSO.DeleteFile(StepOneFileName)

' 開始解析未關機電腦名稱
If objFSO.FileExists(StepTwoFileName) Then

Set StepTwoFile = objFSO.OpenTextFile(StepTwoFileName, ForReading, False)

While StepTwoFile.AtEndOfStream <> True

' 從 StepTwoFileName 中解析出單純的電腦名稱
StepTwoFileNameTempArray = Split(StepTwoFile.ReadLine, "    ")

' 並建立查詢該電腦使用者之批次檔 (StepFourFileName) , 電腦名稱為 StepTwoFileNameTempArray(1)
Set StepThreeFile = objFSO.OpenTextFile(StepThreeFileName, ForWriting, True)
StepThreeFile.WriteLine "dir ""\\"&StepTwoFileNameTempArray(1)&"\C$\Documents and Settings"" | Find ""<DIR>          "" /I | Find ""Default User"" /V /I | Find ""All Users"" /V /I | Find "">          ."" /V /I | Find ""Administrator"" /V /I | Find ""磁碟區"" /V /I | Find ""目錄"" /V /I | Find ""位元"" /V /I >> "&StepFourFileName
StepThreeFile.Close

' 合併電腦與使用者資料第一步: 寫入電腦名稱
PCtoShutDownFile.WriteLine StepTwoFileNameTempArray(1)
StepFiveFile.WriteLine "電腦名稱: "&StepTwoFileNameTempArray(1)
StepFiveFile.WriteLine "--------------------"
' 合併電腦與使用者資料第一步: 寫入電腦名稱

' 執行 StepFourFileName 批次檔取得開電腦使用者名稱並存於 StepFourFileName 中
objShell.Run(StepThreeFileName),1,True

' 讀取 StepFourFileName 取得該電腦之使用者名稱
Set StepFourFile = objFSO.OpenTextFile(StepFourFileName, ForReading, False)

' 合併電腦與使用者資料第二步: 寫入使用者名稱
' 從 StepFourFileName 中解析出單純的使用者名稱
AddUser=0
While StepFourFile.AtEndOfStream <> True
StepFourFileNameTempArray = Split(StepFourFile.ReadLine, "<DIR>          ")
If ADDUser=0 Then
StepFiveFile.WriteLine "使用者: "&StepFourFileNameTempArray(1)
AddUser=1
Else
StepFiveFile.WriteLine "    "&StepFourFileNameTempArray(1)
End If
Wend
' 關閉 StepFourFileName 檔案
StepFourFile.Close
objFSO.DeleteFile(StepFourFileName)
StepFiveFile.WriteLine "========================================"
' 合併電腦與使用者資料第二步: 寫入使用者名稱
Wend
End If
StepTwoFile.Close
objFSO.DeleteFile(StepTwoFileName)
objFSO.DeleteFile(StepThreeFileName)
' 開始解析未關機電腦名稱

StepFiveFile.Close
PCtoShutDownFile.Close

Set PCtoShutDownExecutionFile = objFSO.OpenTextFile(PCtoShutDownExecutionFileName, ForWriting, True)
PCtoShutDownExecutionFile.WriteLine """C:\Program Files\PsTools\psshutdown"" -c -f -k -m ""600 秒後關機"" -n 10 -t 600 @"&PCtoShutDownFileName
PCtoShutDownExecutionFile.Close

objShell.Run(PCtoShutDownExecutionFileName),1,True
objFSO.DeleteFile(PCtoShutDownFileName)
objFSO.DeleteFile(PCtoShutDownExecutionFileName)

54
試試看,若要指定欄位,寫在 SELECT 就好:

真是太感謝您了, 如此解決了我一個煩惱的相容性問題

我會需要這個解決方案的原因是我有兩個 Web Server
一個是 Apache+PHP+ MySQL , 一個是 IIS+ASP.NET+MS-SQL,
由於我不熟悉 Linux, 因此將兩個 Web Server 架設於同一個作業系統中
在一張網路卡上 Bind 兩個同網段的不同 IP, 解決 Routing 問題讓他順利運作

如今想整併成只使用一個 IP 時,
找到了可在 Apache 跑 ASP.NET 的模組, 但他不能跑 ASP
而我有如提問中那麼唯一的一個 ASP 程式 (供相關人員撈資料用, 當初寫網站的人沒寫這個功能, 所以我只好用 ASP 寫一個...)
因此只要能夠改寫這個程式, 我就能利用 Apache 的 VirtualHost 進行後續整合的作業了

再次感謝您!

55
肉腳版 / 求助一個 15 行 ASP 改寫為 aspx
« 於: 2008-10-21 16:49 »
各位學長大家好

雖然問題屬於程式, 不過我想貼在肉腳板比較適合...

手邊有一個很短的 asp 需要改寫成 aspx
但是我個人只會 asp / php , aspx 完全看不懂
而且以後也不會用到, 所以並不打算[再]花時間研究 (已經查一下午仍改不出來...)
斗膽在此貼出程式碼希望能有人協助幫我改寫

程式功能很簡單, 就是撈一個資料庫某個 Table 然後把內容全部 Print 出來而已
最前面加上一個 Key 檢查 (Program.asp?key=12345) , key 不對就跳出, 對就往下執行


代碼: [選擇]
<%
key=request.QueryString

if key<>"key=12345" then
Response.Redirect("/")
end if

' 連結資料庫
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Driver={SQL Server};Server=localhost;Database=MyDatabaseName;UID=UserID;PWD=UserPWD"

' 查詢
Query="Select * From T_Member"
set rs=conn.execute(Query)

' 移到第一筆資料
rs.movefirst

' 輸出欄位說明, 後面帶上換行符號 ExportContent="AutoNo;Name;ID;pwd;IDNO;Address;Phone_Home;Phone_Office;Phone_Cell;Email;Recieve_info;Career;BirthDay;Donate_class;Donate_amount;Donate_way;Donate_done;CreditCardInfo;Donate_Period;audiopie"&vbCrLf

' 開始輸出每一筆 Record, 後面帶上換行符號
while not rs.eof
ExportContent=ExportContent&rs("AutoNo")&";"&rs("Name")&";"&rs("ID")&";"&rs("pwd")&";"&rs("IDNO")&";"&rs("Address")&";"&rs("Phone_Home")&";"&rs("Phone_Office")&";"&rs("Phone_Cell")&";"&rs("Email")&";"&rs("Recieve_info")&";"&rs("Career")&";"&rs("BirthDay")&";"&rs("Donate_class")&";"&rs("Donate_amount")&";"&rs("Donate_way")&";"&rs("Donate_done")&";"&rs("CreditCardInfo")&";"&rs("Donate_Period")&";"&rs("audiopie")&vbCrLf
rs.movenext
wend

' Print 出來
response.write ExportContent

%>

56
為什麼一篇一篇看下來
有種老闆很被冤枉的感覺....

老闆要的東西其實很簡單, 就是 [為什麼]
老闆花錢就是要賺更多的錢, 他希望花的每一塊錢都有該花的理由
也希望花了錢就能解決問題, 所以當花了錢卻還會出問題時, 自然想問 [為什麼? 我不懂, 你得告訴我]

一篇一篇下來, 看了多位學長的說法後
換作我是老闆的話, 還真不能接受這些說法
怎麼辦...陷入矛盾之中了啊...
到底應該怎麼解釋 / 處理這樣的事情呢?
這種問題有解決方案嗎?

57
很多時候,你怎麼可以說,「電腦一定會當機」?


如果這台電腦正在進行的運算,是全公司的ERP資料儲存,一當機、光是重新開機的等待時間可能就會讓公司損失幾百萬,業務訂單因為連不上ERP而損失幾千萬的金額,網路斷線一分鐘可能也會損失個幾十億;這樣的電腦、這樣的工作項目,你怎能告訴老闆一定會當機? 你怎麼會跟老闆報告說當機是必然發生的?

同意
換個立場, 如果我是老闆, 我也會要求一個不出錯不停擺的系統
但是我懂只有一台機器的情況下他有一定的機會出問題
因此必須有足夠的熱備援, 能立刻接手, 維持零中斷的設備建置
而依據停擺時間緊縮需求的不同就會有不同的規劃設計方案
容許停機一小時與容許停機一秒鐘的規劃與成本絕對是不同的
這些都是我們必須要懂且必須要提出的

這還只是硬體部分而已, 軟體部分呢?
其實我也不知道軟體的瑕疵 (Bug) 該怎麼辦呢...

但是
老闆只問: 為什麼只用一台電腦不行? 他為什麼會出錯? 他為什麼會當機?
如果用太空梭爆炸, 股市叢集系統也會當機來說, 比較負面, 老闆也會覺得是在推卸責任
有沒有比較正面積極的方法來解釋這些
進而能讓老闆明白備援建立的重要性等等觀念呢...

58
如果總公司跟分公司之間本來就沒規劃要那樣用的話 (User 總是會以你意料之外的方法做事情, 然後讓你嚇一跳)
就切網段, 然後總公司跟分公司之間只有 ERP 可以 Routing , 其他電腦不能 Routing 到就好了
(不同 Site 不是本來就該用不同網段嗎.....:Q)

如果要共用檔案, 窮的就像我們家, 用 DFS-R
有錢的就用其他同步軟體
或是 SharePoint Server (我只知道他大概是這類用途, 但我完全沒用過, 連看都沒看過)
我們家是 Internet VPN 雙向 1M 頻寬, 每日資料量約 2G , 24H 同步沒有問題~

(P.S. 先前在其他板發的那個問題解決了, 至於為什麼會有問題, 以及怎麼好的, 還在查.....Orz)

59
真的是無聊透頂~

話說,最近覺得收音機好像越來越難聽~
難不成就是因為他們如此在亂搞?

可以聽我們家 http://www.ic975.com
不過我們大部份節目很重...資料量很大...聽起來不輕鬆...

60
[網路上有重覆電腦名稱] 是指相同子網段中有某一台電腦的電腦名稱與你現在這台電腦的電腦名稱相同
即使是在 Windows 98 的環境中, 任意兩台電腦名稱相同也會出現相同的訊息
與 AD 無關

如果你是在加入網域時得到訊息說電腦帳號已經存在
那就沒有關係, 選擇使用該帳號即可

至於你提到 [2台AD SERVER 都把該台的之前的電腦名稱刪除了]
滿奇怪
既是同 AD 的 DC , 在其中一台上刪除, 另一台應該會在幾秒鐘內自動刪除才是
不應該需要到兩台 DC 上去個別刪除
你應檢查一下 DC 的複寫是否正常

頁: 1 [2] 3 4 ... 6