Jump to content

Refresh Input


Recommended Posts

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

Link to comment
Share on other sites

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...