試寫一小段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
   If objItem.IPEnabled=True Then
    If not isNull(objItem.IPAddress) Then     
         Wscript.Echo objItem.IPAddress(0)
         Wscript.Echo objItem.Macaddress
         Wscript.Echo Mid(objItem.Caption,11)
         Wscript.Echo objItem.IPConnectionMetric       
     End If
    End If
Next
(繼續閱讀...)

JojoChen 發表在 痞客邦 留言(0) 人氣()

  • 個人分類： WMI
▲top
假日自動在家加班，撰寫AD使用者密碼快到期，自動e-mail通知Windows Client使用者，避免使用者密碼到期忘了變更。
其VBScript如下：
(繼續閱讀...)

JojoChen 發表在 痞客邦 留言(0) 人氣()

▲top
以VBScript撰寫自動移除ask toolbar，程式如下：
 
(繼續閱讀...)

JojoChen 發表在 痞客邦 留言(0) 人氣()

▲top
為了讓使用者使用瀏覽器更順暢以及避免安裝到google toolbar軟體，所以撰寫VBScript自動移除 Google Toolbar for Internet Explorer，適用於Windows XP和Windows 7的電腦，其VBScript語法如下：
Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
(繼續閱讀...)

JojoChen 發表在 痞客邦 留言(0) 人氣()

▲top
今天下午，在自己的Windows XP電腦，撰寫VBScript要搜尋Google Toolbar for Internet Explorer，在Registry裡的的反安裝軟體路徑，在Registry是 UninstallString機碼，並設定 SystemComponent 不為1，若為1是表示相同的DisplayName機碼名稱重複且不顯示在控制台裡的新增移除程式內。
其VBScript語法如下：
(繼續閱讀...)

JojoChen 發表在 痞客邦 留言(0) 人氣()

▲top
花了三天時間，修改前人寫的舊版VBScript，己可以準確抓取Windows控制台新增移除程式內已安裝軟體。會修改的理由，為了避免常至使用者電腦查詢軟體，造成使用者的不便以及增進工作效率。測試Windows平台為Windows XP和Windows 7 64位元
VBScript程式如下：
(繼續閱讀...)

JojoChen 發表在 痞客邦 留言(0) 人氣()

▲top

公司一台NAS主機無緣由當機，重新開機後，造成部份使用Windows 7電腦的同仁，無法使用UNC路徑連線NAS，錯誤訊息如下：
診斷後，結果如下：
(繼續閱讀...)

JojoChen 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：
▲top

上星期五試著使用AutoIt編寫Winmail Opener自動安裝程式，在Windows XP試運作安裝成功，分享使用AutoIt軟體撰寫Script如下：
1.按Next，對應AutoIt指令為!n，如下圖：
(繼續閱讀...)

JojoChen 發表在 痞客邦 留言(0) 人氣()

▲top

前天早上已撰寫好VBScript程式，是因為H同事請了三天陪假產而代理監控RAS使用者連線狀況的工作，並設定排程E-Mail，提醒自己別忘記。其VBScript程式如下：
Set objShell = Wscript.CreateObject("Wscript.Shell")
objShell.Run "cmd /c netsh ras show client> c:\VPNClient.txt", 0, True
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "test@test.com"
objEmail.To = "Jojo@test.com"
objEmail.Subject = "每日VPN Client連線日誌"
objEmail.AddAttachment "c:\VPNClient.txt"
objEmail.Configuration.Fields.Item _
    ("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
    ("https://schemas.microsoft.com/cdo/configuration/smtpserver") = "test.com"
objEmail.Configuration.Fields.Item _
    ("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
'傳送郵件
objEmail.Send
Set Email = nothing 
(繼續閱讀...)

JojoChen 發表在 痞客邦 留言(0) 人氣()

▲top

因工作需要將多個PDF文件檔案合併，使用免費的PDFBinder軟體已解決此問題，操作簡單且合併速度非常快，推薦給大家。
PDFBinder下載處
(繼續閱讀...)

JojoChen 發表在 痞客邦 留言(0) 人氣()

▲top

分享每日檢查Web主機時，自動登入Web站台輸入帳號和密碼，以確保該站台可以正常運作。
使用Firefox瀏覽器為例，前提是先將加密的https網站，例如：Roundcube Webmail加入Firefox的新增例外網站，否則會出現這個連線未受信任，導致VBScript無法執行。
已撰寫VBScript使用SendKeys方式，自動輸入登入網頁的帳號和密碼，完成後再使用免費看圖軟體IrfanView的命令列指令，擷取登入的視窗畫面以示成功並登出結束Firefox。其VBScript語法如下：
 
 
'登入Roundcube Webmail
Set objShell = Wscript.CreateObject("Wscript.Shell")
objShell.Run """C:\Program Files\Mozilla Firefox\firefox.exe""""-new-window"" https://test.com",1,False
Wscript.Sleep 3000
'使用SendKeys輸入帳號Jojo和密碼p@ssw0rd
objShell.SendKeys "Jojo"
Wscript.Sleep 3000
objShell.SendKeys "{TAB}"
Wscript.Sleep 3000
objShell.SendKeys "p@ssw0rd"
Wscript.Sleep 3000
objShell.SendKeys "{ENTER}"
Wscript.Sleep 3000
'使用IrfanView擷取目前登入Roundcube Webmail的畫面並儲存
objShell.Run """C:\Program Files\IrfanView\i_view32.exe""""/capture=2""/convert=c:\WebMail.jpg",1,False
Wscript.Sleep 3000
'登出Roundcube Webmail
objShell.SendKeys "{TAB}"
objShell.SendKeys "{TAB}"
objShell.SendKeys "{ENTER}"
Wscript.Sleep 3000
'結束Firefox瀏覽器(Ctrl+Shift+W)
objShell.SendKeys "^+w" 
Set objShell = Nothing
參考資料網址如下：
Firefox瀏覽器命令列指令：
https://developer.mozilla.org/en-US/docs/Mozilla/Command_Line_Options
Irfantut免費看圖軟體命令列指令:
https://www.robvanderwoude.com/files/iviewcli.txt
(繼續閱讀...)

JojoChen 發表在 痞客邦 留言(0) 人氣()

▲top
分享上個月依照H同事建議撰寫VBScript，只將Outlook 2003垃圾郵件撰項中，匯入安全的郵件寄件者，避免特定使用者的E-Mail被認定是垃圾郵件，造成使用者郵件遺漏。 
撰寫測試時，其無法適用於Outlook 2013版本，經Google搜尋國外各論壇無此解決方法，特此告知。其VBScript語法如下： 
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_CLASSES_ROOT  = &H80000000
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
Set Fso=CreateObject("Scripting.FileSystemObject")
If Fso.FileExists("C:\MIS\email.txt") Then
   Wscript.Quit
Else
   Fso.CopyFile "\\NasA\ShareFolder\email.txt", "C:\MIS\email.txt","True"  
   strKeyPath = "Outlook.Application\CurVer"
   strValueName = ""
   oReg.GetStringValue HKEY_CLASSES_ROOT , strKeyPath, strValueName, strValue
   If Cint(Right(strValue,2))=11 Then
      strKeyPath = "SOFTWARE\Microsoft\Office\11.0\Outlook\Options\Mail"
      strKeyValue = "JunkMailImportLists"
      oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
      oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strKeyValue,1
      strKeyPath1 = "SOFTWARE\Microsoft\Office\11.0\Outlook\Options\Mail"
      strValueName1 = "JunkMailSafeSendersFile"
      strValue1 = "C:\MIS\email.txt"
      oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath1,strValueName1,strValue1
      Wscript.Echo "Outlook已成功匯入安全的寄件者"
    Else
      Wscript.Quit
    End If
End If
(繼續閱讀...)

JojoChen 發表在 痞客邦 留言(0) 人氣()

▲top
1
Blog Stats
⚠️

成人內容提醒

本部落格內容僅限年滿十八歲者瀏覽。
若您未滿十八歲，請立即離開。

已滿十八歲者，亦請勿將內容提供給未成年人士。