2014/9/3

今日自選檔




VBS搜尋SharePoint人員

IE 裡面,工具→網際網路選項→進階,「永遠將 URL 傳送成 UTF-8」

URL 含中文路徑名稱解法參考
http://blog.urdada.net/2005/09/08/24/
=====VSB===============================

Dim GIE
Dim x , AA

Set GIE = CreateObject("InternetExplorer.Application")

With GIE
.Left = 0
.Top = 0
.Height = 800
.Width = 900
.MenuBar = 1
.Toolbar = 1
.addressbar = 1
.StatusBar = 1
.Visible = 1
.navigate "http://center.com.tw"
End With


a=Array("聶風","步驚雲")
'Wscript.Echo a(0)

Do While GIE.busy: x = x + 1: Loop
'x = 0
Wscript.Sleep 1000
FOR x = LBOUND(a) TO UBOUND(a)
GIE.navigate
"http://center.com.tw/SearchCenter/Pages/peopleresults.aspx?k=" & a(x)
Wscript.Sleep 1500
NEXT
GIE.QUIT
Set GIE = Nothing