2018年5月25日 星期五

USB printer Unknown Device

有一台 USB printer 原本正常,突然變成未知的裝置。
換插到另一個 USB port 可以正常使用,但插回去原本那個 USB port 就是不行。
查一些文章說,USB driver 會裝到每一個 port,driver 壞了會這樣。


2018年5月23日 星期三

VMware VDP status read only

Reference:
Backup Cannot be performed while VDP Server is in Admin state

狀況:
在 vCenter 管理網頁中看到 VDP 狀態變成 read only

解法:
1. 用 putty 進入 VDP console
2. 執行 dpnctl status 確認 gsan 狀態是 degraded
3. 執行 dpnctl start gsan
4. 執行 sync;sync;reboot (會等很久,重新開機後狀態就恢復為 normal)

2018年5月16日 星期三

硬碟復原問題

遇到一顆奇怪的硬碟,TrueImage 備份檔倒不進去,但如果拿來裝 XP 卻是可以安裝及開機。
備份檔確認是正常的,拿另一顆硬碟可以倒進去。

還原時在這邊卡住了。

2018年5月11日 星期五

遠端桌面連不上

Reference:

錯誤訊息:
遠端桌面連線,發生驗證錯誤 不支援要求的功能

原因:
Windows 7安裝更新後重開機,Server 還沒重開機。

解法:
只能盡快將 Server 重開機了。

2018/5/11 理髮

到交大理髮,順便吃午餐。



2018年5月10日 星期四

USB 防寫保護

Reference:
有人無聊「破解」過 read-only 廣吿隨身碟嗎?

有個同事的 USB 隨身碟突然無法使用。

狀況:
插入 USB 隨身碟 Windows 出現需要格式化,選擇格式化卻說有防寫保護。

網路上查到可以用原廠的軟體回覆出廠值,但那支隨身碟是動物造型看不出哪個廠牌,最後找到一個量產程式 AlcorMP_v12.12.26.00.rar,重設過就恢復了。

建議找一台沒什麼資料的電腦做這件事,因為下載的網站在俄羅斯,以免為了一支隨身碟把電腦搞中毒損失就大了。


2018年5月4日 星期五

VBA to get web asp table

Reference:
Fetch data from website table using vba


Private Sub finance_data()
    Dim url As String, lastRow As Long
    Dim XMLHTTP As Object, html As Object
    Dim tbl As Object, obj_tbl As Object
    Dim TR As Object, TD As Object
    Dim row As Long, col As Long

    lastRow = Range("A" & Rows.Count).End(xlUp).row

    url = "http://www.taifex.com.tw/chinese/9/9_7_1.asp"

    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
    XMLHTTP.Open "GET", url, False
    XMLHTTP.setRequestHeader "Content-Type", "text/xml"
    XMLHTTP.send

    Set html = CreateObject("htmlfile")
    html.body.innerHTML = XMLHTTP.ResponseText
    Set obj_tbl = html.getelementsbytagname("table")

    row = 1
    col = 1

    For Each tbl In obj_tbl
        If tbl.classname = "table_c" Then
            Set TR = tbl.getelementsbytagname("TR")

            For Each obj_row In TR
                For Each TD In obj_row.getelementsbytagname("TD")
                    Cells(row, col) = TD.innerText
                    col = col + 1
                Next
                col = 1    ' reseting the value
                row = row + 1
            Next
        End If
    Next