Jump to content
Sign in to follow this  
lafafmentvotre

Refresh Input

Recommended Posts

lafafmentvotre

Hi everybody and happy new year

I 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

Posted Image

Share this post


Link to post
Share on other sites
KaFu

use guictrlsetdata() to update an input control... but for IP-addresses the standard UDF GuiIPAddress.au3 might better suite your purpose...

Best Regards

Share this post


Link to post
Share on other sites
AlmarM

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.

Share this post


Link to post
Share on other sites
lafafmentvotre

Hello everybody

I 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 ?

Thanks

PS : sorry for my bad english, i'm a poor french

Here the modified script :

#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

Share this post


Link to post
Share on other sites
KaFu
lafafmentvotre

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

Share this post


Link to post
Share on other sites
rasim

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

Try 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 by rasim

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×