請教要如何由程式,新增設定一個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~~建議你先從這裡開始 ..\ > -- >>< face="Verdana, Arial, Helvetica"> 先謝謝您, 我得去找一下SDK目前我沒有。。。 |
雪豆豆
一般會員 發表: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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |