Translate a vbs to a autoit 3 script

December 5, 2007

Hallo

I have a vbs that reg. a COM+ for a dll file.

Help me translate this to autoit3

CODE

' Arguments(0) : Pakke navn (bør altid hedde EposHR)

' Arguments(1) : Den fulde sti til den dll der skal gemmes som COM+ (med navn og drev- navn)

' Arguments(2) : Den fulde sti til der hvor dll- filen må ligge

Dim packageName

packageName = WScript.Arguments(0)

'First, we create the catalog object

Dim catalog

Set catalog = CreateObject("MTSAdmin.Catalog.1")

'Then we get the packages collection

Dim packages

Set packages = catalog.GetCollection("Packages")

packages.populate

Dim putil

Set putil = packages.GetUtilInterface

'Remove all packages that go by the same name as the package we wish to uninstall

numPackages = packages.Count

For i = numPackages - 1 To 0 Step -1

If packages.Item(i).Value("Name") = packageName Then

WScript.Echo("Stopper pakken: " & packageName )'& " ID " & packages.Item(i).Value("ID") & vbNewLine)

putil.ShutdownPackage(packages.Item(i).Value("ID"))

'WScript.Echo("Shutdown done" &vbNewLine)

WScript.Echo("Sletter objekter i pakken: " & packageName & vbNewLine)

packages.Remove (i)

'WScript.Echo("Remove done" &vbNewLine &vbNewLine)

' Commit our deletions

packages.savechanges

exit for

End If

objFs.copyfile "" & WScript.Arguments(1),WScript.Arguments(2)

'Uninstall complete

'Install package

Dim newPackage

Set newPackage = packages.Add

newPackage.Value("Name") = packageName

newPackage.Value("SecurityEnabled") = "N"

newPackage.Value("ShutdownAfter") = "20"

' Commit new package

packages.SaveChanges

' Refresh packages

packages.Populate

'Get components collection for new package

Dim components

Set components = packages.GetCollection("ComponentsInPackage", newPackage.Value("ID"))

' Install components

Dim util

Set util = components.GetUtilInterface

' VB and VC

WScript.Echo("Installerer: "& packageName & vbNewLine)

'WScript.Echo(newPackage.Value("ID") & vbNewLine)

'WScript.Echo(dllPath & vbNewLine)

'on error resume next

util.InstallComponent WScript.Arguments(2), "", ""

'WScript.Echo(err.description):response.end

'if Error.err = "80110401" then WScript.Echo("Installed other place")

components.SaveChanges

components.Populate

n = Components.Count

components.SaveChanges

WScript.Echo(n &" objekter blev installeret" &vbNewLine)

'response.redirect("install.asp?init=" & sInit & "&pack=" & packageName & "&dll=" & Server.URLEncode(Request("dll")))

I have a autoit3 script that use this here is my script

#cs ----------------------------------------------------------------------------



AutoIt Version: 3.2.10.0

Author: Janus S. Andersen



Script Function:

1. Åbner COM + registrings dialog

2. Forsøger at finde en komponet med navnet EposHR

Template AutoIt script.



#ce ----------------------------------------------------------------------------



; Script Start - Add your code below here

Opt("SendKeyDelay", 50) ;5 milliseconds

Opt("SendKeyDownDelay", 10) ;1 millisecond

dim $x_1,$y_1

$x_1=@DesktopWidth/2

$y_1=20

ShellExecuteWait("TestInstallPackage","",@ScriptDir)



ToolTip("Input data til komponet install", $x_1, $y_1)

$user = InputBox("Indtast brugernavn", "Indtast brugernavn",""&@UserName)

$password = InputBox("Indtast kodeord", "Indtast kodeord","","*")

ToolTip("Starter program til komponet registringen", $x_1, $y_1)



ShellExecute("C:\WINDOWS\system32\Com\comexp.msc", "", "C:\WINDOWS\system32\Com\")

WinWait("[CLASS:MMCMainFrame]", "")

WinActivate("[CLASS:MMCMainFrame]", "")

WinSetState("[CLASS:MMCMainFrame]", "", @SW_MAXIMIZE)

ToolTip("Finder COM +", $x_1, $y_1)



Send("{DOWN}{RIGHT}")

Sleep(1000)

Send("{DOWN}{RIGHT}")

Sleep(1000)

Send("{DOWN}{RIGHT}")

Sleep(1000)

Send("{DOWN}{RIGHT}")

Sleep(1000)

Send("{CTRLDOWN}w{CTRLUP}")

Sleep(1000)

Send("{DOWN}{RIGHT}")

Sleep(1000)

Send("{DOWN}{RIGHT}")

Sleep(1000)

Send("{DOWN}{RIGHT}")

Sleep(1000)

Send("c")

Sleep(1000)

Send("{ALT}")

Sleep(1000)

Send("{RIGHT}{DOWN}{DOWN}{RIGHT}{ENTER}")

ToolTip("Åbner opret ny COM + dialog", $x_1, $y_1)



WinWait("[CLASS:#32770]", "")

;~ WinActivate("[CLASS:#32770]", "")

WinSetState("[CLASS:#32770]", "", @SW_MAXIMIZE)

Send("{ENTER}{TAB}")

Sleep(1000)

Send("{ENTER}")

Sleep(1000)

$t1 = WinGetTitle("", "")

;~ MsgBox(0,""&$t1,""&$t1)

ToolTip("Navngiver COM +", $x_1, $y_1)

Sleep(2000)

Send("EposHR{TAB}")

Sleep(1000)

;~ Send("{UP}")

;~ Sleep(1000)

Send("{ENTER}")

ToolTip("Undersøger om COM + findes", $x_1, $y_1)

Sleep(2000)

$t2 = WinGetTitle("", "")

;~ MsgBox(0,""&$t2,""&$t2)

Sleep(2000)



If StringCompare($t1, $t2) <> 0 Then

ToolTip("COM + er fundet handles ud fra dette", $x_1, $y_1)



; MsgBox(0,"1","1")

$t3=WinGetTitle("","")

ControlClick($t3,"","[CLASS:Button; INSTANCE:1]")



;~ Send("{ENTER}")

Sleep(1000)

Send("{TAB 3}")

Send("{ENTER}")

Sleep(1000)

Send("{RIGHT}")

Send("E")

Sleep(1000)

Send("{ALT}{RIGHT}{UP 3}{ENTER}")

WinWait("[CLASS:#32770]", "")

; WinActivate("[CLASS:#32770]", "")

Send("{TAB 4}")

Sleep(1000)

Send("{RIGHT 2}")

Sleep(1000)

$t3=WinGetTitle("","")

ControlClick($t3,"","[CLASS:Button; INSTANCE:3]")

ControlSetText($t3,"","[CLASS:Edit; INSTANCE:1]",""& $user)

ControlSetText($t3,"","[CLASS:Edit; INSTANCE:2]",""& $password)

ControlSetText($t3,"","[CLASS:Edit; INSTANCE:3]",""& $password)

Send("{ENTER}")

Sleep(1000)

Send("{RIGHT}")

Sleep(1000)

Send("{DOWN}")

Sleep(1000)

Send("{RIGHT}")

Else

; MsgBox(0,"2","2")

Sleep(500)

Send("{DOWN}")

Send("{TAB}")

Sleep(1000)

$t3=WinGetTitle("","")

ControlClick($t3,"","[CLASS:Button; INSTANCE:3]")

ControlSetText($t3,"","[CLASS:Edit; INSTANCE:1]",""& $user)

ControlSetText($t3,"","[CLASS:Edit; INSTANCE:2]",""& $password)

ControlSetText($t3,"","[CLASS:Edit; INSTANCE:3]",""& $password)



;~ Send("" & $user)

;~ Send("{TAB 2}")

;~ Send("" & $password)

;~ Send("{TAB}")

;~ Send("" & $password)

Send("{ENTER}")

Sleep(1000)

Send("{ENTER}")

Sleep(1000)

Send("{RIGHT}")

Sleep(1000)

Send("e")

Sleep(1000)

Send("{RIGHT}")

Sleep(1000)

Send("{DOWN}")

Sleep(1000)

Send("{RIGHT}")

Sleep(1000)

;~ Send("{ALT}{RIGHT}{DOWN 2}{RIGHT}{ENTER}")

EndIf

Best Regaard

Janus S. Andersen

December 5, 2007

Hallo
I have a vbs that reg. a COM+ for a dll file.
Help me translate this to autoit3
Best Regaard
Janus S. Andersen

As in another recent post:

1. Take all the "Set" commands out, AutoIt doesn't need "Set" to do assignment

2. Change CreateObject() to ObjCreate().

2. Put a dollar sign "$" in front of every variable name instance (i.e. packagename, catalog, putil, etc.)

3. Put parameters inside parens, i.e. $objFs.copyfile(WScript.Arguments(1),WScript.Arguments(2))

Like the Water Boy, "You can do it!"

December 5, 2007

I have tryed

; Arguments(0) : Packed name (Is EposHR)
; Arguments(1) : The full path of the dll that have to be stored as COM+ (Full path)
; Arguments(2) : The full path for the dll- file (the dest of the file)

Dim $packageName
$packageName= $CmdLine[0]
;First, we create the catalog object
Dim $catalog
 $catalog = ObjCreate("MTSAdmin.Catalog.1")
;Then we get the packages collection
Dim $packages
 $packages = $catalog.GetCollection("Packages")
$packages.populate
Dim $putil
 $putil = $packages.GetUtilInterface
;Remove all packages that go by the same name as the package we wish to uninstall
$numPackages = $packages.Count
For $i = $numPackages - 1 To 0 Step -1
If $packages.Item($i).Value("Name") = $packageName Then
ConsoleWrite("Stopper pakken: " & $packageName );& " ID " & packages.Item(i).Value("ID") & vbNewLine)
$putil.ShutdownPackage($packages.Item($i).Value("ID"))
;ConsoleWrite(("Shutdown done" &vbNewLine)
ConsoleWrite("Sletter objekter i pakken: " & $packageName & @CRLF)
$packages.Remove ($i)
;ConsoleWrite(("Remove done" &vbNewLine &vbNewLine)
; Commit our deletions
$packages.savechanges
EndIf
Next
;~  $objFS = ObjCreate("Scripting.FileSystemObject")
;~ $objFs.copyfile "" & $CmdLine[1],$CmdLine[2]
FileCopy($CmdLine[1],$CmdLine[2])
;Uninstall complete 
;Install package
Dim $newPackage
 $newPackage = $packages.Add
$newPackage.Value("Name") = $packageName
$newPackage.Value("SecurityEnabled") = "N"
$newPackage.Value("ShutdownAfter") = "20"
; Commit new package
$packages.SaveChanges

; Refresh packages

$packages.Populate

;Get components collection for new package

Dim $components
 $components = $packages.GetCollection("ComponentsInPackage", $newPackage.Value("ID"))

; Install components

Dim $util
ObjCreate( $util = $components.GetUtilInterface)

; VB and VC
ConsoleWrite("Installerer: "& $packageName & @CRLF) 
;ConsoleWrite((newPackage.Value("ID") & vbNewLine) 
;ConsoleWrite((dllPath & vbNewLine) 
;on error resume next
$util.InstallComponent($CmdLine[2], "", "")
;ConsoleWrite((err.description):response.end

;if Error.err = "80110401" then ConsoleWrite(("Installed other place")
$components.SaveChanges 
$components.Populate
$n = $Components.Count
$components.SaveChanges 
ConsoleWrite($n &" objekter blev installeret" &@CRLF) 
;response.redirect("install.asp?init=" & sInit & "&pack=" & packageName & "&dll=" & Server.URLEncode(Request("dll")))

But it is not working. Help me out.

Janus S. Andersen

December 5, 2007

@Janus...To make debugging easier...please add this to your script after objcreate()...

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")

and the following MyErrFunc function...

Func MyErrFunc()

  Msgbox(0,"AutoItCOM Test","We intercepted a COM Error !"    & @CRLF  & @CRLF & _
             "err.description is: " & @TAB & $oMyError.description  & @CRLF & _
             "err.windescription:"   & @TAB & $oMyError.windescription & @CRLF & _
             "err.number is: "       & @TAB & hex($oMyError.number,8)  & @CRLF & _
             "err.lastdllerror is: "   & @TAB & $oMyError.lastdllerror   & @CRLF & _
             "err.scriptline is: "   & @TAB & $oMyError.scriptline   & @CRLF & _
             "err.source is: "       & @TAB & $oMyError.source       & @CRLF & _
             "err.helpfile is: "       & @TAB & $oMyError.helpfile     & @CRLF & _
             "err.helpcontext is: " & @TAB & $oMyError.helpcontext _
            )
            
    Local $err = $oMyError.number
    If $err = 0 Then $err = -1
    
    SetError($err) ; to check for after this function returns
Endfunc

December 5, 2007

I have tryed

But it is not working. Help me out.
Janus S. Andersen

"But it is not working" is pretty vague, but this looks suspicious:

; Install components

Dim $util
ObjCreate( $util = $components.GetUtilInterface)oÝ÷ Ù:òÙbëaÈ§r[zÇ«®ájwez·ë¢`ã
ç©ÓF§v·©¢»^Å§-,!jØZ¦§²'âµÚ²}ý·
+Ú-zØZµ×ªâ¯j¸nWÖ¬²('x-ëÚçjvÞvÞ¢{azÆ¦zX§z)ÀºÚµ«¢+ØìÉÕµ¹ÑÌ À¤èA¹µ¡%ÌÁ½Í!H¤(ìÉÕµ¹ÑÌ Ä¤èQ¡Õ±°ÁÑ ½Ñ¡±°Ñ¡Ð¡ÙÑ¼ÍÑ½ÉÌ
=4¬¡Õ±°ÁÑ ¤(ìÉÕµ¹ÑÌ È¤èQ¡Õ±°ÁÑ ½ÈÑ¡±°´¥±¡Ñ¡ÍÐ½Ñ¡¥±¤()±½°ÀÌØí½5åÉÉ½Èô=©Ù¹Ð ÅÕ½ÐíÕÑ½%Ð¹ÉÉ½ÈÅÕ½Ðì°ÅÕ½Ðí5åÉÉÕ¹ÅÕ½Ðì¤()¥´ÀÌØíÁ9µôÀÌØí
µ1¥¹lÁt((í¥ÉÍÐ°ÝÉÑÑ¡Ñ±½½©Ð)¥´ÀÌØíÑ±½ô=©
ÉÑ ÅÕ½Ðí5QMµ¥¸¹
Ñ±½¸ÄÅÕ½Ðì¤((íQ¡¸ÝÐÑ¡ÁÌ½±±Ñ¥½¸)¥´ÀÌØíÁÌôÀÌØíÑ±½¹Ñ
½±±Ñ¥½¸ ÅÕ½ÐíAÌÅÕ½Ðì¤(ÀÌØíÁÌ¹Á½ÁÕ±Ñ)¥´ÀÌØíÁÕÑ¥°ôÀÌØíÁÌ¹ÑUÑ¥±%¹ÑÉ((íIµ½Ù±°ÁÌÑ¡Ð¼äÑ¡Íµ¹µÌÑ¡ÁÝÝ¥Í Ñ¼Õ¹¥¹ÍÑ±°(ÀÌØí¹ÕµAÌôÀÌØíÁÌ¹
½Õ¹Ð)½ÈÀÌØí¤ôÀÌØí¹ÕµAÌ´ÄQ¼ÀMÑÀ´Ä(%%ÀÌØíÁÌ¹%Ñ´ ÀÌØí¤¤¹Y±Õ ÅÕ½Ðí9µÅÕ½Ðì¤ôÀÌØíÁ9µQ¡¸($%
½¹Í½±]É¥Ñ ÅÕ½ÐíMÑ½ÁÁÈÁ¸èÅÕ½ÐìµÀìÀÌØíÁ9µ¤ìµÀìÅÕ½Ðì%ÅÕ½ÐìµÀìÁÌ¹%Ñ´¡¤¤¹Y±Õ ÅÕ½Ðí%ÅÕ½Ðì¤µÀìÙ9Ý1¥¹¤($$ÀÌØíÁÕÑ¥°¹M¡ÕÑ½Ý¹A ÀÌØíÁÌ¹%Ñ´ ÀÌØí¤¤¹Y±Õ ÅÕ½Ðí%ÅÕ½Ðì¤¤($$í
½¹Í½±]É¥Ñ  ÅÕ½ÐíM¡ÕÑ½Ý¸½¹ÅÕ½ÐìµÀíÙ9Ý1¥¹¤($%
½¹Í½±]É¥Ñ ÅÕ½ÐíM±ÑÑÈ½©ÑÈ¤Á¸èÅÕ½ÐìµÀìÀÌØíÁ9µµÀì
I1¤($$ÀÌØíÁÌ¹Iµ½Ù ÀÌØí¤¤($$í
½¹Í½±]É¥Ñ  ÅÕ½ÐíIµ½Ù½¹ÅÕ½ÐìµÀíÙ9Ý1¥¹µÀíÙ9Ý1¥¹¤($$ì
½µµ¥Ð½ÕÈ±Ñ¥½¹Ì($$ÀÌØíÁÌ¹ÍÙ¡¹Ì(%¹%)9áÐ(íøÀÌØí½©Lô=©
ÉÑ ÅÕ½ÐíMÉ¥ÁÑ¥¹¹¥±MåÍÑµ=©ÐÅÕ½Ðì¤(íøÀÌØí½©Ì¹½Áå¥±ÅÕ½ÐìÅÕ½ÐìµÀìÀÌØí
µ1¥¹lÅt°ÀÌØí
µ1¥¹lÉt)¥±
½Áä ÀÌØí
µ1¥¹lÅt°ÀÌØí
µ1¥¹lÉt¤(íU¹¥¹ÍÑ±°½µÁ±Ñ(í%¹ÍÑ±°Á)¥´ÀÌØí¹ÝA(ÀÌØí¹ÝAôÀÌØíÁÌ¹(ÀÌØí¹ÝA¹Y±Õ ÅÕ½Ðí9µÅÕ½Ðì¤ôÀÌØíÁ9µ(ÀÌØí¹ÝA¹Y±Õ ÅÕ½ÐíMÕÉ¥Ñå¹±ÅÕ½Ðì¤ôÅÕ½Ðí8ÅÕ½Ðì(ÀÌØí¹ÝA¹Y±Õ ÅÕ½ÐíM¡ÕÑ½Ý¹ÑÈÅÕ½Ðì¤ôÅÕ½ÐìÈÀÅÕ½Ðì(ì
½µµ¥Ð¹ÜÁ(ÀÌØíÁÌ¹MÙ
¡¹Ì((ìIÉÍ ÁÌ((ÀÌØíÁÌ¹A½ÁÕ±Ñ((íÐ½µÁ½¹¹ÑÌ½±±Ñ¥½¸½È¹ÜÁ()¥´ÀÌØí½µÁ½¹¹ÑÌ(ÀÌØí½µÁ½¹¹ÑÌôÀÌØíÁÌ¹Ñ
½±±Ñ¥½¸ ÅÕ½Ðí
½µÁ½¹¹ÑÍ%¹AÅÕ½Ðì°ÀÌØí¹ÝA¹Y±Õ ÅÕ½Ðí%ÅÕ½Ðì¤¤((ì%¹ÍÑ±°½µÁ½¹¹ÑÌ)¥´ÀÌØíÕÑ¥°ôÀÌØí½µÁ½¹¹ÑÌ¹ÑUÑ¥±%¹ÑÉ)
½¹Í½±]É¥Ñ ÅÕ½Ðí%¹ÍÑ±±ÉÈèÅÕ½ÐìµÀìÀÌØíÁ9µµÀì
I1¤(ÀÌØíÕÑ¥°¹%¹ÍÑ±±
½µÁ½¹¹Ð ÀÌØí
µ1¥¹lÉt°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì¤(ÀÌØí½µÁ½¹¹ÑÌ¹MÙ
¡¹Ì(ÀÌØí½µÁ½¹¹ÑÌ¹A½ÁÕ±Ñ(ÀÌØí¸ôÀÌØí½µÁ½¹¹ÑÌ¹
½Õ¹Ð(ÀÌØí½µÁ½¹¹ÑÌ¹MÙ
¡¹Ì)
½¹Í½±]É¥Ñ ÀÌØí¸µÀìÅÕ½Ðì½©ÑÈ±Ø¥¹ÍÑ±±ÉÐÅÕ½ÐìµÀì
I1¤()Õ¹5åÉÉÕ¹ ¤(%5Í   ½à À°ÅÕ½ÐíÕÑ½%Ñ
=4QÍÐÅÕ½Ðì°ÅÕ½Ðí]¥¹ÑÉÁÑ
=4ÉÉ½ÈÌÌìÅÕ½ÐìµÀì
I1µÀì
I1µÀì|($$$ÅÕ½ÐíÉÈ¹ÍÉ¥ÁÑ¥½¸¥ÌèÅÕ½ÐìµÀìQµÀìÀÌØí½5åÉÉ½È¹ÍÉ¥ÁÑ¥½¸µÀì
I1µÀì|($$$ÅÕ½ÐíÉÈ¹Ý¥¹ÍÉ¥ÁÑ¥½¸èÅÕ½ÐìµÀìQµÀìÀÌØí½5åÉÉ½È¹Ý¥¹ÍÉ¥ÁÑ¥½¸µÀì
I1µÀì|($$$ÅÕ½ÐíÉÈ¹¹ÕµÈ¥ÌèÅÕ½ÐìµÀìQµÀì!à ÀÌØí½5åÉÉ½È¹¹ÕµÈ°à¤µÀì
I1µÀì|($$$ÅÕ½ÐíÉÈ¹±ÍÑ±±ÉÉ½È¥ÌèÅÕ½ÐìµÀìQµÀìÀÌØí½5åÉÉ½È¹±ÍÑ±±ÉÉ½ÈµÀì
I1µÀì|($$$ÅÕ½ÐíÉÈ¹ÍÉ¥ÁÑ±¥¹¥ÌèÅÕ½ÐìµÀìQµÀìÀÌØí½5åÉÉ½È¹ÍÉ¥ÁÑ±¥¹µÀì
I1µÀì|($$$ÅÕ½ÐíÉÈ¹Í½ÕÉ¥ÌèÅÕ½ÐìµÀìQµÀìÀÌØí½5åÉÉ½È¹Í½ÕÉµÀì
I1µÀì|($$$ÅÕ½ÐíÉÈ¹¡±Á¥±¥ÌèÅÕ½ÐìµÀìQµÀìÀÌØí½5åÉÉ½È¹¡±Á¥±µÀì
I1µÀì|($$$ÅÕ½ÐíÉÈ¹¡±Á½¹ÑáÐ¥ÌèÅÕ½ÐìµÀìQµÀìÀÌØí½5åÉÉ½È¹¡±Á½¹ÑáÐ|($$$¤(%1½°ÀÌØíÉÈôÀÌØí½5åÉÉ½È¹¹ÕµÈ(%%ÀÌØíÉÈôÀQ¡¸ÀÌØíÉÈô´Ä(%MÑÉÉ½È ÀÌØíÉÈ¤ìÑ¼¡¬½ÈÑÈÑ¡¥ÌÕ¹Ñ¥½¸ÉÑÕÉ¹Ì)¹Õ¹ìôôÐí5åÉÉÕ¹

December 5, 2007

Thanks all of you!

It is not working but now a get a error message to work with!

I am calling the script like this (from a cmd)

COM_plus.exe EposHR autoexp.dll c:\temp\autoexp.dll

The script that I am runing is

; Script Start - Add your code below here
; Arguments(0) : Packed name (Is EposHR)
; Arguments(1) : The full path of the dll that have to be stored as COM+ (Full path)
; Arguments(2) : The full path for the dll- file (the dest of the file)

Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
Dim $packageName = $CmdLine[1]
;First, we create the catalog object
Dim $catalog = ObjCreate("MTSAdmin.Catalog.1")

;Then we get the packages collection
Dim $packages = $catalog.GetCollection("Packages")
$packages.populate
Dim $putil = $packages.GetUtilInterface

;Remove all packages that go by the same name as the package we wish to uninstall
$numPackages = $packages.Count
For $i = $numPackages - 1 To 0 Step - 1
    If $packages.Item($i).Value("Name") = $packageName Then
        ConsoleWrite("Stopper pakken: " & $packageName);& " ID " & packages.Item(i).Value("ID") & vbNewLine)
        $putil.ShutdownPackage($packages.Item($i).Value("ID"))
        ;ConsoleWrite(("Shutdown done" &vbNewLine)
        ConsoleWrite("Sletter objekter i pakken: " & $packageName & @CRLF)
        $packages.Remove($i)
        ;ConsoleWrite(("Remove done" &vbNewLine &vbNewLine)
        ; Commit our deletions
        $packages.savechanges
    EndIf
Next
;~  $objFS = ObjCreate("Scripting.FileSystemObject")
;~ $objFs.copyfile "" & $CmdLine[1],$CmdLine[2]
FileCopy($CmdLine[2], $CmdLine[3])
;Uninstall complete
;Install package
Dim $newPackage
$newPackage = $packages.Add
$newPackage.Value("Name") = $packageName
$newPackage.Value("SecurityEnabled") = "N"
$newPackage.Value("ShutdownAfter") = "20"
; Commit new package
$packages.SaveChanges

; Refresh packages

$packages.Populate

;Get components collection for new package

Dim $components
$components = $packages.GetCollection("ComponentsInPackage", $newPackage.Value("ID"))

; Install components
Dim $util = $components.GetUtilInterface
ConsoleWrite("Installerer: " & $packageName & @CRLF)
$util.InstallComponent($CmdLine[3], "", "")
$components.SaveChanges
$components.Populate
$n = $components.Count
$components.SaveChanges
ConsoleWrite($n & " objekter blev installeret" & @CRLF)

Func MyErrFunc()
    MsgBox(0, "AutoItCOM Test", "We intercepted a COM Error !" & @CRLF & @CRLF & _
            "err.description is: " & @TAB & $oMyError.description & @CRLF & _
            "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
            "err.number is: " & @TAB & Hex($oMyError.number, 8) & @CRLF & _
            "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _
            "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _
            "err.source is: " & @TAB & $oMyError.source & @CRLF & _
            "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _
            "err.helpcontext is: " & @TAB & $oMyError.helpcontext _
            )
    Local $err = $oMyError.number
    If $err = 0 Then $err = -1
    SetError($err) ; to check for after this function returns
EndFunc   ;==>MyErrFunc

Best Regaards

Janus S. Andersen

And thanks for the help so far!

December 19, 2007

Thanks PsaltyDS, DjDeep00 and PsaltyDS

The code is doing:

1. find a predefined COM+ object and delete it

2. Install a new COM+ from a dll file

3. Put in the user rights on the COM+ ("Brugernavn" username and (kodeord) password)

4. It stores the COM+ object

5. It counts alle the methodes in it

The script is a part of a installer (I am using nsis to make the installer part)

It is working and here is my code!:

Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

Dim $packageName,$catalog,$packages,$putil,$numPackages,$i,$newPackage,$components, $util, $n, $dll_path, $strUsername,$strPassword,$file,$search 

#include <GUIConstants.au3> 
Dim $brugernavn, $kodeord, $COMNavn, $dllsti
 
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=c:\documents and settings\tester\desktop\complus_gui.kxf\\\\
Global $AForm1 = GUICreate("COM plus installer", 547, 230, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "AForm1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "AForm1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "AForm1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "AForm1Restore")
Global $ALabel1 = GUICtrlCreateLabel("Brugernavn", 16, 48, 59, 17)
GUICtrlSetOnEvent($ALabel1, "ALabel1Click")
Global $AInput1 = GUICtrlCreateInput("", 96, 48, 329, 21)
GUICtrlSetOnEvent($AInput1, "AInput1Change")
GUICtrlSetTip($AInput1, "Brugernavn")
Global $ALabel2 = GUICtrlCreateLabel("Kodeord", 32, 80, 44, 17)
GUICtrlSetOnEvent($ALabel2, "ALabel2Click")
Global $AInput2 = GUICtrlCreateInput("", 96, 80, 329, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL))
GUICtrlSetOnEvent($AInput2, "AInput2Change")
GUICtrlSetTip($AInput2, "Kodeord")
Global $ALabel3 = GUICtrlCreateLabel("Sti til dll", 32, 112, 39, 17)
GUICtrlSetOnEvent($ALabel3, "ALabel3Click")
Global $AInput3 = GUICtrlCreateInput("", 96, 112, 329, 21)
GUICtrlSetOnEvent($AInput3, "AInput3Change")
GUICtrlSetTip($AInput3, "Sti til den dll fil der anvndes")
Global $AButton1 = GUICtrlCreateButton("Gennemse", 440, 112, 75, 25, 0)
GUICtrlSetOnEvent($AButton1, "AButton1Click")
GUICtrlSetTip($AButton1, "Åbner en dialog til at finde dll filen med")
Global $AInput4 = GUICtrlCreateInput("EposHR", 96, 144, 329, 21)
GUICtrlSetOnEvent($AInput4, "AInput4Change")
GUICtrlSetTip($AInput4, "Navn på pakken for dll COM+ elementet")
Global $AButton2 = GUICtrlCreateButton("Udfør", 168, 184, 75, 25, 0)
GUICtrlSetOnEvent($AButton2, "AButton2Click")
GUICtrlSetTip($AButton2, "Udør program")
Global $AButton3 = GUICtrlCreateButton("Fortryd", 272, 184, 75, 25, 0)
GUICtrlSetOnEvent($AButton3, "AButton3Click")
GUICtrlSetTip($AButton3, "Stop udførelsen af COM +")
Global $AEdit1 = GUICtrlCreateEdit("", 16, 8, 497, 25, $ES_WANTRETURN)
GUICtrlSetData($AEdit1, "Dette er et program til at installere COM+ med")
GUICtrlSetOnEvent($AEdit1, "AEdit1Change")
GUICtrlSetState($AEdit1, $GUI_DISABLE)
Global $Label1 = GUICtrlCreateLabel("COM + Navn", 8, 144, 66, 17)
GUICtrlSetOnEvent($Label1, "Label1Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
ControlSetText("", "", $AInput1, "" & @UserName)
Send("{TAB}")
Dim $loop_status = 1

$search = FileFindFirstFile("*.dll")
$file = FileFindNextFile($search)
;~ MsgBox(4096, "File:"&@ScriptDir&"\"&$file, @ScriptDir&"\"&$file)
FileClose($search)

ControlSetText("", "", $AInput3, @ScriptDir&"\"&$file)  ; Sætter den sti filen har samt filens navn

While 1
    Sleep(100)
    If $loop_status = 0 Then
        WinSetTrans("","",0)
        ProgressOn("Epos HR COM", "Status", "0 pct")
        ExitLoop
    EndIf
WEnd

Func AButton1Click()
    $message = "Vælg den mappe hvor dll filen ligger" 
    $dll_path = FileOpenDialog($message, @ScriptDir & "\", "Dll filer (*.dll)|Alle filer (*.*)", 1)
    If @error = 0 Then  ; Tjekker om der er valgt en fil eller cancel
        ControlSetText("", "", $AInput3, $dll_path)     ; Sætter den sti filen har samt filens navn
    EndIf

EndFunc   ;==>AButton1Click
Func AButton2Click()
;~  MsgBox(0, "", "Brugernavn:" & ControlGetText("", "", $AInput1) & @CRLF & "Kodeord:" & ControlGetText("", "", $AInput2) & @CRLF & "Sti til dll:" & ControlGetText("", "", $AInput3) & @CRLF & "COM+ navn:" & ControlGetText("", "", $AInput4))
    $strUsername = ControlGetText("", "", $AInput1)
    $strPassword = ControlGetText("", "", $AInput2)
    $dll_path = ControlGetText("", "", $AInput3)
    $packageName = ControlGetText("", "", $AInput4)

    $loop_status=0
EndFunc   ;==>AButton2Click
Func AButton3Click()
    Exit
EndFunc   ;==>AButton3Click
Func AEdit1Change()
    
EndFunc   ;==>AEdit1Change
Func AForm1Close()
    Exit
EndFunc   ;==>AForm1Close
Func AForm1Maximize()
    
EndFunc   ;==>AForm1Maximize
Func AForm1Minimize()
    
EndFunc   ;==>AForm1Minimize
Func AForm1Restore()
    
EndFunc   ;==>AForm1Restore
Func AInput1Change()
    
EndFunc   ;==>AInput1Change
Func AInput2Change()
    
EndFunc   ;==>AInput2Change
Func AInput3Change()
    
EndFunc   ;==>AInput3Change
Func AInput4Change()
    
EndFunc   ;==>AInput4Change
Func ALabel1Click()
    
EndFunc   ;==>ALabel1Click
Func ALabel2Click()
    
EndFunc   ;==>ALabel2Click
Func ALabel3Click()
    
EndFunc   ;==>ALabel3Click
Func Label1Click()
    
EndFunc   ;==>Label1Click

TrayTip("COM+ Installer", "Starter COM + ",60)
ProgressSet( 1, 1 & " pct")
;$packageName="EposHR"
$catalog=ObjCreate("MTSAdmin.Catalog.1")
TrayTip("COM+ Installer", "Opretter MTSAdmin.Catalog.1 ",60)
ProgressSet( 2, 2 & " pct")

$packages=$catalog.GetCollection("Packages")
TrayTip("COM+ Installer", "Henter Packages",60)
ProgressSet( 3, 3 & " pct")

$packages.populate
TrayTip("COM+ Installer", "Henter Packages interface",60)
ProgressSet( 4, 4 & " pct")

$putil = $packages.GetUtilInterface
TrayTip("COM+ Installer", "Henter antal Packages",60)
ProgressSet( 5, 5 & " pct")

;Remove all packages that go by the same name as the package we wish to uninstall
$numPackages = $packages.Count
;MsgBox(0,""&$numPackages,""&$numPackages)
ProgressSet( 6, 6 & " pct")

For $i = $numPackages - 1 To 0 Step -1
    TrayTip("COM+ Installer", "Gennem søger pakker for at finde den rigtige pakke : "&$i&" af "&$numPackages,60)

    If $packages.Item($i).Value("Name") = $packageName Then
        TrayTip("COM+ Installer", "Pakke fundet : "&$i&" af "&$numPackages&" pakke slette osv.",60)
        ;WScript.Echo("Stopper pakken: " & packageName )'& " ID " & packages.Item(i).Value("ID") & vbNewLine)
        $putil.ShutdownPackage($packages.Item($i).Value("ID"))
        ;'WScript.Echo("Shutdown done" &vbNewLine)
        ;WScript.Echo("Sletter objekter i pakken: " & packageName & vbNewLine)
        $packages.Remove ($i)
        ;'WScript.Echo("Remove done" &vbNewLine &vbNewLine)
        ;' Commit our deletions
        $packages.savechanges
        ProgressSet( 7, 7 & " pct")
        ExitLoop
    EndIf
Next
TrayTip("COM+ Installer", "Sætter navn og andre oplysninger på COM+",60)
ProgressSet( 8, 8 & " pct")

;Install package
$newPackage = $packages.Add
$newPackage.Value("Name") = $packageName
$newPackage.Value("Description")="Dette er et COM element til EposHR som er en del af pbj program til styring af HR - systemet"

$newPackage.Value("Activation") = "Local"
$newPackage.Value("Identity") = $strUsername
$newPackage.Value("Password") = $strPassword

;$newPackage.Value("Identity") = "Interactive User"
;~ $newPackage.Value("Identity") = "This user:"

$newPackage.Value("SecurityEnabled") = "N"
$newPackage.Value("ShutdownAfter") = "20"

TrayTip("COM+ Installer", "Gemmer data", 60)
; Commit new package
$packages.SaveChanges; Her mangler nnoget hvis brugeren taster et forkert kodeord

ProgressSet( 9, 9 & " pct")

TrayTip("COM+ Installer", "Opdatere pakker", 60)

; Refresh packages
$packages.Populate

; Get components collection for new package
TrayTip("COM+ Installer", "Hent alle pakker igen",60)
ProgressSet( 10, 10 & " pct")

$components = $packages.GetCollection("ComponentsInPackage",$newPackage.Value("ID"))

; Install components
$util = $components.GetUtilInterface

; on error resume next
;$util.InstallComponent "C:\EposHR.dll", "", ""
TrayTip("COM+ Installer", "Installere dll fra den file der indeholder COM+", 60)
ProgressSet( 11, 11 & " pct (Dette step tager noget tid)")

$util.InstallComponent($dll_path, "", "")
ProgressSet( 50, 50 & " pct")

$components.SaveChanges
TrayTip("COM+ Installer", "Gemmer ændringerne",60)
$components.Populate
TrayTip("COM+ Installer", "Tilføjer metoder mm.",60)

$n = $Components.Count
TrayTip("COM+ Installer", "COM+ Antal Elementer : "&$n,60)
ProgressSet( 90, 90 & " pct")
ProgressOff()

MsgBox(0,"Antal elementer installeret : "&$n,"Antal elementer "&$n&" installeret"&@CRLF&"Valider dette tal ikke er 0",30)
ProgressOn("Epos HR COM", "Status", "100 pct")

$components.SaveChanges
ProgressSet( 100, 100 & " pct")
Sleep(2000)

Func MyErrFunc()
    MsgBox(0, "AutoItCOM Test", "We intercepted a COM Error !" & @CRLF & @CRLF & _
            "err.description is: " & @TAB & $oMyError.description & @CRLF & _
            "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
            "err.number is: " & @TAB & Hex($oMyError.number, 8) & @CRLF & _
            "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _
            "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _
            "err.source is: " & @TAB & $oMyError.source & @CRLF & _
            "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _
            "err.helpcontext is: " & @TAB & $oMyError.helpcontext _
            )
    Local $err = $oMyError.number
    If $err = 0 Then $err = -1
    SetError($err) ; to check for after this function returns
EndFunc   ;==>MyErrFunc

Janus S. Andersen

December 19, 2007

Thanks PsaltyDS, DjDeep00 and PsaltyDS
The code is doing:
1. find a predefined COM+ object and delete it
2. Install a new COM+ from a dll file
3. Put in the user rights on the COM+ ("Brugernavn" username and (kodeord) password)
4. It stores the COM+ object
5. It counts alle the methodes in it
The script is a part of a installer (I am using nsis to make the installer part)
It is working and here is my code!:
Janus S. Andersen

Glad you got it working.

Merry Christmas!

December 19, 2007

Merry Christmas to you to!

Translate a vbs to a autoit 3 script

Recommended Posts

Janus 0

Share this post

Link to post

Share on other sites

PsaltyDS 27

Share this post

Link to post

Share on other sites

Janus 0

Share this post

Link to post

Share on other sites

DjDeep00 0

Share this post

Link to post

Share on other sites

PsaltyDS 27

Share this post

Link to post

Share on other sites

Janus 0

Share this post

Link to post

Share on other sites

Janus 0

Share this post

Link to post

Share on other sites

PsaltyDS 27

Share this post

Link to post

Share on other sites

Janus 0

Share this post

Link to post

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Browse

AutoIt Resources

Release

Beta

Important Information