專案日期：10/05

入世? 她是用怎樣的邏輯，才想到這兩個字，或這樣的意念啊，這我真的不了解了，不過現在的我，沒時間想這些，因為我在客戶的機房裡，Blade果然如Block所言，悄悄的出現了，他看到我們正認真的在做事，感到有點奇怪，我是不會跟他多說什麼啦，這跟我工作時的習慣有關，但我也不知該問他什麼。

「你們這個這樣做不行啦，這個不是這樣做的，怎麼會這樣呢?」他一個人在旁邊唸啊唸，這個時候，那位OP主管進來了，他先和Blade聊了幾句，問了一些問題，Blade突然一句「我是工程師，又不是PM，這個問題不要問我，我回答不了。」

這就怪了，平常Blade總說自己是這個專案的PM，對事情有很多看法和見解，也常說有機會一定要好好跟客戶談談，但怎麼這個時候，縮回去了? 不管他是不是PM，他都可以正面回答客戶的問題啊，又不是要談什麼喪權辱國的事。接著，OP主管朝我走過來，「你答應的東西呢? 我們來看一下吧。」

我點了點頭，跟著他往他的辦公室走過去，Blade也跟在我們後面，他可能想看看，我要幹嘛吧。打開Excel 後，我指著電腦畫面，告訴這位主管，你可以把你想要監控的IP，輸入在C欄，最後看有幾個IP，把數字輸入在A7，再按下偵測主機網路狀況那個鈕，就好了，如果有Ping成功，就是綠色，Fail就是紅色。

OP主管兩眼大大的一直看著畫面，指著螢幕看看我，一臉懷疑的笑了笑，坐了下來，打了一個IP，按下那個偵測狀況鈕，突然喊了一聲「這個...」

他遞了一張名片給我「你好，我是Kent，是這次專案的窗口。」

我看了看Blade，想了想，還是拿出我的名片。『你好，我是...這次的PM，叫我心藍就好。』

Blade的臉傻了，我先和Kevin說我們回去忙了，再拉了一下Blade的衣角，回機房的路上，我小小聲的跟他說『我沒有惡意，公司的安排，除非我不做，不然我還是要聽，但我沒有要拆你檯的意思。』

他的臉像極了關公，進了機房後，除了轟轟轟的機器聲，就是他的吼叫聲。

「你這樣... 不是讓我難堪嗎? 什麼叫做你是這個專案的PM，你在說什麼啊!」

Block走了過來，「Blade 你是做還是不做? 你隨便答應客戶的事，我們也幫你扛下來了，你現在是做還是不做?」

他講這樣的話，其實有點重。不過他們早就存在的心結，我也解不了。

『各位，我們後面還有網管軟體和備份軟體要處理，是不是...晚上去喝酒時，再聊聊其它的事，現在先讓我們看看該怎麼面對接下來的二十天?』

看他們的反應，『那不然，現在就去喝囉。』我收了收東西，到樓下去等他們了。

(待)

附件四：Excel

我不會用Excel 做很專業的統計圖表，也不會那些公式。

但因為MicroSoft對產品的策略，讓Excel可以和VBA搭在一起，我的描述可能有誤，如果這種講法不對，還請給我指導。

我不太會高深的程式技巧，以下的程式碼，可能會讓您覺得很可笑之類的...還請多多包含。

在Excel裡，切到VBA的視窗，然後用下面的主程式，便可和Excel做結合。主程式是我幾年前，在網站上看到別人提供的原始碼，參考後再修正為可在Excel顯示結果。過去擔任MIS時，這個用Excel來當監控的檔案，有實際在當時的公司運作過約半年的時間，後來發現另一套免費的工具，才改用另一套。

Private Sub CommandButton1_Click()
Dim Reply As ICMP_ECHO_REPLY
   Dim lngSuccess As Long
   Dim strIPAddress As String
   Dim ii As Long ' 總台數參數宣告
   ii = Worksheets(1).Cells(7, 1).Value ' 總台數參數
  
   Dim i As Long '起始IP位置參數
   i = 2
'下面為測試ping功能的主程式
Do While i <= ii + 1
   If SocketsInitialize() Then
   strIPAddress = Worksheets(1).Cells(i, 3).Value '這邊會讀取每一欄的IP
    lngSuccess = ping(strIPAddress, Reply)
      If EvaluatePingResponse(lngSuccess) = "Success!" Then Worksheets(1).Cells(i, 4).Value = "OK"
         If EvaluatePingResponse(lngSuccess) = "Success!" Then Worksheets(1).Cells(i, 4).Interior.Color = &HFF00&
          If EvaluatePingResponse(lngSuccess) = "Request Timed Out" Then Worksheets(1).Cells(i, 4).Value = "Fail"
             If EvaluatePingResponse(lngSuccess) = "Request Timed Out" Then Worksheets(1).Cells(i, 4).Interior.Color = &HFF&
  Else
  Debug.Print WINSOCK_ERROR
      SocketsCleanup
   End If
   i = i + 1
Loop

2010/10/07 太陽哲齡

文章導覽
上一篇
下一篇
全系列連結

更多文章都在行雲流水IT人