Einbinden einer DLL in AutoIT (VMware VIX)

typedef int VixServiceProvider;
enum {
VIX_SERVICEPROVIDER_DEFAULT = 1,
VIX_SERVICEPROVIDER_VMWARE_SERVER = 2,
VIX_SERVICEPROVIDER_VMWARE_WORKSTATION = 3,
VIX_SERVICEPROVIDER_VMWARE_PLAYER = 4,
VIX_SERVICEPROVIDER_VMWARE_VI_SERVER = 10,
};

;typedef int VixServiceProvider;
Dim Const $VIX_SERVICEPROVIDER_DEFAULT = 1
Dim Const $VIX_SERVICEPROVIDER_VMWARE_SERVER = 2
Dim Const $VIX_SERVICEPROVIDER_VMWARE_WORKSTATION = 3
Dim Const $VIX_SERVICEPROVIDER_VMWARE_PLAYER = 4
Dim Const $VIX_SERVICEPROVIDER_VMWARE_VI_SERVER = 10

VixHandle VixHost_Connect(int apiVersion,
VixServiceProvider hostType,
const char *hostName,
int hostPort,
const char *userName,
const char *password,
VixHostOptions options,
VixHandle propertyListHandle,
VixEventProc *callbackProc,
void *clientData);

Parameters
apiVersion Must be VIX_API_VERSION.

hostType With vCenter Server, ESX/ESXi hosts, and VMware Server 2.0, use VIX_SERVICEPROVIDER_VMWARE_VI_SERVER.
With VMware Workstation, use VIX_SERVICEPROVIDER_VMWARE_WORKSTATION.
With VMware Player, use VIX_SERVICEPROVIDER_VMWARE_PLAYER.
With VMware Server 1.0.x, use VIX_SERVICEPROVIDER_VMWARE_SERVER.

hostName Varies by product platform.
With vCenter Server, ESX/ESXi hosts, and VMware Server 2.0, use a URL of the
form "https://<hostName>:<port>/sdk" where <hostName> is either the DNS name or IP address.
If missing, <port> may default to 443 (see Remarks below).
In VIX API 1.10 and later, you can omit "https://" and "/sdk" specifying just the DNS name or IP address.
Credentials are required even for connections made locally.
With Workstation, use NULL to connect to the local host.
With VMware Server 1.0.x, use the DNS name or IP address for remote connections, or the same as Workstation for local connections.

hostPort TCP/IP port on the remote host. With VMware Workstation and VMware Player, use zero for the local host.
With ESX/ESXi hosts and VMware Server 2.0 you specify port number within the hostName parameter, so this parameter is ignored (see Remarks below).

login Username for authentication on the remote machine. With VMware Workstation, VMware Player, and VMware Server 1.0.x, use NULL to authenticate as the current user on local host.
With vCenter Server, ESX/ESXi hosts, and VMware Server 2.0, you must use a valid login.

password Password for authentication on the remote machine. With VMware Workstation, VMware Player, and VMware Server 1.0.x, use NULL to authenticate as the current user on local host.
With ESX/ESXi and VMware Server 2.0, you must use a valid login.

options Should be zero. The option VIX_HOSTOPTION_USE_EVENT_PUMP has been deprecated and may be removed from future versions of the VIX API.

propertyListHandle Must be VIX_INVALID_HANDLE.

callbackProc Optional callback of type VixEventProc.

clientData Optional user supplied opaque data to be passed to optional callback.

Return Value A job handle. When the job completes, retrieve the Host handle from the job handle using the VIX_PROPERTY_JOB_RESULT_HANDLE property.

Dim Const $VIX_PROPERTY_NONE = 0
Dim Const $VIX_API_VERSION = -1
Dim Const $VIX_INVALID_HANDLE = 0
Dim Const $VIX_PROPERTY_JOB_RESULT_HANDLE = 3010

Func _vmware_VixHost_Connect($hostType, $hostName, $hostPort, $userName, $password, $options)
Local $HostHandle = DllCall("vix.dll","INT_PTR","VixHost_Connect", "INT_PTR", $VIX_API_VERSION, "int", $hostType, "str", $hostName, "int", $hostPort, "str", $userName, "str", $password, "int", 0, "int", $VIX_INVALID_HANDLE, "int", 0, "int", 0)
If @error Then Return SetError(-65535)
Return SetExtended(0,$hostHandle)
EndFunc

Func _vmware_VixJob_Wait($jobHandle,$hostHandle)
Local $VixError = DllCall("vix.dll","INT_PTR","VixJob_Wait","INT_PTR",$jobHandle,"INT",$VIX_PROPERTY_JOB_RESULT_HANDLE,"INT_PTR",$hostHandle,"int",$VIX_PROPERTY_NONE)
If @error Then Return SetError(-65535)
Return SetExtended(0,$VixError)
EndFunc

Example
#include "vix.h"
int main(int argc, char * argv[])
{
VixHandle hostHandle = VIX_INVALID_HANDLE;
VixHandle jobHandle = VIX_INVALID_HANDLE;
VixError err;
// Connect as current user on local host.
jobHandle = VixHost_Connect(VIX_API_VERSION,
VIX_SERVICEPROVIDER_VMWARE_VI_SERVER,
"https://viserver.example.com/sdk", // hostName
0, // hostPort
"Administrator", // userName
"adminpass", // password,
0, // options
VIX_INVALID_HANDLE, // propertyListHandle
NULL, // callbackProc
NULL); // clientData
err = VixJob_Wait(jobHandle,
VIX_PROPERTY_JOB_RESULT_HANDLE,
&hostHandle,
VIX_PROPERTY_NONE);
if (VIX_OK != err) {
// Handle the error...
goto abort;
}
Vix_ReleaseHandle(jobHandle);
// Other code goes here...
abort:
Vix_ReleaseHandle(jobHandle);
VixHost_Disconnect(hostHandle);
}

Dim $ESXHostHandle = $VIX_INVALID_HANDLE
Dim $ESXjobHandle = $VIX_INVALID_HANDLE
Dim $fehler
$ESXjobHandle = _vmware_VixHost_Connect($VIX_SERVICEPROVIDER_VMWARE_VI_SERVER, "https://vcenter.testdom.local/sdk", 443, "administrator", "passwort", 0)
$fehler = _vmware_VixJob_Wait($ESXjobHandle,$ESXHostHandle)

#include "vix.h"
int main(int argc, char * argv[])
{
VixHandle hostHandle = VIX_INVALID_HANDLE;
VixHandle jobHandle = VIX_INVALID_HANDLE;
VixError err;
// Connect as current user on local host.
jobHandle = VixHost_Connect(VIX_API_VERSION,
VIX_SERVICEPROVIDER_VMWARE_VI_SERVER,
"https://viserver.example.com/sdk", // hostName
0, // hostPort
"Administrator", // userName
"adminpass", // password,
0, // options
VIX_INVALID_HANDLE, // propertyListHandle
NULL, // callbackProc
NULL); // clientData

err = VixJob_Wait(jobHandle,
VIX_PROPERTY_JOB_RESULT_HANDLE,
&hostHandle,
VIX_PROPERTY_NONE);

if (VIX_OK != err) {
// Handle the error...
goto abort;
}
Vix_ReleaseHandle(jobHandle);
// Other code goes here...
abort:
Vix_ReleaseHandle(jobHandle);
VixHost_Disconnect(hostHandle);
}

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

AutoIt Version: 3.3.6.1
Author: myName

Script Function:
Template AutoIt script.

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

; Script Start - Add your code below here

#include "VixH.au3"

Global $MyhostHandle = $VIX_INVALID_HANDLE
Dim $MyjobHandle = $VIX_INVALID_HANDLE
Dim $MyERR

MsgBox(4096,"","Es folgt VixHost_Connect")

$MyjobHandle = VixHost_Connect($VIX_API_VERSION, _
$VIX_SERVICEPROVIDER_VMWARE_VI_SERVER, _
"https://192.168.209.131/sdk", _
0, _
"root", _
"test1234", _
0, _
$VIX_INVALID_HANDLE, _
0, _
0)

MsgBox(4096,"","Es folgt VixJob_Wait")

$MyERR = VixJob_Wait($MyjobHandle, _
$VIX_PROPERTY_JOB_RESULT_HANDLE, _
$MyhostHandle, _
$VIX_PROPERTY_NONE)

MsgBox(4096,"","VixJob_Wait beendet")

;if (VIX_OK != err) {
; // Handle the error...
; goto abort;
; }

MsgBox(4096,"","Es folgt Vix_ReleaseHandle")
Vix_ReleaseHandle($MyjobHandle);

MsgBox(4096,"","Es folgt VixHost_Disconnect")

VixHost_Disconnect($MyhostHandle);