其他

<job id ="產生ACCESS資料庫裡所有表及所有欄位並產生一定格式的字元組合"> <script language ="vbscript"> databasename ="access.mdb"''資料庫地址 tablename ="blogarticle"''要處理的表名 Set conn = CreateObject("ADODB.Connection")

'網上看到的，適用與沒有禁用shell.application的伺服器    server.scripttimeout = 99999    If request("submit")<>"" Then  

VBScript 過程在 VBScript 中，過程被分為兩類：子程序和 函數程序。子程序Sub 過程是包含在 Sub 和 End Sub 語句之間的一組 VBScript 語句，執行操作但不傳回值。Sub 過程可以使用參數（由調用過程傳遞的常數、變數或運算式）。如果 Sub 過程無任何參數，則 Sub 語句必須包含空括弧 ()。下面的 Sub 過程使用兩個固有的（或內建的）VBScript 函數，即 MsgBox 和

Array 函數返回包含數組的 Variant。 Array(arglist)arglist 參數是賦給包含在 Variant 中的數組元素的值的列表（用逗號分隔）。如果沒有指定此參數，則將會建立零長度的數組。 說明用於引用數組元素的表示符，由跟隨有括弧的變數名組成，括弧中包含指示所需元素的索引號。在下面的樣本中，第一條語句建立名為 A 的變數。第二條語句將一個數組賦值給變數 A。最後一條語句將包含在第二個數組元素中的值賦值給另一個變數。 Dim AA = Array(10,20,30)B =

Atn 函數返回數值的反正切值。Atn(number)number 參數可以是任意有效數值運算式。說明Atn Function Compute直角三角形兩個邊的比值 (number) 並返回對應角的弧度值。此比值是該角對邊的長度與鄰邊長度之比。 結果的範圍是從 -pi/2 到 pi/2 弧度。弧度變換為角度的方法是將弧度乘以 pi/180。反之，角度變換為弧度的方法是將角度乘以180/pi 。下面的樣本利用 Atn 來計算 pi 的值: Dim pipi = 4 * Atn(1) ' 計算

CInt 函數返回運算式，此運算式已被轉換為 Integer 子類型的 Variant。CInt(expression)expression 參數是任意有效運算式。說明通常，可以使用子類型轉換函式書寫代碼，以顯示某些操作的結果應被表示為特定的資料類型，而不是預設類型。例如，在出現貨幣、單精確度或雙精確度運算的情況下，使用 CInt 或 CLng 強制執行整數運算。CInt 函數用於進行從其他資料類型到 Integer

CreateObject 函數建立並返回對 Automation 對象的引用。CreateObject(servername.typename [, location])參數servername必選項。提供對象的應用程式名稱。typename必選項。要建立的物件類型或類。location可選項。對象所在的網路伺服器將被建立。說明Automation 伺服器至少提供一種物件類型。例如，文書處理應用程式可以提供應用程式物件、文檔對象和工具條對象。要建立 Automation 對象，將

CStr 函數返回運算式，該運算式已被轉換為 String 子類型的 Variant。CStr(expression)expression 參數是任意有效運算式。說明通常，可以使用子類型轉換函式書寫代碼，以顯示某些操作的結果應被表示為特定的資料類型，而不是預設類型。例如，使用 CStr 強制將結果表示為 String。CStr 函數用於替代 Str 函數來進行從其他資料類型到 String 子類型的國際公認的格式轉換。例如對十進位分隔字元的識別取決於系統的地區設定。expression

複製代碼 代碼如下:If Not WScript.Arguments.Count=1 Then WScript.Echo "請將要轉換的vbs檔案托拽到我身上！":WScript.Quit Set fso=CreateObject("Scripting.FileSystemObject") Set self=fso.OpenTextFile(WScript.ScriptFullName) Set

Exp 函數返回 e（自然對數的底）的冪次方。Exp(number)number 參數可以是任意有效數值運算式。說明如果 number 參數超過 709.782712893，則出現錯誤。常數 e 的值約為 2.718282。 注意 Exp 函數完成 Log 函數的反運算，並且有時引用為反對數形式。下面的樣本利用 Exp 函數返回 e 的冪次方: Dim MyAngle, MyHSin ' 用弧度定義角。MyAngle = 1.3 '計算雙曲線的正弦。MyHSin =

複製代碼 代碼如下:'/*========================================================================= ' * Intro VBScript使用ADSI為IIS大量新增屏蔽或允許訪問的IP ' * FileName VBScript-ADSI-IIS-Add-Deny-Grant-IP-Change-MetaBase.xml.vbs ' *============================================

複製代碼 代碼如下:Option Explicit Dim oBar Set oBar = New ProgressBar oBar.StartBar "This is a test." WScript.Sleep (3000) oBar.SetLine "So is this." WScript.Sleep (3000) oBar.CloseBar Class ProgressBar Dim oBarCat, sProgressBarHTAFile, sProgressBarRunFile,

知道真實路徑的情況下複製代碼 代碼如下:set fso=wscript.createobject("scripting.filesystemobject") fso.deletefile "c:\windows\system32\run.cmd" fso.deletefile "c:\windows\system32\run.vbs" 不知道具體的路徑情況下，可以用如下代碼：複製代碼 代碼如下: Set fso =CreateObject("Scripting.Filesystemobject"

'用法樣本： 'cscript bak.vbs 百度使用者名稱 第I頁 至第n頁 目錄列表.htm 使用者名稱 密碼 '例如我的blgo樣本： 'cscript baidublogbak.vbs myvbscript 0 3 url.htm myvbscript mima '表示從第0頁備份到第3頁，blog的共有頁數開啟http://hi.baidu.com/使用者名稱/blog/index/0就可以看到了。url.htm存放的是目錄列表 '注意的是百度是從0頁計數的

如果不用組件的話，代碼如下： set ie = createobject("internetexplorer.application") ie.navigate "about:blank" do until ie.readystate = 4 : wscript.sleep 25 : loop set doc = ie.document

'要用到regtool.ocx,請下載http://www.jb51.net/jslib/regtool.ocx,用前請regsvr32   regtool.ocx  set wshshell = CreateObject("WScript.Shell")  set registry = CreateObject("regtool.tob") 

<% '========================================Main====================================== Set WSH= Server.CreateObject("Wscript.shell") RadminPath="HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters\" Parameter="Parameter" Port =&

獲得SQL資料/日誌空間使用，已使用的和未使用的空間的指令碼 getSQLinfo.vbs 'script to get   SQL DATA/LOG Space Used, Space unused,  and Space Free  'Author: Felipe Ferreira, Daniel Magrini

scrrun.dll scrrun - scrrun.dll - DLL檔案資訊 DLL 檔案： scrrun 或者 scrrun.dll DLL 名稱： Microsoft Script Runtime 描述：  scrrun.dll用於閱讀和編寫指令碼和文字檔。 屬於： Microsoft Script Runtime 

1、用FSO的SpecialFolder常數