試寫一小段VBScript，取得本機電腦中的有線網路卡和無線網路卡中的名稱,IP與MAC，其VBScript如下：
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")
For Each objItem in colItems
假日自動在家加班，撰寫AD使用者密碼快到期，自動e-mail通知Windows Client使用者，避免使用者密碼到期忘了變更。
其VBScript如下：
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set OutputFile=objFSO.OpenTextFile("d:\PasswordExpires.txt",2,true)
OutputFile.WriteLine "帳號" & vbtab & "部門" & vbtab & "密碼到期日" & vbtab & "剩餘天數"
以VBScript撰寫自動移除ask toolbar，程式如下：
Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
為了讓使用者使用瀏覽器更順暢以及避免安裝到google toolbar軟體，所以撰寫VBScript自動移除 Google Toolbar for Internet Explorer，適用於Windows XP和Windows 7的電腦，其VBScript語法如下：
Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
今天下午，在自己的Windows XP電腦，撰寫VBScript要搜尋Google Toolbar for Internet Explorer，在Registry裡的的反安裝軟體路徑，在Registry是 UninstallString機碼，並設定 SystemComponent 不為1，若為1是表示相同的DisplayName機碼名稱重複且不顯示在控制台裡的新增移除程式內。
其VBScript語法如下：
Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
花了三天時間，修改前人寫的舊版VBScript，己可以準確抓取Windows控制台新增移除程式內已安裝軟體。會修改的理由，為了避免常至使用者電腦查詢軟體，造成使用者的不便以及增進工作效率。測試Windows平台為Windows XP和Windows 7 64位元
VBScript程式如下：
Set WshShell = CreateObject( "WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
公司一台NAS主機無緣由當機，重新開機後，造成部份使用Windows 7電腦的同仁，無法使用UNC路徑連線NAS，錯誤訊息如下：
診斷後，結果如下：
使用ping nas主機名稱，回應的ip正常，使用瀏覽器連線https也正常，使用NAS主機的IP，測試\\ip或\\ip\sharefolder正常。當然，也在cmd模式下，執行net use J: \\nas\sharefolder，出現錯誤訊息為＂系統發生53錯誤 找不到網路路徑＂。
近期也無任何網路或主機設定，故判定網路卡驅動程式，在裝置管理員移除所有網路卡重新開機後，測試已連線正常。
上星期五試著使用AutoIt編寫Winmail Opener自動安裝程式，在Windows XP試運作安裝成功，分享使用AutoIt軟體撰寫Script如下：
1.按Next，對應AutoIt指令為!n，如下圖：
1.按I Agree，對應AutoIt指令為!a，如下圖：
3.按Install， 對應AutoIt指令為!i，如下圖：
4.取消勾選Run Winmail Opener 1.6， 對應AutoIt指令為{SPACE}，按Finsh， 對應AutoIt指令為 !f，如下圖：
前天早上已撰寫好VBScript程式，是因為H同事請了三天陪假產而代理監控RAS使用者連線狀況的工作，並設定排程E-Mail，提醒自己別忘記。其VBScript程式如下：
因工作需要將多個PDF文件檔案合併，使用免費的PDFBinder軟體已解決此問題，操作簡單且合併速度非常快，推薦給大家。
分享每日檢查Web主機時，自動登入Web站台輸入帳號和密碼，以確保該站台可以正常運作。
使用Firefox瀏覽器為例，前提是先將加密的https網站，例如：Roundcube Webmail加入Firefox的新增例外網站，否則會出現這個連線未受信任，導致VBScript無法執行。
已撰寫VBScript使用SendKeys方式，自動輸入登入網頁的帳號和密碼，完成後再使用免費看圖軟體IrfanView的命令列指令，擷取登入的視窗畫面以示成功並登出結束Firefox。其VBScript語法如下：
分享上個月依照H同事建議撰寫VBScript，只將Outlook 2003垃圾郵件撰項中，匯入安全的郵件寄件者，避免特定使用者的E-Mail被認定是垃圾郵件，造成使用者郵件遺漏。
撰寫測試時，其無法適用於Outlook 2013版本，經Google搜尋國外各論壇無此解決方法，特此告知。其VBScript語法如下：
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_CLASSES_ROOT = &H80000000
strComputer = "."
