asp重啓服務器代碼

 下面先說COM的製作，在VB中新建一工程，當然是AceiveX dll的！ 
    1）先修改工程屬性，在工程屬性窗口將工程名稱改爲system，在類模塊窗口將模塊名稱改爲contral，保存工程； 
    2）然後添加一個模塊，用來聲明需要使用的API和常數！下面是模塊中的內容！ 
    Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long 
    3）在類模塊中輸入下列代碼： 
    Public Function reboot(atype As Variant) 
    t& = ExitWindowsEx(1, atype) 
    End Function 
    該函數需要傳入一個參數，用來控制啓動方式，這個參數是從ASP程序中傳入的，等一下就可以看到具體的使用方法！ 
     
    編寫完上面的代碼，保存工程，將工程編譯爲system.dll。下面就寫ASP程序！ 
     
    ASP中的代碼非常簡單： 
     
    其中atype可以使用0、1、2、4，0、1和4均爲關機，2用來重啓。寫完後執行ASP就可以了！