BorlandTalk.com

Guest · Posted: Tue Sep 12, 2006 4:43 pm Post subject: Help VBS to Delphi

i need your help some eror when i convert is VBS code to Delphi.
thats eror code is =

For Each objItem in colItems
objItem.AddExtensionFile _
"C:\dene.exe", True, _
"BITSEXT", True, "BITS Update"
Next

VBS and Delphi codes in the bottom.
thaks anyway for your helps.

**************************
VBS Code;

strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
("Select * From IIsWebService")

For Each objItem in colItems
objItem.AddExtensionFile _
"C:\dene.exe", True, _
"BITSEXT", True, "BITS Update"
Next

Delphi Convert Code Smile

;

function TForm1.GetObject(const objectName: String): IDispatch;
var
bindCtx: IBindCtx;
moniker: IMoniker;
chEaten: Integer;
begin
OleCheck(CreateBindCtx(0, bindCtx));
OleCheck(MkParseDisplayName(bindCtx, StringToOleStr(objectName),
chEaten,
moniker));
OleCheck(moniker.BindToObject(bindCtx, nil, IDispatch, Result));
end;

procedure TForm1.Button3Click(Sender: TObject);
var
objWMIService: OLEVariant;
colItems: OLEVariant;
begin
objWMIService:=GetObject('winmgmts:{authenticationLevel=pktPrivacy}\\localhost\root\microsoftiisv2');
colItems:=objWMIService.ExecQuery('Select * From IIsWebService');

{
For Each objItem in colItems
objItem.AddExtensionFile _
"C:\dene.exe", True, _
"BITSEXT", True, "BITS Update"
Next
}

:(

end;

Riki Wiki · Guest

Hoi

You need to repost your message on the Borland news server to make
everybody see it and possibly answer your message.

How to post to Delphi newsgroups:
<http://delphi.wikia.com/wiki/Delphi_Newsgroups>