win2000:
能建立FTP主目录,但设置密码不成功:
代码如下:
procedure TSysControl.Button1Click(Sender: TObject);
var
  Site, Server, VRoot, VDir: Variant;
begin
  Site := CreateOleObject('IISNamespace');
  Site := Site.GetObject('IIsFtpService', 'localhost/MSFTPSVC');
  Server := Site.GetObject('IIsFtpServer', '1');
  VRoot := Server.GetObject('IIsFtpVirtualDir', 'Root');  VRoot.Path := 'D:\Temp';
  VRoot.AccessRead := true;
  VRoot.AccessWrite := true;
  VRoot.UNCUserName := 'zknet';
  VRoot.UNCPassword := 'zknet';
  VRoot.SetInfo;  Site := Unassigned;
  Server := Unassigned;
  VRoot := Unassigned;
  VDir := Unassigned;
end;
为何,请帮忙?