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:
36:
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:
|
" codeBody "
" notpretty " ' GEBRUIK:
'cscript getmacinfo.vbs /s: /l:
'
'/s gaan de plaats van het brondossier in die computernamen en/of IP adressen bevatten. Bijvoorbeeld; /s: „c:\Temp\my file.txt“
'/l gaan de plaats van het logboekdossier in. Bijvoorbeeld; /l: „C:\Temp\my logboek file.txt“
'
'Voorbeeld:
'cscript getmacinfo.vbs /s: „c:\Temp\my file.txt“ /l: „C:\Temp\my logboek file.txt“
'
'COMMENTAREN:
'Eigenschappen van dit manuscript;
'Dit manuscript zal een dossier openen die computernamen en/of IP adressen bevatten.
Het 'manuscript zal het bevel getmac tegen elk lijnpunt van het dossier in werking stellen.
Een 'logboekdossier zal met de output worden gecre�ërd.
Schemerige colNamedArguments
Schemerige strSource
Schemerige strLog
'Controle die het manuscript onder cscript in werking stelt
checkforcscript ()
'Krijg argumenten van bevellijn
Plaats colNamedArguments = WScript.Arguments.Named
strSource = colNamedArguments.Item („s“)
strLog = colNamedArguments.Item („l“)
'Controle voor hulpsleutel
als WScript.Arguments.Named.Exists („? “) OF WScript.Arguments.Named.Exists („h“) Dan
FoundError („ArgumentNotFound“)
wscript.quit 1
beëindig als
als strSource = "" OF strLog = "" toen
FoundError („ArgumentNotFound“)
wscript.quit 1
beëindig als
ReadFileAndExecuteScript ()
Sub ReadFileAndExecuteScript ()
'Open het brondossier en lees in alle lijnen
Plaats objFSORead = CreateObject („scripting.filesystemobject“)
Plaats objReadFile = objFSORead.OpenTextFile (strSource, 1)
strContents = objReadFile.ReadAll
arrLines = verdelen (strContents, vbCRLF)
objReadFile.Close
'Cre�ër een nieuw dossier dat het omgezette Csv- dossier zal zijn
Plaats objFSOWrite = CreateObject („Scripting.FileSystemObject“)
Plaats objFile = objFSOWrite.OpenTextFile (strLog, Ware 2,)
voor elke strTarget in arrLines
Vastgestelde WshShell = WScript.CreateObject („WScript.Shell“)
Vastgestelde WshExec = WshShell.exec („getmac /S“ & strTarget & „/FO CSV /NH“)
'wacht op te beëindigen getmac
doe terwijl WshExec.Status = 0
wscript.sleep 100
lijn
'schrijf output aan logboekdossier
Doe terwijl niet (WshExec.StdOut.AtEndOfStream)
strResults = WshExec.StdOut.ReadLine
objFile.WriteLine """" & strTarget & """, „& strResults
Lijn
daarna
objFile.Close
Sub van het eind
Sub checkforcscript ()
'Als het lopen niet onder cscript, lanceer het gebruiken van bevellijn opnieuw
Plaats oShell = CreateObject („Wscript.Shell“)
Als niet WScript.FullName = wscript. Weg & „\ cscript.exe“ toen
oShell.Popup „het Gelanceerde gebruiken wscript. Opnieuw lancerend…“, 3, „WSCRIPT“
oShell.Run „cmd.exe /k“ & wscript. Weg & „\ cscript.exe //NOLOGO“ & Chr (34) & wscript.scriptFullName & Chr (34) & „/? “, Valse 1,
wscript.quit
Eind als
Sub van het eind
Sub FoundError (sCase)
'Foutenmeldingen
selecteer gevalsCase
geval „ArgumentNotFound“
wscript.echo „cscript getmacinfo.vbs /s: /l: “
wscript.echo ""
wscript.echo „/s gaan de plaats van het brondossier in die computernamen en/of“ bevatten
wscript.echo „IP adressen.“
wscript.echo „bijvoorbeeld; /s: "" c:\Temp\my file.txt """
wscript.echo „/l gaan de plaats van het logboekdossier in.“
wscript.echo „bijvoorbeeld; /l: "" C:\Temp\my logboek file.txt """
wscript.echo ""
wscript.echo „Voorbeeld: “
wscript.echo „cscript getmacinfo.vbs /s: "" c:\Temp\my file.txt "" /l: "" C:\Temp\my logboek file.txt """
uitgezocht eind
Sub van het eind
Knevel HighlightingOpen in Nieuwe WindowSelect allen
|
