29. august 2002 - 12:58Der er
5 kommentarer og 1 løsning
Filroderri
Jeg søger at hente MAC adressen på min PC igennem "ipconfig -all > temp.txt".
Jeg opretter en batfil med denne kommando som jeg så kan eksekvere igennem shell.
Problemet er blot at det er yderst tilfældigt om jeg får data ind fra filen eller ej.
Det jeg har brug for er seriøs kontrol over de implicerede filers status.
HVAD GØR JEG!!!
P.S. Grunden til at jeg ikke bruger en OCX til at hente MACadressen er at de fleste af disse ikke håndterer indhentning af MAC når netkortet ikke er tilsluttet. Det kan ipconfig.
her er min kode
Public Function getmacser() As String Dim fileno fileno = FreeFile Open "c:\test1872.bat" For Output As fileno Print #fileno, "ipconfig -all > c:\tst.txt" Close fileno Dim procid procid = Shell("c:\test1872.bat", vbNormalFocus)
fileno = FreeFile Open "c:\tst.txt" For Input As fileno Dim data As String data = Input(LOF(fileno2), fileno) Close fileno
Kill "c:\test1872.bat" Kill "c:\tst.txt"
Debug.Print data
'Dim Index As Integer 'Index = 0 'Dim found As Boolean 'found = False
' 'Do ' Index = InStr(Index, "-", data, 1) ' If Mid(data, Index + 3, 1) = "-" Then ' Debug.Print Mid(data, Index - 2, 17) ' found = True ' End If ' DoEvents 'Loop Until found = True
Jeg synes stadig det er meget tilfældigt om jeg får fejl eller ej. Jeg vil f.eks gerne fjerne filerne efter brug, for at undgå gamle filer, detgiver nogle gange fejl.. Hvad gør jeg?
Dim fileno fileno = FreeFile Open "c:\test1872.bat" For Output As fileno Print #fileno, "ipconfig -all > c:\tst.txt" Print #fileno, "Echo Completed > c:\finish.tag" Close fileno Dim procid procid = Shell("c:\test1872.bat", vbHide)
'waitasec Do: DoEvents: Loop Until Dir("c:\finish.tag") <> ""
fileno = FreeFile Open "c:\tst.txt" For Input As fileno Dim data As String data = Input(LOF(fileno), fileno) Close fileno
Kill "c:\tst.txt" Kill "c:\test1872.bat"
Debug.Print data
End Function
Eneste problem er at der afterlades en finish.tag fil. Jeg har prøvet at køre kill på den, men det resulterer i at den melder fejl. Noget med permission.
Sådan som det er nu, hvor finish.tag først slettes næste gang proggy køres, virker det.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.