Beiträge von BLinz

[autoit]

; Author: Chaos2
; Script Function: output basic hardware info
;
; ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

$objWMIService = objget("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

[/autoit] [autoit][/autoit] [autoit]

$colSettings = $objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
$colMemory = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
$colCPU = $objWMIService.ExecQuery("Select * from CIM_Processor")
$colVideoinfo = $objWMIService.ExecQuery("Select * from Win32_VideoController")
$colSound = $objWMIService.ExecQuery("Select * from Win32_SoundDevice")
$colMouse = $objWMIService.ExecQuery("Select * from Win32_PointingDevice")
$colMonitor = $objWMIService.ExecQuery("Select * from Win32_DesktopMonitor")
$colNIC = $objWMIservice.ExecQuery("Select * from Win32_NetworkAdapter WHERE Netconnectionstatus = 2")
Dim $pcinfo

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

For $object in $colCPU
$PcInfo = $pcinfo & StringStripWS($object.Name,1) & @CRLF
Next

[/autoit] [autoit][/autoit] [autoit]

For $objOperatingSystem in $colSettings
$PcInfo = $PcInfo & $objOperatingSystem.Caption & " Build " & $objOperatingSystem.BuildNumber & " Servicepack " & $objOperatingSystem.ServicePackMajorVersion & "." & $objOperatingSystem.ServicePackMinorVersion & @CRLF
$PcInfo = $PcInfo & "Available Physical Memory: " & String(Int(Number($objOperatingSystem.FreePhysicalMemory) / 1024)) & " Mb" & @CRLF
Next

[/autoit] [autoit][/autoit] [autoit]

For $object in $colMemory
$PcInfo = $PcInfo & "Total Physical Memory: " & String(Int(Number($object.TotalPhysicalMemory) / (1024 * 1024))) & " Mb" & @CRLF
Next

[/autoit] [autoit][/autoit] [autoit]

$objFSO = objCreate("Scripting.FileSystemObject")
$colDrives = $objFSO.Drives

[/autoit] [autoit][/autoit] [autoit]

$Opticaldrives = "Opticaldrives : "

[/autoit] [autoit][/autoit] [autoit]

For $object in $colDrives
If ($object.DriveType == 2) then
$PcInfo = $PcInfo & "Total space on : " & $object.DriveLetter & ":\ (" & $object.VolumeName & ") = " & String(Round((Number($object.TotalSize) / (1024 * 1024 * 1024)),2)) & " Gb" & @CRLF
$PcInfo = $PcInfo & "Free space on : " & $object.DriveLetter & ":\ (" & $object.VolumeName & ") = " & String(Round((Number($object.FreeSpace) / (1024 * 1024 * 1024)),2)) & " Gb" & @CRLF
Else
$Opticaldrives = $Opticaldrives & $object.DriveLetter & ":\ "
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

$PcInfo = $PcInfo & $Opticaldrives & @CRLF

[/autoit] [autoit][/autoit] [autoit]

For $object in $colVideoinfo
$PcInfo = $PcInfo & "Video card: " & $object.Description & @CRLF
Next

[/autoit] [autoit][/autoit] [autoit]

For $object in $colSound
$PcInfo = $PcInfo & "Sound device: " & $object.Description & @CRLF
Next

[/autoit] [autoit][/autoit] [autoit]

For $object in $colMouse
$PcInfo = $PcInfo & "Mouse : " & $object.Description & @CRLF
Next

[/autoit] [autoit][/autoit] [autoit]

For $object in $colMonitor
$PcInfo = $PcInfo & "Monitor : " & $object.Description & @CRLF
Next

[/autoit] [autoit][/autoit] [autoit]

For $object in $colNIC
$Pcinfo = $pcinfo & $object.name & @CRLF
$Pcinfo = $pcinfo & "LAN-Speed = " & $object.speed /1000 & "Bit/s" & @CRLF
$Pcinfo = $pcinfo & "LAN-Speed = " & $object.speed / 1000000 & "MBit/s" & @CRLF
Next
ClipPut( $pcinfo )
MsgBox(48,"PCinfo",$PcInfo)
MsgBox( 48, "PCinfo", "Information was copied to clipboard", 5)

[/autoit]

[autoit]

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,
};

[/autoit]

[autoit]

;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

[/autoit]

[autoit]

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);

[/autoit]

[autoit]

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.

[/autoit] [autoit][/autoit] [autoit]

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.

[/autoit] [autoit][/autoit] [autoit]

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).

[/autoit] [autoit][/autoit] [autoit]

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.

[/autoit] [autoit][/autoit] [autoit]

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.

[/autoit] [autoit][/autoit] [autoit]

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.

[/autoit] [autoit][/autoit] [autoit]

propertyListHandle Must be VIX_INVALID_HANDLE.

[/autoit] [autoit][/autoit] [autoit]

callbackProc Optional callback of type VixEventProc.

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

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.

[/autoit]

[autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit]

[autoit]

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);
}

[/autoit]

[autoit]

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)

[/autoit] [autoit][/autoit] [autoit][/autoit]