Thx BugFix<br><br><br>kann das sein das ich unter Windows 7 nur nen leeren Array Bekomme ????<br><br>aber unter xp funkoinietes <br>
Beiträge von Sprenger120
-
-
Uud welche davon gibt die ip wieder ??
-
Hmm jetzt wo du das sagst könnte man da irgentwie das noch hinz. fügen??
leider habe ich keine ahnung von vbscript
(wennes das ist)
-
Hi Comunity
ich habe mal so im archiv gestöber und bin auf diesen skript getoßen
[autoit][/autoit][autoit][/autoit][autoit]#include <array.au3> ; wird nur für _ArrayDisplay benötigt
[/autoit][autoit][/autoit][autoit]
Global $networkadapter [1] [2]
_GetNetworkadapterInf ()
_ArrayDisplay ($networkadapter);Auslesen der Netzwerkadapter:
[/autoit]
; Selbstbestimmter Name
; int. Beschreibung
; IP Adresse
Func _GetNetworkadapterInf ()
$x = 0
$strComputer = "Localhost"
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter")
For $objItem In $colItems
$networkadapter [$x] [0] = $objitem.Name
$networkadapter [$x] [1] = $objItem.MACAddress
$x += 1
Redim $networkadapter [$x + 1] [2]
Next
EndFuncnormalerweise sollte im 3 colum die ip stehen aber da ist nichts
kann mir vieleicht einer helfen
gruß Michael
-
Wenn das ne blockerdatei seien sollte dann probiers mal hiermit
[autoit][/autoit][autoit][/autoit][autoit]RunWait(@COMSPEC & " /c fsutil file createnew " & $pfad & "\Blocker.txt " & $dateigroesse)
[/autoit]Dateigröße in bytes angeben
-
Alles gute euch beiden
-
ich hatte sowas auch schon mal. das die covers beim kumpel im WMP angezeigt wurden.....ich glaube das dass von windows automatisch mitkopiert wird aber ich bin mir nicht sicher
mache einfach die versteckten systemdateien sichtbar dann müssen die cover bild - dateien zu sehen sein
-
genau den gleichen hatte ich auch schon
aber trotzdem thx blubbstar
-
Super das hat funktoiniert
thx
-
Hallo Community
ich hätte nur ne kurze frage am rande......ist es möglich in die Progess direkt die %-Anzeige zu integrieren ???
Is zwa nur ne optische spielerei aber trotztdem sieht das programm dann noch nen bissel besser aus.
Diesmal hat das ganze keine eile also Zeit lassen und hoffentlich gute Antworten Posten
-
also ich habe das an meine alten lappi ausprobiert und das hat knappe 2 sec gedauert aber ich hatte keine anderen rechner da!!
ich habe diese funktion von benutzt
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
;#INDEX# ===========================================================================================
; Title .........: _Net_Wol
; AutoIt Version: 3.3.0.0
; Language: English
; Description ...: Function that sends a Magic Packet for WOL to an specified IP-Address or Hostname
; ===================================================================================================; #FUNCTION# ;=======================================================================================
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;
; Name...........: _Net_Wol
; Description ...: Wake on Lan Function, by sending the "MagicPacket"
; Syntax.........: _Net_Wol($sWolMac, $sWolIp)
; Parameters ....: $sWolMac - The MAC-Address of the Network Adapter in the format "XXXXXXXXXXXX"
; X = [0-9 & A-F not case-sensitive]
; $sWolIp - The IPAdress of the NIC in the format "192.168.0.1"
; - or the Broadcast-Address of the Subnet in the format "192.168.0.255"
; - or the Internet Hostname of the NIC e.g. myhost.isp
; Return values .: Success - Returns 1
; Failure - Returns 0 and Sets @Error:
; |1 - Invalid $sWolMac
; |2 - Invalid $sWolIp
; |3 - Error sending "MagicPacket"
; Author ........: Schnuffel http://www.autoit.de
; Modified.......:
; Remarks .......: Internet Host name may not work behind NAT-Router's
; the Magic Packet is always send to the Broadcast-Address ".255"
; Return 1 means only, that the MagicPacket is been sent,
; it indicates not whether the Remote-PC ist really started
; Related .......:
; Link ..........;
; Example .......; Yes
; #include <_Net_Wol.au3>
; Send a WakeOnLan packet for the MAC-Address "0002A5840B46" to the SubNet "192.168.0"
; _Net_Wol("0002A5840B46", "192.168.0.255")
; ;==================================================================================================Func _Net_Wol($sWolMac, $sWolIp, $iWolSwitch = 0)
[/autoit]
If Not StringRegExp($sWolMac, "(\A[[:xdigit:]]{12}\z)") Then
SetError(1, 0, 1)
Return 0
EndIf
TCPStartup()
$sWolIp = TCPNameToIP($sWolIp)
TCPShutdown()
If Not StringRegExp($sWolIp, "\b(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}\b\b(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)){1}\b") Then
SetError(1, 0, 2)
Return 0
EndIf
Local $sWolHeader, $sWolData, $sWolConnect, $sWolResult
For $p = 1 To 11 Step 2
$sWolData &= Chr(Dec(StringMid($sWolMac, $p, 2)))
Next
For $p = 1 To 6
$sWolHeader = Chr(Dec("ff")) & $sWolHeader
Next
For $p = 1 To 16
$sWolHeader &= $sWolData
Next
UDPStartup()
$sWolConnect = UDPOpen($sWolIp, 7)
$sWolResult = UDPSend($sWolConnect, $sWolHeader)
UDPCloseSocket($sWolConnect)
UDPShutdown()
If $sWolResult = "102" Then
Return 1
Else
SetError(1, 0, 3)
Return 0
EndIf
EndFunc ;==>_Net_Wol
aber es kann natürlich auch am rechner liegen deine funktion habe ich noch nich benutzt vielicht isse ja schnellerund sag mal was mussen bei brodcast rein etwa meine ip oder was???
-
Hi ihr Autoitler !!!
ich baue für meine Schule ne Rechnersteuerung für die Lehrer. Is alles schon fertig nur ein schlelleres Wake on LAN Fehlt noch. Das was ich sonst so gefunden habe das hat so im schitt 2 sec gebraucht und im Raum sind aber 30 Rechner und dass dauert eunfach zu lange. Könnte mir einer Helfen wenns geht Den WOL Prozess so zu gestalten das die Praktisch alle gleichzeitig Starten?
Und wenn das in Autoit nicht ralisierbar ist dann könnte mir bestimmt einer in C++ helfen (dll).
sry für den langen Text...
-
Schönen Dank euck beiden für die Tipps!!!!
Das hilft mir echt weiter !
-
Hi Com,
Hat einer ne ahnung wie man den Hash einer Datei möglichts Schnell ermittelt ????
bräuchte das dringend !!
Freue mich trotzdem über antworten.
-
Hi Com.
Ich soll für meine Schule sowas wie ne Seiten Kontrolle Machen sodass die Lehrer nach dem Unt. kontrollieren können auf welchen Seiten die Schüler waren das gui habe ich schon fertig aber beim auslesen der History scheitertz. Könnte einer mir helfen.
Ps: Jeder Schüler hat auf nem Zentralen Server seinen Account mit Passwort und kann sich bei nem verbundenen Rechner anmelden. Aber nur der Server Admin kann gucken wo die Schüler drauf waren.
wurde mich über Feedbaks freuen und so weiter
-
Danke an Der_Doc
ja das hast du aber das hat nicht bei mir funktioniert !!
aber trotzdem thx -
Hi Andy
schönen dank für den tipp
-
Hi Community,
sagt ma ist es eigentlich möglich mit autoit eine ip in eine macaddresse umzuwandeln ?
wenn ja konntet ihr mir helfen
ich habe mir schonma was zusammengeschustert aber das bringts wirklich nicht
[autoit]
[/autoit][autoit][/autoit][autoit]
Func GetMacAddress($sip)
Dim $cmd = Run(@ComSpec, @WorkingDir, @SW_HIDE, 0x1 + 0x2 + 0x4)
Local $mac
Do
StdinWrite($cmd, "arp -a " & $sip & @CRLF)
While 1
$cmdWindowOut = StdoutRead($cmd)
$cmdWindowErr = StderrRead($cmd)
$mac = $mac & $cmdWindowOut & $cmdWindowErr
If @error Then Exit
$status = StringSplit($cmdWindowOut, @CRLF, 1)
$status = $status[$status[0]]
If StringRight($status, 1) = ">" Or StringRight($status, 2) = "\>" Then ExitLoop
WEnd
Until StringInStr($mac, $sip) <> 0$mac = StringSplit($mac, @CRLF)
[/autoit][autoit][/autoit][autoit]For $x = $mac[0] To 0 Step -1
[/autoit]
If StringInStr($mac[$x], $sip) <> 0 Then
$mac = $mac[$x]
ExitLoop
EndIf
Next
$mac = StringSplit($mac, " ")
If UBound($mac) < 18 Then
ProcessClose($cmd)
ProcessClose("apr.exe")
Return -1
EndIf
$mac = $mac[18]
ProcessClose($cmd)
ProcessClose("apr.exe")
Return $mac
EndFuncwürde mich sehr über antworten freuen !!
-
daran hab ich ja noch gar nicht gedacht
schönen dank
-
hi Com
hätte nur ma ne kleine Frage am Rande
weiß zufällig einer wie man dieses Bandbreite zb von Kopieren berechnet (mb/s;kb/s)
wurde mich über antworten freuen