How to call dsktools.exe

HCL Domino Domino Forum
1

Greetings,

how can I call dsktools.exe through agent to remove server icons from workspace.

Thanks,

Panther

2

Subject: How to call dsktools.exe

We use code like this to send users email with dsktool as attchement + button with code:

…

   Set object = doc.GetAttachment( "dsktool.exe" )



Print "Export dsktool to HDD..."

lnPath = getProgramPath()

Call object.ExtractFile(lnPath & "\dsktool.exe")



'create scripfile

Dim x As Integer

x = 0

Open lnPath & "\dsktoolscriptfile.txt" For Output As #1

Forall server In doc.GetItemValue("fldServerFrom")

	Print #1, "Rename " & server  & " " & doc.GetItemValue("fldServerTo")(x)

	x = x + 1

End Forall

Close #1



    ' execute dsktool with name of scriptfile as parametr

Dim prikaz As String

prikaz  = lnPath & "\dsktool.exe dsktoolscriptfile.txt -I -R"



result  = Shell(prikaz, 1)
3

Subject: RE: How to call dsktools.exe

He Its working now.Thanks Lubos.

4

Subject: RE: How to call dsktools.exe

Hi Lubos,

Dim prikaz As String

prikaz = Curdir() & "\dsktool.exe DeleteServer.txt -I -R"



result = Shell(prikaz, 1)

I am using this but it is giving me error that file not found