2018/5/27 ZEPRO RUN 新竹場

今天有夠熱，最後用走的回終點。
天氣熱跑不動，跑完腳不酸，只想喝水、水、水！
根據這次的經驗，明年頂多跑到四月就要放暑假了。

這個路跑整體規劃都很棒，尤其是居然有更衣室、盥洗室，真的讚啦。通常只有全馬的賽事才有這樣的規格，感謝主辦單位的用心。五月底真是熱爆了，熱到跑不動，成績慘不忍睹，剛好現場印不出來難道這是天意嗎？哈哈哈。

USB printer Unknown Device

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

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)

硬碟復原問題

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

還原時在這邊卡住了。

遠端桌面連不上

Reference:

Win7 本月更新後, 無法遠端連線至 Server 2008 R2

錯誤訊息：

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

原因：

Windows 7安裝更新後重開機，Server 還沒重開機。

解法：

只能盡快將 Server 重開機了。

2018/5/11 理髮

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

USB 防寫保護

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

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

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

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

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

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

WSUS reduce disk space

Reference:
How To Clean Up WSUS

我的 WSUS server C:\ 被塞滿了，檢查發現 WsusContent 目錄有 120GB。
先用 WSUS 的 Server Cleanup Wizard，跑完後完全沒有縮小！
找到上面那一篇的方法重抓 WSUS 資料後只用了 17GB。

步驟：
1. 將 Automatic Approvals 停掉
2. 刪除 C:\WSUS\WsusContent 目錄下所有的檔案
3. 執行下面這一段 batch file，重設 WSUS database

net stop wsusservice
cd "C:\Program Files\Update Services\Tools"
wsusutil.exe reset
echo Delete WSUS Folder Content
pause
net start wsusservice

4. 在 WSUS 執行 Synchrozine Now
5. Open PowerShell ISE as Administrator and run the script

#Change server name and port number and $True if it is on SSL

$Computer = $env:COMPUTERNAME
$Domain = $env:USERDNSDOMAIN
$FQDN = "$Computer" + "." + "$Domain"
[String]$updateServer1 = $FQDN
[Boolean]$useSecureConnection = $False
[Int32]$portNumber = 8530

# Load .NET assembly

[void][reflection.assembly]::LoadWithPartialName("Microsoft.UpdateServices.Administration")

$count = 0

# Connect to WSUS Server

$updateServer = [Microsoft.UpdateServices.Administration.AdminProxy]::getUpdateServer($updateServer1,$useSecureConnection,$portNumber)

write-host "<<<Connected sucessfully >>>" -foregroundcolor "yellow"

$updatescope = New-Object Microsoft.UpdateServices.Administration.UpdateScope

$u=$updateServer.GetUpdates($updatescope )

foreach ($u1 in $u )

{

if ($u1.IsSuperseded -eq 'True')

{

write-host Decline Update : $u1.Title

$u1.Decline()

$count=$count + 1

}

}

write-host Total Declined Updates: $count

trap

{

write-host "Error Occurred"

write-host "Exception Message: "

write-host $_.Exception.Message

write-host $_.Exception.StackTrace

exit

}

# EOF