delphi创建IIS(25分)

我在网上得到以下程序
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;
引入.dll后执行出现如下错误
"variant does not referrnce an automation object"
请高手指点迷津

你是在什么系统，是2000吗？另外装了iis没有？如果没有，装上就可以了。
IIS好像要在nt以上版本才会有的

接受答案了.