資訊遊俠

只要是身為企業MIS，

應該沒有人沒幫電腦加入過網域(AD)

雖然並不是天天都需要加網域，

但日複一日的手動自己加入，

想必也會厭煩，

以下就提供加入網域的程式源碼：

send("#d")

$set1=msgbox(4," ","是否執行加入網域程序？")

if $set1=6 Then

        $account = String("administrator")

        $password = String("password")

        $domain = String("domain")

        run("control sysdm.cpl,,1")

        winwaitactive("系統內容")

        controlclick("系統內容","變更(&C)","Button2")

        winwaitactive("電腦名稱變更")

        controlclick("電腦名稱變更","網域(&D)","Button3")

        controlclick("電腦名稱變更","","Edit3")

        send($domain)

        send("{ENTER}")

        winwaitactive("電腦名稱變更")

        send($account)

        send("{TAB}")

        send($password)

        Sleep(1500)

        send("{ENTER}")

        For $i=1 to 2

                sleep(2000)

                send("{ENTER}")

        Next

        controlclick("系統內容","確定","Button3")

        send("{ENTER}")

EndIf

說明：

因其語法都使用很直覺的鍵盤及滑鼠操作指令，

故不對每一指令贅述。

MsgBox (旗標, "標題", "文字")

在此只條列出較常使用的

旗標的值為訊息視窗的類型

故設定一變數去取得按鈕的狀態，

當按下[是]程式才會往下執行