Frage : Finden des MAC address für für mehrfache Computer

WENN ICH DIESEN INDEX ich LAUFEN LASSE, DAS FOLGENstörung



C:\ >getmacinfo.vbs /s ERHALTEN:  c:\Temp\macs.txt /l: „C:\Temp\my-Maschinenbordbuch-file.txt

C:\ >cscript getmacinfo.vbs /s: „c:\Temp\macs.txt“ /l: „C:\Temp\logfile.txt "
Microsoft (R) Windows Index-Wirts-Version 5.7
Copyright (c) Microsoft Corporation. Alle Kompilationsstörung der Rechte reserved.

C:\getmacinfo.vbs (93, 25) Microsoft VBScript: Erwartetes Ende of
statement


 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:

 ' VERBRAUCH:
'cscript getmacinfo.vbs /s:  /l: 
'
'/s kommen die Position der Quellakte, die Computerbezeichnungen und/oder IP address enthält.  Z.B.; /s: „c:\Temp\my file.txt“
'/l kommen die Position der Protokolldatei.  Z.B.; /l: „C:\Temp\my-Maschinenbordbuch file.txt“
'
'Beispiel:
'cscript getmacinfo.vbs /s: „c:\Temp\my file.txt“ /l: „C:\Temp\my-Maschinenbordbuch file.txt“
'
'ANMERKUNGEN:
'Eigenschaften dieses Indexes;
'Dieser Index öffnet eine Akte, die Computerbezeichnungen und/oder IP address enthält.
'Der Index laufen lässt das Befehl getmac gegen jede Linie Einzelteil von der Akte.
'Eine Protokolldatei hergestellt mit dem Ausgang t.

Schwache colNamedArguments
Schwaches strSource
Schwaches strLog

'Prüfen, ob der Index unter cscript läuft
checkforcscript ()

'Argumente von der Befehlszeile erhalten
colNamedArguments = WScript.Arguments.Named einstellen
strSource = colNamedArguments.Item („s“)
strLog = colNamedArguments.Item („L“)

'Auf Hilfetaste überprüfen
wenn WScript.Arguments.Named.Exists („? ") ODER WScript.Arguments.Named.Exists („h“) dann
	FoundError („ArgumentNotFound“)
	wscript.quit 1
beenden wenn

wenn strSource = "" ODER strLog = "" dann
	FoundError („ArgumentNotFound“)
	wscript.quit 1
beenden wenn

ReadFileAndExecuteScript ()

VorReadFileAndExecuteScript ()
	'Die Quellakte öffnen und alle Linien innen lesen
	objFSORead = CreateObject („scripting.filesystemobject“) einstellen
	objReadFile einstellen = objFSORead.OpenTextFile (strSource, 1)
	strContents = objReadFile.ReadAll
	arrLines = aufspalteten (strContents, vbCRLF)
	objReadFile.Close
	'Herstellen eine neue Akte , die die umgewandelte CSV Akte ist
	objFSOWrite = CreateObject („Scripting.FileSystemObject“) einstellen
	objFile einstellen = objFSOWrite.OpenTextFile (strLog, 2, zutreffendes)
	für jedes strTarget in den arrLines
		WshShell = WScript.CreateObject („WScript.Shell“) einstellen
		WshExec = WshShell.exec („getmac /S“ u. strTarget u. „/FO CSV /NH ") einstellen
		'warten, dass getmac beendet
		tun während WshExec.Status = 0
			wscript.sleep 100
		Schleife
		'Ausgang zur Protokolldatei schreiben
		Tun, während nicht (WshExec.StdOut.AtEndOfStream)
			strResults = WshExec.StdOut.ReadLine
			objFile.WriteLine """" u. strTarget u. """, „u. strResults
		Schleife
	zunächst
	objFile.Close
Enden-Unterseeboot

Vorcheckforcscript ()
	'Wenn laufend nicht, unter cscript, Wiederankurbelung using Befehlszeile
	oShell = CreateObject („Wscript.Shell“) einstellen
	Wenn nicht WScript.FullName = wscript. Weg u. „\ cscript.exe“ dann
		oShell.Popup „gestartet using wscript. Wieder ankurbeln…“, 3, „WSCRIPT“
		oShell.Run „cmd.exe /k“ u. wscript. Weg u. „\ cscript.exe //NOLOGO“ u. Chr (34) u. wscript.scriptFullName u. Chr (34) u. „/? “, 1, falsch
		wscript.quit
	Beenden wenn
Unterseeboot beenden

Sub FoundError (sCase)
	'Fehlermeldungen
	Fall sCase vorwählen
		„ArgumentNotFound“ umkleiden
			wscript.echo „cscript getmacinfo.vbs /s:  /l: “
			wscript.echo ""
			wscript.echo „/s kommen die Position der Quellakte, die enthält Computerbezeichnungen und/oder“
			wscript.echo „IP address.“
			wscript.echo „zum Beispiel; /s: "" c:\Temp\my file.txt """
			wscript.echo „/l kommen die Position der Protokolldatei.“
			wscript.echo „zum Beispiel; /l: "" C:\Temp\my-Maschinenbordbuch-file.txt """
			wscript.echo ""
			wscript.echo „Beispiel: “
			wscript.echo „cscript getmacinfo.vbs /s: "" c:\Temp\my file.txt "" /l: "" C:\Temp\my-Maschinenbordbuch-file.txt """
	Ende auserwählt
Enden-Unterseeboot 
Toggle-HighlightingOpen in neuem WindowSelect alles

Antwort : Finden des MAC address für für mehrfache Computer

Berauben ist korrekt - ich denke, dass Sie etwas Extratext in Ihre Akte kopierten und klebten.  Linie 93 entfernen und der Index, den ich Sie schrieb, sollte arbeiten.

Als Referenz hier war die ursprüngliche Frage…
http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_26328590.html
Weitere Lösungen  
 
programming4us programming4us