SKRIVA mig FÅR FÖLJAFEL
C:\ >getmacinfo.vbs /s: NÄR JAG KÖR DENNA, c:\Temp\macs.txt /l: ”C:\Temp\my loggar >cscript getmacinfo.vbs /s för file.txt
C:\: ”c:\Temp\macs.txt” /l: ”C:\Temp\logfile.txt "
Microsoft (R) Windows skrivar varar värd versionen 5.7
Copyright (C) Microsoft Corporation. Allt sammanställningfel för rätter reserved.
C:\getmacinfo.vbs (93, 25) Microsoft VBScript: Förväntat avsluta of
statement
> för
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 "
' ANVÄNDNING class= ":
'cscript getmacinfo.vbs /s: /l:
',
'/s skriver in läget av källan sparar att innehålla datoren namnger och/eller IP address. Till exempel; /s: ”c:\Temp\my file.txt”,
'/l skriver in läget av logga sparar. Till exempel; /l: ”C:\Temp\my loggar file.txt”,
',
'Exempel:
'cscript getmacinfo.vbs /s: ”c:\Temp\my file.txt” /l: ”C:\Temp\my loggar file.txt”,
',
'KOMMENTARER:
'Särdrag av detta skrivar;
'Detta skrivar ska öppet en spara som innehåller datoren, namnger och/eller IP address.
'Skriva ska körning som befallagetmacen mot varje fodrar objektet från spara.
'En logga sparar ska skapas med tillverkad.
Dunkla colNamedArguments
Dunkel strSource
Dunkel strLog
'Kontrollera att skriva är rinnande under cscript
checkforcscript ()
'Få argument från befaller fodrar
Fastställda colNamedArguments = WScript.Arguments.Named
strSource = colNamedArguments.Item (”s”)
strLog = colNamedArguments.Item (”l”)
'Kontrollera för nyckel- hjälp
om WScript.Arguments.Named.Exists (”? ”) ELLER WScript.Arguments.Named.Exists (”H”) därefter
FoundError (”ArgumentNotFound”)
wscript.quit 1
avsluta om
om strSource = "" ELLER strLog = "" därefter
FoundError (”ArgumentNotFound”)
wscript.quit 1
avsluta om
ReadFileAndExecuteScript ()
UnderReadFileAndExecuteScript ()
'Öppna källan sparar och läser fodrar sammanlagt
Fastställd objFSORead = CreateObject (”scripting.filesystemobject”)
Fastställdt objReadFile = objFSORead.OpenTextFile (strSource, 1)
strContents = objReadFile.ReadAll
arrLines = splittring (strContents, vbCRLF)
objReadFile.Close
'Skapa ett nytt sparar att ska var den konverterade CSVEN sparar
Fastställd objFSOWrite = CreateObject (”Scripting.FileSystemObject”)
Fastställdt objFile = objFSOWrite.OpenTextFile (strLog, 2 som, är riktiga)
för varje strTarget i arrLines
Fastställda WshShell = WScript.CreateObject (”WScript.Shell”)
Fastställda WshExec = WshShell.exec (”getmac /S” & strTarget & ”/FO CSV /NH”)
'väntan för att getmac ska avsluta sig
gör stunder WshExec.Status = 0
wscript.sleep 100
kretsa
'skriv tillverkat för att logga sparar
Gör stunder inte (WshExec.StdOut.AtEndOfStream)
strResults = WshExec.StdOut.ReadLine
objFile.WriteLine-"""" & strTarget & """, ”& strResults
Kretsa
därefter
objFile.Close
Avsluta suben
Sub checkforcscript ()
Fodra, 'om inte rinnande under cscript, relaunch using befaller
Fastställd oShell = CreateObject (”Wscript.Shell”)
Om inte WScript.FullName = wscript. Bana & ”\ cscript.exe” därefter
oShell.Popup ”som lanseras using wscript. Relaunching…”, 3, ”WSCRIPT”,
oShell.Run ”cmd.exe /k” & wscript. Bana & ”\ cscript.exe //NOLOGO” & Chr (34) & wscript.scriptFullName & Chr (34) & ”/? ” 1 som är falsk
wscript.quit
Avsluta om
Avsluta suben
Sub FoundError (sCasen)
'Felmeddelanden
välj fallsCasen
case ”ArgumentNotFound”,
wscript.echo-”cscript getmacinfo.vbs /s: /l: ”,
wscript.echo-"",
wscript.echo ”/s skriver in läget av källan sparar att innehålla datoren namnger och/eller”,
wscript.echo ”IP address.”,
wscript.echo ”For example; /s: "" c:\Temp\my file.txt """,
wscript.echo ”/l skriver in läget av logga sparar.”,
wscript.echo ”For example; /l: "" C:\Temp\my loggar file.txt """,
wscript.echo-"",
wscript.echo-”exempel: ”,
wscript.echo-”cscript getmacinfo.vbs /s: "" c:\Temp\my file.txt "" /l: "" C:\Temp\my loggar file.txt """,
avsluta valt
Avsluta suben
Toggle all HighlightingOpen i nya WindowSelect
" klar "
|
