小芸愛喝飲料

      小芸最近超愛鋁箔裝的飲料, 每次喝時給她喝她喝的超高興的, 喝完以後的空瓶子給她, 她也是喝的超 High 的, 不斷的吸還邊吸邊笑, 看看影片感受一下小芸的開心吧...^^

遇見貴人...超感謝的啦

      上週六去家樂福購物, 高高興興的去買完東西後, 準備牽車的當時, 左摸摸右找找...>///< 天ㄚ, 摩扥車鑰匙不見了, 當下可是心理毫無頭緒, 回頭去找老婆時老婆跟我說剛剛遇見我同事說, 我沒看到她嗎.., 我那時可是心事重重所以完全都沒意識到, 後來就見我同事推著手推車回來放, 跟同事稍微哈拉一下後跟他說我碰到的穹境。

      一開始她建議我去服務中心找看看, 順便廣播一下, 後來我也進去賣場整個巡視一遍, 結果都沒找到, 後來跟家樂福要了電話打給鎖匠, 結果因為沒帶行照鎖匠不能幫我處理, 我當下又是整個晴天霹靂, 後來好心同事說不然她載我們回去拿備份鑰匙好了, 我很不好意思的說沒備分鑰匙( 因為平常極少騎車所以每次想要去打時都很懶....), 這下困難度又提高了不少。

      後來好心同事決定帶我們回家後, 我拿行照她跟我回去開鎖, 找鎖匠的過程也是很..., 先是先前的師傅出門去了要一個小時才會回來, 後來路邊找的一個說不開了一個說老花眼看不清楚沒辦法, 介紹一個給我電話也打不通..., 最後好不容易找到一個跟他約在家樂福開鎖, 如果再晚一點大家都關門了...就更好玩了, 很感謝那位同事這樣熱心的幫忙我, 如果沒遇見她的話, 我想我當下會花很多天去處理吧, 先找鎖匠, 再想辦法搭公車或什麼的過去那邊, 不過我很不學乖, 到現在說要打鑰匙還是一直忘記, 哈哈...做事真是不積極阿....^^

ASP.NET 如何上傳檔案至遠端機器上

      最近專案遇到一個問題, 需要將檔案存至遠端機器上, 可是權限無法存取遠端機器, Google 了一下, 有幾種解法, 都是需要設定 Web.config, 也就是說當執行 IIS 時就以該使用者去執行, 這樣會衍生出更多不必要的問題, 所以不是我要的方法。

      後來找到一種方法, 是透過呼叫 Win32 API 可定義執行緒使用自訂權限去執行動作, 理論上就可以解決我的問題了, 寫了一支簡單程式測試,   看起來是 ok 的...

      以下為程式碼, 藍色為重點部份...

---

RemoteCopy.aspx

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="RemoteCopy.aspx.vb" Inherits="RemoteCopy" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>未命名頁面</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        &nbsp;<asp:FileUpload ID="FileUpload1" runat="server" />
        <asp:Button ID="Button1" runat="server" Text="Button" /></div>
    </form>
</body>
</html>

---

RemoteCopy.aspx.vb

Imports System.Web.Security
Imports System.Security.Principal
Imports System.Runtime.InteropServices

Partial Class RemoteCopy
    Inherits System.Web.UI.Page
    Dim LOGON32_LOGON_INTERACTIVE As Integer = 2
    Dim LOGON32_PROVIDER_DEFAULT As Integer = 0
    Dim impersonationContext As WindowsImpersonationContext

    Declare Function LogonUserA Lib "advapi32.dll" (ByVal lpszUsername As String, _
                        ByVal lpszDomain As String, _
                        ByVal lpszPassword As String, _
                        ByVal dwLogonType As Integer, _
                        ByVal dwLogonProvider As Integer, _
                        ByRef phToken As IntPtr) As Integer

    Declare Auto Function DuplicateToken Lib "advapi32.dll" ( _
                        ByVal ExistingTokenHandle As IntPtr, _
                        ByVal ImpersonationLevel As Integer, _
                        ByRef DuplicateTokenHandle As IntPtr) As Integer

    Declare Auto Function RevertToSelf Lib "advapi32.dll" () As Long
    Declare Auto Function CloseHandle Lib "kernel32.dll" (ByVal handle As IntPtr) As Long

    Private Function impersonateValidUser(ByVal userName As String, ByVal domain As String, ByVal password As String) As Boolean

        Dim tempWindowsIdentity As WindowsIdentity
        Dim token As IntPtr = IntPtr.Zero
        Dim tokenDuplicate As IntPtr = IntPtr.Zero
        impersonateValidUser = False

        If RevertToSelf() Then
            If LogonUserA(userName, domain, password, LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, token) <> 0 Then
                If DuplicateToken(token, 2, tokenDuplicate) <> 0 Then
                    tempWindowsIdentity = New WindowsIdentity(tokenDuplicate)
                    impersonationContext = tempWindowsIdentity.Impersonate()
                    If Not impersonationContext Is Nothing Then
                        impersonateValidUser = True
                    End If
                End If
            End If
        End If
        If Not tokenDuplicate.Equals(IntPtr.Zero) Then
            CloseHandle(tokenDuplicate)
        End If
        If Not token.Equals(IntPtr.Zero) Then
            CloseHandle(token)
        End If
    End Function

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As SystemEventArgs) Handles Button1.Click
       If impersonateValidUser("userName", "xx.xx.xx.xx", "password") Then
            FileUpload1.SaveAs(\\xx.xx.xx.xx\test\XX.TXT)
        End If
    End Sub
End Class

檢討自己的心

      今天晚上七點多, 就看全部的 Team member 幾乎就走光光, 只剩兩個很用功的小女孩, 心理面其實有些不快, 專案時程已經這樣的緊, 卻無法在他們身上感受到任何的壓力, 就有比較負面一點的想法存在著....

      晚上坐公車回家時在思考著, 以前的我是效率主義者, 很不齒加班這玩意, 當了管理者以後, 卻無法堅持著自己的理念, 應該以效率管理, 我思考著到底是我變了, 還是怎麼了..., 最後我得到一個結論, 當初我之所以可以這麼貫徹我的效率主義, 是因為我確實有很高的效率, 完全不會有進度來不及的問題存在著, 而目前我會心急則是因為我完全看不到效率, 進度總有太多的變數無法確實掌控是我心急的因素, 看來我要學習的是如何提昇效率, 而不是一昧希望大家花時間, 提昇效率不外乎提昇技術能力, 有效分配管理時間, 看來這才是我的重點, 我應該讓努力的妹妹多些時間休息, 免得最努力的人最後卻是第一個陣亡的人...

家樂福超棒啦...

      過年前去家樂福買了一台熱水瓶, 結果很不幸的過個年他救出毛病了...@@, 水加進去一直在煮沸狀態, 但是水卻都不會熱, 冷冷的, 感覺都沒煮的樣子, 因為過年大家都休假, 只得等大家開工後再送修囉, 結果阿想不到他的經銷點只有泰山有, 那確實有點遠說, 最後就想說送回家樂福再請他們幫忙送修, 結果他們就回應說阿, 你是用提貨卷, 你可能需要去再買大於該物品的金額他才有辦法退金額給我們, 咦....退貨耶...., 不過我只想有水喝, 當下就說我只有換新品就好, 他只問我壞掉原因, 就讓我可以直接退貨耶, 我後來看了一下原來他有 30 天無條件退貨的一點耶, 不過我不貪心啦, 只要有熱水喝就滿足了, 幸好經銷商夠遠, 不然我可能就浪費了這麼好的服務了...^^