Martin Chang的部落格

Translating VBScript to Windows PowerShell
 
One of the cornerstones of education is the concept of scaffolding: the idea that it is easier to learn something new if you relate your new knowledge to, and build upon, existing knowledge. For example, suppose you've spent your entire driving life behind the wheel of a car with an automatic transmission. Now, you'd like to learn how to drive a car that has a manual transmission. Should you forget everything you've ever learned about driving and start all over again from scratch?
 

【前言】
本文講述一些Windows腳本編程的知識和技巧。這裏的Windows腳本是指"Windows Script Host"(WSH Windows腳本宿主)，而不是HTML或ASP中的腳本。前者由Wscript或Cscript解釋，後兩者分別由IE和IIS負責解釋。描述的語言是VBScript。本文假設讀者有一定的Windows腳本編程的基礎。如果你對此還不瞭解，請先學習《Windows腳本技術》[1]。
 
【回顧WSH對象】

Set ws = CreateObject("WScript.Shell") '這裏創建一個物件引用，以便在以下示例代碼中使用。
語法：（常識：作為過程使用時，不要加括弧，否則出現編譯器錯誤（參數唯一或沒有時加括弧不會出錯，但建議不要加））
ws.Run(strCommand, [intWindowStyle], [bWaitOnReturn])
[Set objExec =] ws.Exec(strCommand)

最後一步自動去收集遠端電腦的資訊, 並且存放入資料庫內, 目前收集的資料有 (1) 電腦的實體記憶體 & 使用率, (2) CPU 使用率, (3) 硬碟大小及使用率
同樣的建立 Table 的 Script 如下:
CREATE TABLE OAUSER.DRV_DAILY_RECORD
(
DRV_DATE DATE NOT NULL,
COMPUTER_NAME VARCHAR2(100 CHAR) NOT NULL,
RESOURCE_TYPE VARCHAR2(20 CHAR) NOT NULL,
RESOURCE_NAME VARCHAR2(25 CHAR),
PERCENT_OF_USAGE NUMBER(4,2) NOT NULL,
MAX_VALUE NUMBER(25,2),
MIN_VALUE NUMBER(25,2) DEFAULT 0,
UOM VARCHAR2(20 CHAR)
)

今天在增加一個小程式, 主要的是可以收集電腦上的 EventLog 並存放置資料庫內, 免除每天必須連線到電腦上面去檢查的困擾
首先要在資料庫內建立 Table,
DROP TABLE OAUSER.EVT_RECORD CASCADE CONSTRAINTS;
CREATE TABLE OAUSER.EVT_RECORD
(
COMPUTER_NAME VARCHAR2(25 CHAR) NOT NULL,
EVENT_DATE DATE NOT NULL,
EVENT_CODE NUMBER(10) NOT NULL,
EVENT_TYPE VARCHAR2(10 CHAR) NOT NULL,
RECORD_NO NUMBER(10),
RECORD_NUMBER VARCHAR2(10 CHAR) NOT NULL,
CATEGORY_NAME VARCHAR2(25 CHAR) NOT NULL,
MESSAGE VARCHAR2(2000 CHAR),
SOURCE_NAME VARCHAR2(50 CHAR) NOT NULL,
USERNAME VARCHAR2(50 CHAR)
)
之後同樣的執行下列的 VBScript