請教要如何由程式,新增設定一個IIS上的網站 |
|
尚未結案
|
|
laku0121
一般會員   發表：39 回覆：49 積分：17 註冊：2002-10-30 發送簡訊給我 |
|
|
RaynorPao
版主   發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 請問要如何以Delphi設計一個AP,直接由AP設定一個IIS的網站,內容可以指定IP位置,DNS及預設路徑,文件...等等關資訊。 我是有找到使用ADSI的的東東,但還是不會用,是不有那位先進願意幫我的忙,告訴我如何建立,當然能有SAMPLE的話會更好,在此先謝謝了...laku0121 你好: 如果你有安裝 Microsoft SDK 的話 在以下目錄有很多很有用的 sample~~建議你先從這裡開始
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|
laku0121
一般會員 發表：39 回覆：49 積分：17 註冊：2002-10-30 發送簡訊給我 |
引言:引言: 請問要如何以Delphi設計一個AP,直接由AP設定一個IIS的網站,內容可以指定IP位置,DNS及預設路徑,文件...等等關資訊。 我是有找到使用ADSI的的東東,但還是不會用,是不有那位先進願意幫我的忙,告訴我如何建立,當然能有SAMPLE的話會更好,在此先謝謝了...laku0121 你好: 如果你有安裝 Microsoft SDK 的話 在以下目錄有很多很有用的 sample~~建議你先從這裡開始 |
|
雪豆豆
一般會員 發表：19 回覆：22 積分：13 註冊：2002-08-18 發送簡訊給我 |
用 ADSI 目錄必須要加上權限不可以是 guest 存取權限
你可以建立一些 ASP 程式碼來控制.. 如何建立站台沒用過
但是可以給你一些其他用法...先參考..
那有時間在查查看看怎樣新增站台. ------------------------------------------------
新建立 使用者帳號
<％
Set ComputerObj1=GetObject("WinNT://電腦名稱")
Set NewUser=ComputerObj.Create("User","名稱")
NewUser.SetInfo
NewUser.SetPassword("密碼")
NewUser.FullName = "全名"
NewUser.Description = "說明"
NewUser.SetInfo
％>
------------------------------------------------
新建群組
<％
Set ComputerObj=GetObject("WinNT://電腦名稱")
Set GroupObj=ComputerObj.Create("group","新群組名稱") GroupObj.SetInfo GroupObj.GroupDescription = "說明"
GroupObj.SetInfo
％>
------------------------------------------------
刪除群組
<％
Set ComputerObj=GetObject("WinNT://電腦名稱")
GroupPath=ComputerObj.ADsPath & "/群組名稱" Set GroupObj = GetObject(GroupPath) Set ParentObj = GetObject(GroupObj.Parent)
ParentObj.Delete "group",GroupObj.Name
％>
------------------------------------------------
主機服務清單
<％
Set ComputerObj=GetObject("WinNT://電腦名稱")
ComputerObj.Filter = Array("Service") For Each Member in ComputerObj
Response.Write Member.Name & "
" Next ％> ------------------------------------------------ 停止一服務 <％ Set ServerObj=GetObject("WinNT://網域/電腦名稱/服務名稱") ServiceObj.Stop ％> |
|
雪豆豆
一般會員 發表：19 回覆：22 積分：13 註冊：2002-08-18 發送簡訊給我 |
|
|
laku0121
一般會員 發表：39 回覆：49 積分：17 註冊：2002-10-30 發送簡訊給我 |
|
|
code6421
版主 發表：43 回覆：223 積分：208 註冊：2002-08-16 發送簡訊給我 |
|
|
andersonhsieh
版主 發表：33 回覆：531 積分：439 註冊：2002-06-10 發送簡訊給我 |
先引入?型?(Project|Import Type Library)adsiis.dll、iisext.dll和activeds.tlb
新建一??元，?明
unit ActiveDs;
interface
function ADsGetObject(const PathName: WideString; const GUID: TGUID; out I: IUnknown): HRESULT; stdcall;
implementation
function ADsGetObject; external ''activeds.dll'' name ''ADsGetObject'';
end. 方法一(?照C )、
var
I: IADsContainer;
ADs: IADs;
begin
if ADsGetObject(''IIS://localhost/w3svc'', IID_IADsContainer, IUnknown(I)) = S_Ok then
begin
ADs := IADs(I.GetObject(''IIsWebServer'', ''1''));
ShowMessage(ADs.ADsPath);
if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then
begin
ADs := IADs(I.GetObject(''IIsWebVirtualDir'', ''Root''));
ShowMessage(ADs.ADsPath);
if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then
begin
ADs := IADs(I.Create(''IIsWebVirtualDir'', ''DelphiTest''));
ADs.Put(''AccessRead'', ''True'');
ADs.Put(''Path'', ''c:\Temp'');
ADs.SetInfo;
end;
end;
end;
end; 方法二(使用接口)、
procedure TForm3.BitBtn4Click(Sender: TObject);
var
Disp: IDispatch;
begin
Disp := IISNamespace1.GetObject(''IIsWebService'', ''localhost/w3svc'');
Disp := (Disp as IADsContainer).GetObject(''IIsWebServer'', ''1'');
Disp := (Disp as IADsContainer).GetObject(''IIsWebVirtualDir'', ''Root'');
Disp := (Disp as IADsContainer).Create(''IIsWebVirtualDir'', ''DelphiADSITest'');
(Disp as IADs).Put(''AccessRead'', ''True'');
(Disp as IADs).Put(''Path'', ''c:\ADSITest'');
(Disp as IADs).SetInfo;
end; 方法三(使用Variant，就是?似VB和ASP的方法)、
procedure TForm2.BitBtn1Click(Sender: TObject);
var
WebSite, WebServer, WebRoot, VDir: Variant;
begin
WebSite := CreateOleObject(''IISNamespace'');
WebSite := WebSite.GetObject(''IIsWebService'', ''localhost/w3svc'');
WebServer := WebSite.GetObject(''IIsWebServer'', ''1'');
WebRoot := WebServer.GetObject(''IIsWebVirtualDir'', ''Root'');
VDir := WebRoot.Create(''IIsWebVirtualDir'', ''VariantTest'');
VDir.AccessRead := True;
VDir.Path := ''C:\Test'';
VDir.SetInfo;
end; @@~~飛翔在天際的精靈~~@@
------
@@~~飛翔在天際的精靈~~@@ |
|
Ktop_Robot
站務副站長 發表：0 回覆：3511 積分：0 註冊：2007-04-17 發送簡訊給我 |
發表時間：2002-12-05 14:53:01
IP:211.76.xxx.xxx 未訂閱
系統時間：2024-04-26 20:12:30
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |