giogio

I solved, the True and False must be quoted, "True" "False" Many thanks for your attention. Franco

- Which device are you trying to interface with? Rfid Reader - Did you install their framework? Yes last update - Do you have .NET Framework 2.0 installed? Yes Sp1 (italian) I test the Hw using their example and it work fine. ________________________________________________________________ I made a new script for the LcdText module and it work fine, i share it; ;create the phidget object $oPhidget = ObjCreate("phidget21COM.PhidgetTextLCD") ;open the Phidget system $oPhidget.Open() sleep(1000) ;check to make sure the Text Lcd is attached to the system. If NOT $oPhidget.IsAttached Then ;if the Text Lcd is not attached then display a message box and exit MsgBOx(0, "Error", "The Phidget Text Lcd is not Attached! Please attach it and try again!") Exit Else ;get Hw info from the attached system. MsgBox(0, "Test", "Device Type " & $oPhidget.DeviceType() _ & @CRLF & "Serial Number "& $oPhidget.serialnumber _ & @CRLF & "Row num. "& $oPhidget.RowCount) endif ;Set Contrast $oPhidget.Contrast = "120" $ContrastVal= $oPhidget.Contrast MsgBOx(0, "More info", "Contrast Value: " & $ContrastVal) ;Set BackLight $oPhidget.BackLight = "True" $BackLightVal= $oPhidget.BackLight MsgBOx(0, "More info", "BackLight Value: " & $BackLightVal) ;Write on line 1 and 2 $oPhidget.DisplayString(0)="Write on line 1" $oPhidget.DisplayString(1)="Write on line 2" ;clear after 3 sec. line 1 and 2 sleep(3000) $oPhidget.DisplayString(0)="" $oPhidget.DisplayString(1)="" $oPhidget.Close() Exit

I get some suggest from the forum, the example script give me some errors and doesn't work. I try to make a new script, this is ok but i don't get all I need. i don't understand why this script doesn't work property: ; ;create the phidget rfid object $oPhidget = ObjCreate("phidget21COM.phidgetrfid") ;open the rfid $oPhidget.Open(56734) sleep(1000) ;check to make sure the rfid kit is attached to the system. If NOT $oPhidget.IsAttached Then ;if the interface kit is not attached then display a message box and exit MsgBOx(0, "Error", "The Phidget Interface Kit is not Attached! Please attach it and try again!") Exit Else ;check to make sure the rfid kit is attached to the system. MsgBox(0, "Test", "Device Type " & $oPhidget.DeviceType() _ & @CRLF & "Serial Number "& $oPhidget.serialnumber _ & @CRLF & "Output num. "& $oPhidget.OutputCount) EndIf ; I get all the requested information from phidget ;_______________________________________________ ;From this point the phidget doesn't work, the results are leds and antenna off ;_______________________________________________ $oPhidget.LEDOn = True; this turns OFF the onboard LED sleep(1000) $oPhidget.AntennaOn = True; this turns on antenna sleep(1000) $oPhidget.OutputState(1) = True; turns Onthe post LED sleep(1000) $oPhidget.OutputState(0) = True; turns On the 5V lead sleep(1000) if $oPhidget.LEDOn = False _ and $oPhidget.OutputState(1) = False _ and $oPhidget.OutputState(0) = False _ Then MsgBOx(0, "Error", "No Led on") EndIf if $oPhidget.AntennaOn = False Then MsgBOx(0, "Error", "Antenna off") EndIf $oPhidget.Close() Exit PLEASE HELP ME By Franco

i tested the script using my serial number and tag but i get this error $oPhidget.OutputState(3) = True $oPhidget.OutputState(3) = True^ ERROR do you can explain me why? By franco

tanks for your attention.

#include <GuiConstants.au3> $hGui = GUICreate("Test", 300, 200, Default, Default, $DS_MODALFRAME) $Button = GUICtrlCreateButton("EXIT", 100, 130, 100, 30) GUISetState() WinSetOnTop("test", "", 1) Do Sleep(20) Until GUIGetMsg() = $Button

FROM THE CMD.EXE I RUN C:\MYSCRIPT.EXE "MYPARAMETER" IF I FORGOT THE PARAMENTER I GET THIS AUTOIT ERROR: LINE-1: ERROR: ARRAY VARIABLE HAS INCORRECT NUMBER OF SUBSRIPTS OR SUBSCRIPT DIMENSION RANGE EXCEEDED.

func FindRemovableDisk() ; THIS DOESN'T WORK************************************* $label =$CmdLine[2] MsgBox(4096, "", $label) if $label="" then ; if command line not present exit ;*****EXIT***** Sleep(10) Exit 200 EndIf ;******************************************* $var = DriveGetDrive("REMOVABLE") $FlagFunc="ok" If Not @error then ;MsgBox(4096, "", "Found " & $var[0] & " drives") For $i = 1 To $var[0] If DriveGetLabel($var[$i]) = $label Then ConsoleWrite ($var[$i]); no error ;*****EXIT***** Sleep(10) Exit 200 EndIf Next EndIf consoleWrite ("@error") ; error EndFunc PEASE HELP ME

It work, thanks for the replay.

this is the situation: cmd.exe console command example c:\windows\system32> Myscript.exe |hello franco myscript.exe read "hello franco" string and replay with message box "fine". i have an application that can only send commands to the cmd console, in this way i can "talk" to myscript.exe. Many thanks franco

GREAT GREAT GREAT , MANY TANKS FRANCO

i use a filemakerpro Datatabase plugin that give me the capability to lunch a vbscript, the plugin redirected the echo result into a record field. I prefer to use a compiled autoit exe, the exe have to redirect the output as if it is a vbscript echo command. I don't know how to do. many thanks franco

$strComputer = "." $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") $colItems = $objWMIService.ExecQuery( "SELECT * FROM Win32_DiskDrive") For $objItem in $colItems MsgBox(0,"Drive", "Caption: " & $objItem.Caption) Next How to redirect the result of the msgbox to the cmd.exe window? By Franco

i can get wath you ask in this way: let me know $wbemFlagReturnImmediately = 0x10 $wbemFlagForwardOnly = 0x20 $colItems = "" $strComputer = "localhost" $Output="" $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", _ $wbemFlagReturnImmediately + $wbemFlagForwardOnly) If IsObj($colItems) then For $objItem In $colItems if $objItem.InterfaceType = "usb" and $objItem.MediaType ="Removable media other than floppy" then $Output = $Output & "PNPDeviceID: " & $objItem.PNPDeviceID & @CRLF endif Next ;ConsoleWrite($Output) Msgbox(1,"WMI Output",$Output) ;FileWrite(@TempDir & "\Win32_DiskDrive.TXT", $Output ) ; Run(@Comspec & " /c start " & @TempDir & "\Win32_DiskDrive.TXT" ) Else Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_DiskDrive" ) Endif

i made a test.exe this is the script: If @error Then Exit 0 Else Exit 12321 EndIf then i execute it from window using: cmd.exe /C c:\test.exe no result. were i am wrong?