lafafmentvotre Posted January 9, 2009 Share Posted January 9, 2009 Hi everybody and happy new yearI search how to refresh data in inputbox (guictrlcreateinput).I have a script who read information from a computer and i want to refresh the @IPAddress1 and @IPAddress2 (with F5 or a button refresh)Is-it possible ?Thanks for help and sorry for my english Link to comment Share on other sites More sharing options...
KaFu Posted January 9, 2009 Share Posted January 9, 2009 use guictrlsetdata() to update an input control... but for IP-addresses the standard UDF GuiIPAddress.au3 might better suite your purpose... Best Regards OS: Win10-22H2 - 64bit - German, AutoIt Version: 3.3.16.1, AutoIt Editor: SciTE, Website: https://funk.eu AMT - Auto-Movie-Thumbnailer (2022-Nov-26) BIC - Batch-Image-Cropper (2023-Apr-01) COP - Color Picker (2009-May-21) DCS - Dynamic Cursor Selector (2024-Feb-16) HMW - Hide my Windows (2018-Sep-16) HRC - HotKey Resolution Changer (2012-May-16) ICU - Icon Configuration Utility (2018-Sep-16) SMF - Search my Files (2023-Jun-03) - THE file info and duplicates search tool SSD - Set Sound Device (2017-Sep-16) Link to comment Share on other sites More sharing options...
AlmarM Posted January 9, 2009 Share Posted January 9, 2009 Like KaFu said, try GUICtrlSetData($InputVariable, "")AlmarM Minesweeper A minesweeper game created in autoit, source available. _Mouse_UDF An UDF for registering functions to mouse events, made in pure autoit. 2D Hitbox Editor A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes. Link to comment Share on other sites More sharing options...
lafafmentvotre Posted January 9, 2009 Author Share Posted January 9, 2009 Ok Thanks for help Link to comment Share on other sites More sharing options...
lafafmentvotre Posted January 12, 2009 Author Share Posted January 12, 2009 Hello everybodyI take a script on the forum to get IPAddress but it doesn't work for local lan IP (it work just for wifi ip).Could you help please ?ThanksPS : sorry for my bad english, i'm a poor frenchHere the modified script :expandcollapse popup#include <GuiConstants.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <EditConstants.au3> #include <Filesize.au3> #include <GuiIPAddress.au3> #include <CompInfo.au3> Global $IpIs[6] , $IpSet[6] , $Sub[6], $Gat[6] , $Dhcp[6] , $SetIp[6] , $NetworkCards , $file , $LanInfo[6][10] ; [0-5][0-9] Global $NameCard[20] , $FolderReg[20] , $Descripstion[20] , $ServiceName[20] , $StoredIpSet[6] , $lastIpSet[6] , $l , $i , $j _LanInfo() $SDIversion="V7" $head=" "&StringTrimRight(@ScriptName,4)&" "&$SDIversion&"" $aboutitemtext1 = ""&StringTrimRight(@ScriptName,4)&" "&$SDIversion&"" $aboutitemtext2 = "Créé par InfraFrance@2008" ;GUI $GUI_SET=GuiCreate($head, $LanInfo[0][0]*270, 450,-1, -1 ,$WS_POPUPWINDOW); step 270 GUISetBkColor(0xD9E3E9) FileInstall("Mon Adresse IP.bmp", @WindowsDir & "\system32\Mon Adresse IP.bmp") $logo = @WindowsDir & "\system32\Mon Adresse IP.bmp" GUICtrlCreatePic($logo, 175, 330, 0, 0) $filemenu=GUICtrlCreateMenu ("&Fichier") $exititem=GUICtrlCreateMenuitem ("Quitter",$filemenu) $aboutitem = GUICtrlCreateMenuItem("A propos...", $filemenu) $Gpupdatebutton=GUICtrlCreateButton("Gpupdate",70, 310,115,30) $Refreshbutton=GUICtrlCreateButton("Rafraîchir", 210, 310,115,30) $Exitbutton=GUICtrlCreateButton("Quitter", 350, 310, 115, 30) For $i = 1 To $LanInfo[0][0] GuiCtrlCreateGroup($LanInfo[$i][2], 10+(($i-1)*270), 10, 250, 100) GuiCtrlCreateLabel("Adresse IP : ",20+(($i-1)*270), 40, 70, 20) GUICtrlCreateLabel("Adresse MAC : "& $LanInfo[$i][3], 20+(($i-1)*270), 70, 200, 20) ; --- Actual IP ---- $IpIs[$i] = _GUICtrlIpAddress_Create ($GUI_SET, 90+(($i-1)*270), 35, 140, 20) _GUICtrlIpAddress_Set ($IpIs[$i], $LanInfo[$i][4]) Next GuiCtrlCreateGroup("Données Inventaire", 10, 120, 280, 170) $ComputerNamelab = GuiCtrlCreateLabel("N° d'inventaire : ", 15, 150, 90, 15,$ES_RIGHT) $ComputerName=GUICtrlCreateLabel(""& @ComputerName,110,149,150,20) GUICtrlSetFont(-1, 9, 600) $CurrentUserNamelab = GuiCtrlCreateLabel("Nom d'utilisateur : ", 15, 170, 90, 15,$ES_RIGHT) $CurrentUserName=GUICtrlCreateLabel(""& @UserName,110,169,150,20) GUICtrlSetFont(-1, 9, 600) $LogonDomainlab = GUICtrlCreateLabel("Domaine : ", 15,190,90,15, $ES_RIGHT) $LogonDomain=GUICtrlCreateLabel(""& @LogonDNSDomain,110,189,150,20) GUICtrlSetFont(-1, 9, 600) $regsuffix=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\System\DNSClient", "PrimaryDnsSuffix") $Suffixlab = GUICtrlCreateLabel("Suffixe DNS : ", 15,210,90,15, $ES_RIGHT) $Suffix=GUICtrlCreateLabel(""& $regsuffix,110,208,150,20) GUICtrlSetFont(-1, 9, 600) $reg= RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Group Policy\State\Machine", "Site-Name") $SiteNamelab = GuiCtrlCreateLabel("Site SMS : ", 15, 230, 90, 15, $ES_RIGHT) $SiteName=GUICtrlCreateLabel(""& $reg,110,228,150,20) GUICtrlSetFont(-1, 9, 600) $Operatingsystemlab = GuiCtrlCreateLabel("Os : ", 15, 250, 90, 15,$ES_RIGHT) $Operatingsystem=GUICtrlCreateLabel(@OSVersion & " " & @OSServicePack,110,249,150,20) GUICtrlSetFont(-1, 9, 600) GuiCtrlCreateGroup("Espace Libre", 300, 120, 230, 100) $C_free = DriveSpaceFree( "C:\") $convC_free = StringLeft($C_free,StringInStr($C_free,".")-1) $resultC_free = _filesize($convC_free,"GB",2) $D_free = DriveSpaceFree( "D:\") $convD_free = StringLeft($D_free,StringInStr($D_free,".")-1) $resultD_free = _filesize($convD_free,"GB",2) $C_total = DriveSpaceTotal( "C:\") $convC_total = StringLeft($C_total,StringInStr($C_total,".")-1) $resultC_total = _filesize($convC_total,"GB",2) $D_total = DriveSpaceTotal( "D:\") $convD_total = StringLeft($D_total,StringInStr($D_total,".")-1) $resultD_total = _filesize($convD_total,"GB",2) $Space_C_lab = GUICtrlCreateLabel("Disque C : ", 310, 150, 60, 15) $Space_C=GUICtrlCreateLabel("" & $resultC_free&" sur "&$resultC_total, 370, 149, 150, 20) GUICtrlSetFont(-1, 9, 600) $Space_D_lab = GUICtrlCreateLabel("Disque D : ", 310, 170, 60, 15) $Space_D=GUICtrlCreateLabel("" & $resultD_free&" sur "&$resultD_total, 370, 169, 150, 20) GUICtrlSetFont(-1, 9, 600) GuiSetState() While 1 $msg = GUIGetMsg() Select Case $msg=$GUI_EVENT_CLOSE or $msg=$Exitbutton FileDelete(@WindowsDir & "\system32\Mon Adresse IP.bmp") ExitLoop Case $msg=$Gpupdatebutton RunWait(@ComSpec & " /c " & "gpupdate /force", "", @SW_HIDE) MsgBox(64," Résultat", "Gpupdate Ok", 10) Case $msg=$aboutitem GUISetState(@SW_DISABLE,$GUI_SET) $gui2=GUICreate("A propos...", 200, 60, -1, -1,$WS_POPUPWINDOW,-1,$GUI_SET) ;~ GUISetBkColor(0xD9E3E9) GUICtrlCreateLabel(""&$aboutitemtext1,40,10,120,30) GUICtrlSetFont(-1, 9, 800) GUICtrlCreateLabel(""&$aboutitemtext2,30,30) GUISetState() Sleep(4000) GUISetState(@SW_ENABLE,$GUI_SET) GUIDelete($gui2) Case $msg=$Refreshbutton $Input_IpAddress = GuiCtrlCreateInput("" & @IPAddress1, 105, 10, 150, 20,$ES_READONLY) GUICtrlSetBkColor($Input_IpAddress, 0xFFFFFF) GUICtrlSetColor($Input_IpAddress,0xff0000) $Input_IpAddress = GuiCtrlCreateInput("" & @IPAddress2, 105, 30, 150, 20,$ES_READONLY) GUICtrlSetBkColor($Input_IpAddress, 0xFFFFFF) EndSelect WEnd Func _LanInfo() Local $mess _ComputerGetNetworkCards($NetworkCards) $j=0 $i=0 If @error Then MsgBox(0,"Error", "An error has been encounted please try again !") Exit EndIf For $i = 1 To $NetworkCards[0][0] ; Take the Name of the cards of the PC If StringLeft ( $NetworkCards[$i][23], 3 ) = "PCI" Then $j+=1 $NameCard[$j] = $NetworkCards[$i][0] $LanInfo[$j][1]=$NetworkCards[$i][4] $LanInfo[$j][2]=$NetworkCards[$i][19] $LanInfo[$j][3]=$NetworkCards[$i][15] $LanInfo[$j][5]=$NetworkCards[$i][20] EndIf Next $LanInfo[0][0]= $j $i=0 $j=0 For $i= 1 to $NetworkCards[0][0]; Find the "Card ID" ($ServiceName[$i]) in the Reg then Find The IP according to the "Card ID" $FolderReg[$i] = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards", $i) If @error <> 0 then ExitLoop $Descripstion[$i] = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\" & $FolderReg[$i] , "Description") For $j = 1 To $LanInfo[0][0] If $LanInfo[$j][5]<>2 Then ; if not connected $LanInfo[$j][4]="0.0.0.0" ElseIf $Descripstion[$i] = $NameCard[$j] Then $ServiceName[$i] = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\" & $FolderReg[$i] , "ServiceName") If RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & $ServiceName[$i],"EnableDHCP") = 1 Then $LanInfo[$j][4]= RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & $ServiceName[$i], "DhcpIPAddress") Else $LanInfo[$j][4]= RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & $ServiceName[$i], "IPAddress") EndIf EndIf Next Next EndFuncoÝ÷ ٩ݶ¨®("©lr¸©µ«¢+Ø¥¹±Õ±ÐíÕ¥%AÉÍ̹ÔÌÐì(¥¹±Õ±ÐíÕ¥ ½¹ÍѹÑ̹ÔÌÐì(¥¹±Õ±Ðí ½µÁ%¹¼¹ÔÌÐì((ÀÌØí¡ôÅÕ½ÐíMÐ%@ÉÍÌØĸÀÅÕ½Ðì(()±½°ÀÌØí%Á%ÍlÙt°ÀÌØí%ÁMÑlÙt°ÀÌØíMÕlÙt°ÀÌØíÑlÙt°ÀÌØí¡ÁlÙt°ÀÌØíMÑ%ÁlÙt°ÀÌØí9ÑÝ½É ÉÌ°ÀÌØí¥±°ÀÌØí1¹%¹½lÙulÄÁtìlÀ´ÕulÀ´åt)±½°ÀÌØí9µ ÉlÈÁt°ÀÌØí½±ÉIlÈÁt°ÀÌØíÍÉ¥ÁÍÑ¥½¹lÈÁt°ÀÌØíMÉÙ¥9µlÈÁt°ÀÌØíMѽÉ%ÁMÑlÙt°ÀÌØí±ÍÑ%ÁMÑlÙt°ÀÌØí°°ÀÌØí¤°ÀÌØí¨(()}1¹%¹¼ ¤(Ì(ÀÌØí1¹%¹½lÁulÁtôÌ(ÀÌØí1¹%¹½lÍulÅtôÅÕ½Ðí¡©¡©¡¨ÅÕ½Ðì(ÀÌØí1¹%¹½lÍulÉtôÅÕ½Ðí½¹¹á¥½¸Ù¥ÉÑÕ°ÅÕ½Ðì(ÀÌØí1¹%¹½lÍulÍtôÅÕ½ÐìÀÀèÄÄèÈÈèÌÌèÐÐèÔÔÅÕ½Ðì(ÀÌØí1¹%¹½lÍulÑtôÅÕ½ÐìÄÄĸÄÄĸÄÄĸÄÄÄÅÕ½Ðì(((ÀÌØíU%}MPõÕ¥ ÉÑ ÀÌØí¡°ÀÌØí1¹%¹½lÁulÁt¨ÈÜÀ°ÈÜÀ°´Ä°´Ä¤ìÍÑÀÈÜÀ)½ÈÀÌØí¤ôÄQ¼ÀÌØí1¹%¹½lÁulÁt(ì´´´É½ÕÀ´´´´´(Õ¥ Ñɱ ÉÑɽÕÀ ÀÌØí1¹%¹½lÀÌØí¥ulÉt°ÄÀ¬ ÀÌØí¤´Ä¤¨ÈÜÀ¤°ÄÀ°ÈÔÀ°ÈÄÀ¤(ì´´´1±Ì´´´´(Õ¥ Ñɱ ÉÑ1° ÅÕ½Ðí5ÉÍÌèÅÕ½ÐìµÀìÀÌØí1¹%¹½lÀÌØí¥ulÍt°ÈÀ¬ ÀÌØí¤´Ä¤¨ÈÜÀ¤°ÐÀ°ÈÀÀ°ÈÀ¤(Õ¥ Ñɱ ÉÑ1° ÅÕ½Ðí ÕÉɹÐ%@èÅÕ½Ðì°ÈÀ¬ ÀÌØí¤´Ä¤¨ÈÜÀ¤°ÜÀ°ÜÀ°ÈÀ¤(Õ¥ Ñɱ ÉÑ1° ÅÕ½Ðí%@èÅÕ½Ðì°ÈÀ¬ ÀÌØí¤´Ä¤¨ÈÜÀ¤°ÄÌÀ°ØÀ°ÈÀ¤(Õ¥ Ñɱ ÉÑ1° ÅÕ½ÐíMÕ¹ÐèÅÕ½Ðì°ÈÀ¬ ÀÌØí¤´Ä¤¨ÈÜÀ¤°ÄØÀ°ØÀ°ÈÀ¤(Õ¥ Ñɱ ÉÑ1° ÅÕ½ÐíÑÝäèÅÕ½Ðì°ÈÀ¬ ÀÌØí¤´Ä¤¨ÈÜÀ¤°ÄäÀ°ØÀ°ÈÀ¤(ì´´´ÑÕ°%@´´´´(ÀÌØí%Á%ÍlÀÌØí¥tô}U% Ñɱ%ÁÉÍÍ} ÉÑ ÀÌØíU%}MP°ÄÀÀ¬ ÀÌØí¤´Ä¤¨ÈÜÀ¤°ÜÀ°ÄÐÀ°ÈÀ¤(}U% Ñɱ%ÁÉÍÍ}MÐ ÀÌØí%Á%ÍlÀÌØí¥t°ÀÌØí1¹%¹½lÀÌØí¥ulÑt¤(ì´´´MÑÑ¥¹Ì%@´´´´(ÀÌØí%ÁMÑlÀÌØí¥tô}U% Ñɱ%ÁÉÍÍ} ÉÑ ÀÌØíU%}MP°ÄÀÀ¬ ÀÌØí¤´Ä¤¨ÈÜÀ¤°ÄÌÀ°ÄÐÀ°ÈÀ¤(ÀÌØíMÕlÀÌØí¥tô}U% Ñɱ%ÁÉÍÍ} ÉÑ ÀÌØíU%}MP°ÄÀÀ¬ ÀÌØí¤´Ä¤¨ÈÜÀ¤°ÄØÀ°ÄÐÀ°ÈÀ¤(ÀÌØíÑlÀÌØí¥tô}U% Ñɱ%ÁÉÍÍ} ÉÑ ÀÌØíU%}MP°ÄÀÀ¬ ÀÌØí¤´Ä¤¨ÈÜÀ¤°ÄäÀ°ÄÐÀ°ÈÀ¤)9áÐ)½ÈÀÌØí¤ôÄQ¼ÀÌØí1¹%¹½lÁulÁt(ì´´´I¥½Ì´´´´(ÀÌØí¡ÁlÀÌØí¥tôÕ¥ Ñɱ ÉÑI¥¼ ÅÕ½Ðí! @ÅÕ½Ðì°ÄØÀ¬ ÀÌØí¤´Ä¤¨ÈÜÀ¤°ÄÀÀ°ÜÀ°ÈÀ¤(ÀÌØíMÑ%ÁlÀÌØí¥tôÕ¥ Ñɱ ÉÑI¥¼ ÅÕ½ÐíMе¹Õ±±äÅÕ½Ðì°ÐÀ¬ ÀÌØí¤´Ä¤¨ÈÜÀ¤°ÄÀÀ°àÀ°ÈÀ¤(ì(ÀÌØíMѽÉ%ÁMÑlÀÌØí¥tôÅÕ½ÐìÅÕ½Ðììɽɽѡ±ÍÐ¥ÀÙ±Õ)9áÐ(ì´´´ÕÑѽ¹Ì´´´´(ÀÌØíIÉÍ ôÕ¥ Ñɱ ÉÑ ÕÑѽ¸ ÅÕ½ÐíIÉÍ ÅÕ½Ðì° ÀÌØí1¹%¹½lÁulÁt¨ÈÜÀ¤¨ÈÔ¤¼ÄÀÀ´ÔÀ¤°ÈÌÔ°ØÀ°ÈÀ¤(ÀÌØíMÑ}%@ôÕ¥ Ñɱ ÉÑ ÕÑѽ¸ ÅÕ½ÐíMÐ%@ÅÕ½Ðì° ÀÌØí1¹%¹½lÁulÁt¨ÈÜÀ¤¨ÔÀ¤¼ÄÀÀ¤´ÌÀ°ÈÌÔ°ØÀ°ÈÀ¤(ÀÌØíá¥ÐôÕ¥ Ñɱ ÉÑ ÕÑѽ¸ ÅÕ½Ðíá¥ÐÅÕ½Ðì° ÀÌØí1¹%¹½lÁulÁt¨ÈÜÀ¤¨ÜÔ¤¼ÄÀÀ¤´ÄÀ°ÈÌÔ°ØÀ°ÈÀ¤()Õ¥MÑMÑÑ ¤()]¡¥±Ä(½ÈÀÌØí¤ôÄѼÀÌØí1¹%¹½lÁulÁt(ÀÌØíµÍôÕ¥Ñ5Í ¤(M±Ð( ÍÀÌØíµÍôÀÌØíU%}Y9Q} 1=M=ÈÀÌØíµÍôÀÌØíá¥Ðí=È}%ÍAÉÍÍ ÅÕ½ÐìÅÅÕ½Ðì¤íá¥Ð(á¥Ð( ÍÀÌØíµÍôÀÌØíIÉÍ íÉÉÍ Ñ¡%@¹±È±°(}IÉÍ ¤( ÍU% ÑɱI ÀÌØí¡ÁlÀÌØí¥t¤ôĹÀÌØíMÑ}%@ôÀÌØíµÍ(IÕ¹]¥Ð¡ ½µMÁµÀìÅÕ½Ðì½¹ÑÍ ¥¹ÑÉ¥ÀÍÐÉÍÌÅÕ½ÐìµÀí¡È ÌФµÀìÀÌØí1¹%¹½lÀÌØí¥ulÉtµÀí¡È ÌФµÀìÅÕ½Ðì¡ÀÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°M]}!%¤(5Í ½à ÌÈ°ÅÕ½Ðí½¹ÅÕ½Ðì°ÅÕ½Ðíe½ÕÈÅÕ½ÐìµÀìÀÌØí1¹%¹½lÀÌØí¥ulÉtµÀìÅÕ½Ðì¥Ì¹½Ü¥¸! @ÌÌìÅÕ½Ðì¤(}IÉÍ ¤( ÍU% ÑɱI ÀÌØíMÑ%ÁlÀÌØí¥t¤ôĹÀÌØíMÑ}%@ôÀÌØíµÍ(ÀÌØí%Á¤ô}U% Ñɱ%ÁÉÍÍ}Ð ÀÌØí%ÁMÑlÀÌØí¥t¤(ÀÌØíMÕ¤ô}U% Ñɱ%ÁÉÍÍ}Ð ÀÌØíMÕlÀÌØí¥t¤(ÀÌØíѤô}U% Ñɱ%ÁÉÍÍ}Ð ÀÌØíÑlÀÌØí¥t¤(IÕ¹]¥Ð¡ ½µMÁµÀìÅÕ½Ðì½¹ÑÍ ¥¹ÑÉ¥ÀÍÐÉÍÌÅÕ½ÐìµÀí¡È ÌФµÀìÀÌØí1¹%¹½lÀÌØí¥ulÉtµÀí¡È ÌФµÀìÅÕ½ÐìÍÑÑ¥ÅÕ½Ðì|(µÀìÀÌØí%Á¤µÀìÅÕ½ÐìÅÕ½ÐìµÀìÀÌØíMÕ¤µÀìÅÕ½ÐìÅÕ½ÐìµÀìÀÌØíѤµÀìÅÕ½ÐìÀÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°M]}!%¤(5Í ½à ÌÈ°ÅÕ½Ðí½¹ÅÕ½Ðì°ÅÕ½Ðíe½ÕÈÅÕ½ÐìµÀìÀÌØí1¹%¹½lÀÌØí¥ulÉtµÀìÅÕ½Ðì¥Ì¹½ÜMÐÌÌìÅÕ½Ðì¤(}IÉÍ ¤( Í9½Ð }U% Ñɱ%ÁÉÍÍ}%Í ±¹¬ ÀÌØí%ÁMÑlÀÌØí¥t¤¤(%U% ÑɱI ÀÌØíMÑ%ÁlÀÌØí¥t°ÀÌØíU%}U9 ! -¤¹ÀÌØí°ôÀQ¡¸(ÀÌØí°ôÄ(U% ÑɱMÑMÑÑ ÀÌØíMÑ%ÁlÀÌØí¥t°ÀÌØíU%} ! -¤(¹%(}U% Ñɱ%ÁÉÍÍ}MÐ ÀÌØíMÕlÀÌØí¥t°ÅÕ½ÐìÈÔÔ¸ÈÔÔ¸ÈÔÔ¸ÀÅÕ½Ðì¤(ÀÌØí±ÍÑ%ÁMÑlÀÌØí¥tô}U% Ñɱ%ÁÉÍÍ}Ð ÀÌØí%ÁMÑlÀÌØí¥t¤(%ÀÌØí±ÍÑ%ÁMÑlÀÌØí¥t±ÐìÐìÀÌØíMѽÉ%ÁMÑlÀÌØí¥tQ¡¸(}U% Ñɱ%ÁÉÍÍ}MÐ ÀÌØíÑlÀÌØí¥t°ÀÌØí±ÍÑ%ÁMÑlÀÌØí¥t¤(ÀÌØíMѽÉ%ÁMÑlÀÌØí¥tôÀÌØí±ÍÑ%ÁMÑlÀÌØí¥t(¹%( ͱÍ(ììì(¹M±Ð(9áÐ)]¹)á¥Ð()Õ¹}IÉÍ ¤(}1¹%¹¼ ¤(ÀÌØí¤ôÀ(ÀÌØí°ôÀ(½ÈÀÌØí¤ôÄQ¼ÀÌØí1¹%¹½lÁulÁt(U% ÑɱMÑMÑÑ ÀÌØí¡ÁlÀÌØí¥t°ÀÌØíU%}U9 ! -¤(U% ÑɱMÑMÑÑ ÀÌØíMÑ%ÁlÀÌØí¥t°ÀÌØíU%}U9 ! -¤(}U% Ñɱ%ÁÉÍÍ} ±ÉÉÍÌ ÀÌØí%ÁMÑlÀÌØí¥t¤(}U% Ñɱ%ÁÉÍÍ} ±ÉÉÍÌ ÀÌØíMÕlÀÌØí¥t¤(}U% Ñɱ%ÁÉÍÍ} ±ÉÉÍÌ ÀÌØíÑlÀÌØí¥t¤(}U% Ñɱ%ÁÉÍÍ}MÐ ÀÌØí%Á%ÍlÀÌØí¥t°ÀÌØí1¹%¹½lÀÌØí¥ulÑt¤(9áÐ)¹Õ¹(()Õ¹}1¹%¹¼ ¤(1½°ÀÌØíµÍÌ(} ½µÁÕÑÉÑ9ÑÝ½É ÉÌ ÀÌØí9ÑÝ½É É̤(ÀÌØí¨ôÀ(ÀÌØí¤ôÀ(%ÉɽÈQ¡¸(5Í ½à À°ÅÕ½ÐíÉɽÈÅÕ½Ðì°ÅÕ½Ðí¸Éɽȡ̸¹½Õ¹ÑÁ±ÍÑÉ䥸ÌÌìÅÕ½Ðì¤(á¥Ð(¹%(½ÈÀÌØí¤ôÄQ¼ÀÌØí9ÑÝ½É ÉÍlÁulÁtìQÑ¡9µ½Ñ¡É̽ѡA(%MÑÉ¥¹1Ð ÀÌØí9ÑÝ½É ÉÍlÀÌØí¥ulÈÍt°Ì¤ôÅÕ½ÐíA $ÅÕ½ÐìQ¡¸(ÀÌØí¨¬ôÄ(ÀÌØí9µ ÉlÀÌØí©tôÀÌØí9ÑÝ½É ÉÍlÀÌØí¥ulÁt(ÀÌØí1¹%¹½lÀÌØí©ulÅtôÀÌØí9ÑÝ½É ÉÍlÀÌØí¥ulÑt(ÀÌØí1¹%¹½lÀÌØí©ulÉtôÀÌØí9ÑÝ½É ÉÍlÀÌØí¥ulÄåt(ÀÌØí1¹%¹½lÀÌØí©ulÍtôÀÌØí9ÑÝ½É ÉÍlÀÌØí¥ulÄÕt($$$ÀÌØí1¹%¹½lÀÌØí©ulÕtôÀÌØí9ÑÝ½É ÉÍlÀÌØí¥ulÈÁt(¹%(9áÐ(ÀÌØí1¹%¹½lÁulÁtôÀÌØí¨(ÀÌØí¤ôÀ(ÀÌØí¨ôÀ(½ÈÀÌØí¤ôÄѼÀÌØí9ÑÝ½É ÉÍlÁulÁt쥹ѡÅÕ½Ðí É%ÅÕ½Ðì ÀÌØíMÉÙ¥9µlÀÌØí¥t¤¥¸Ñ¡IÑ¡¸¥¹Q¡%@½É¥¹Ñ¼Ñ¡ÅÕ½Ðí É%ÅÕ½Ðì(ÀÌØí½±ÉIlÀÌØí¥tôI¹Õµ-ä ÅÕ½Ðí!-e}1= 1}5 !%9ÀäÈíM=Q]IÀäÈí5¥É½Í½ÐÀäÈí]¥¹½ÝÌ9PÀäÈí ÕÉɹÑYÉÍ¥½¸ÀäÈí9ÑÝ½É ÉÌÅÕ½Ðì°ÀÌØí¤¤(%ÉɽȱÐìÐìÀÑ¡¸á¥Ñ1½½À(ÀÌØíÍÉ¥ÁÍÑ¥½¹lÀÌØí¥tôII ÅÕ½Ðí!-e}1= 1}5 !%9ÀäÈíM=Q]IÀäÈí5¥É½Í½ÐÀäÈí]¥¹½ÝÌ9PÀäÈí ÕÉɹÑYÉÍ¥½¸ÀäÈí9ÑÝ½É ÉÌÀäÈìÅÕ½ÐìµÀìÀÌØí½±ÉIlÀÌØí¥t°ÅÕ½ÐíÍÉ¥ÁÑ¥½¸ÅÕ½Ðì¤(½ÈÀÌØí¨ôÄQ¼ÀÌØí1¹%¹½lÁulÁt(%ÀÌØí1¹%¹½lÀÌØí©ulÕt±ÐìÐìÈQ¡¸ì¥¹½Ð½¹¹Ñ(ÀÌØí1¹%¹½lÀÌØí©ulÑtôÅÕ½ÐìÀ¸À¸À¸ÀÅÕ½Ðì(±Í%ÀÌØíÍÉ¥ÁÍÑ¥½¹lÀÌØí¥tôÀÌØí9µ ÉlÀÌØí©tQ¡¸(ÀÌØíMÉÙ¥9µlÀÌØí¥tôII ÅÕ½Ðí!-e}1= 1}5 !%9ÀäÈíM=Q]IÀäÈí5¥É½Í½ÐÀäÈí]¥¹½ÝÌ9PÀäÈí ÕÉɹÑYÉÍ¥½¸ÀäÈí9ÑÝ½É ÉÌÀäÈìÅÕ½ÐìµÀìÀÌØí½±ÉIlÀÌØí¥t°ÅÕ½ÐíMÉÙ¥9µÅÕ½Ðì¤(%II ÅÕ½Ðí!-e}1= 1}5 !%9ÀäÈíMeMQ4ÀäÈí ÕÉÉ¹Ñ ½¹Ñɽ±MÐÀäÈíMÉÙ¥ÌÀäÈíQÁ¥ÀÀäÈíAɵÑÉÌÀäÈí%¹ÑÉÌÀäÈìÅÕ½ÐìµÀìÀÌØíMÉÙ¥9µlÀÌØí¥t°ÅÕ½Ðí¹±! @ÅÕ½Ðì¤ôÄQ¡¸(ÀÌØí1¹%¹½lÀÌØí©ulÑtôII ÅÕ½Ðí!-e}1= 1}5 !%9ÀäÈíMeMQ4ÀäÈí ÕÉÉ¹Ñ ½¹Ñɽ±MÐÀäÈíMÉÙ¥ÌÀäÈíQÁ¥ÀÀäÈíAɵÑÉÌÀäÈí%¹ÑÉÌÀäÈìÅÕ½ÐìµÀìÀÌØíMÉÙ¥9µlÀÌØí¥t°ÅÕ½Ðí¡Á%AÉÍÌÅÕ½Ðì¤(±Í(ÀÌØí1¹%¹½lÀÌØí©ulÑtôII ÅÕ½Ðí!-e}1= 1}5 !%9ÀäÈíMeMQ4ÀäÈí ÕÉÉ¹Ñ ½¹Ñɽ±MÐÀäÈíMÉÙ¥ÌÀäÈíQÁ¥ÀÀäÈíAɵÑÉÌÀäÈí%¹ÑÉÌÀäÈìÅÕ½ÐìµÀìÀÌØíMÉÙ¥9µlÀÌØí¥t°ÅÕ½Ðí%AÉÍÌÅÕ½Ðì¤(¹%(¹%(9áÐ(9áÐ)¹Õ¹and the include to work :CompInfo.au3 Link to comment Share on other sites More sharing options...
KaFu Posted January 12, 2009 Share Posted January 12, 2009 Maybe @IPAddress1 to @IPAddress4 works better? Give it a try... OS: Win10-22H2 - 64bit - German, AutoIt Version: 3.3.16.1, AutoIt Editor: SciTE, Website: https://funk.eu AMT - Auto-Movie-Thumbnailer (2022-Nov-26) BIC - Batch-Image-Cropper (2023-Apr-01) COP - Color Picker (2009-May-21) DCS - Dynamic Cursor Selector (2024-Feb-16) HMW - Hide my Windows (2018-Sep-16) HRC - HotKey Resolution Changer (2012-May-16) ICU - Icon Configuration Utility (2018-Sep-16) SMF - Search my Files (2023-Jun-03) - THE file info and duplicates search tool SSD - Set Sound Device (2017-Sep-16) Link to comment Share on other sites More sharing options...
lafafmentvotre Posted January 13, 2009 Author Share Posted January 13, 2009 Hello No i don't want to use @IPADDRESS1..2..3... I need this script to get IPADDRESS for wifi and local. Anybody can help me ? Thanks Link to comment Share on other sites More sharing options...
rasim Posted January 13, 2009 Share Posted January 13, 2009 (edited) Hello No i don't want to use @IPADDRESS1..2..3... I need this script to get IPADDRESS for wifi and local. Anybody can help me ? ThanksTry this: Dim $strComputer = ".", $string $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = TRUE") For $objItem In $colItems $string &= $objItem.Caption & @LF & _ @TAB & $objItem.IPAddress(0) & @LF & _ @TAB & $objItem.IPSubnet(0) & @LF & @LF Next MsgBox(0, "", $string) Edited January 13, 2009 by rasim Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now