Форум программистов, компьютерный форум, киберфорум
Batch (CMD/BAT)
Форум программистов и сисадминов Киберфорум > Компьютерный форум > Windows > Администрирование Windows > Batch (CMD/BAT)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 06.05.2015
Сообщений: 5

Найти синтаксическую ошибку в коде

12.05.2015, 16:06. Показов 1819. Ответов 5
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Windows Batch file
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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283

@echo off
 
:Create
 
md %~d1\Passwords\%USERNAME%\Info\
 
cd %~d1\Passwords\%USERNAME%\Info\
 
Echo. > Info.txt
 
 
:Bios
 
 
echo /__________________________________________________________________________Bios___________________________________________________________________________\ >> Info.Txt
 
cls
 
Echo Bios...
 
For /F "tokens=2 Delims==" %%J In ('wmic bios get caption /Value^|FindStr .') Do echo | %%J                                                                                                                                                       | >> Info.Txt
     
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
:Windows
 
if defined ProgramFiles(x86) (set oper=x64) else (set oper=x32)
FOR /F "tokens=1* delims==" %%A IN ('wmic os get caption /Format:List ^| FIND "="') DO set "s=%%~B"
 
echo /________________________________________________________________________Windows__________________________________________________________________________\ >> Info.Txt
 
cls
 
Echo Windows...
 
echo | %s% %oper%                                                                                                                                                | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
For /F "tokens=2 Delims==" %%J In ('wmic os get buildnumber /Value^|FindStr .') Do echo | %%J                                                                                                                                                       | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
For /F "tokens=2 Delims==" %%J In ('wmic os get systemdrive /Value^|FindStr .') Do echo | %%J                                                                                                                                                       | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
wmic os get servicepackmajorversion | 1>nul findstr "0" && echo ServicePack No installed >> Info.txt || (
For /F "tokens=2 Delims==" %%J In ('wmic os get servicepackmajorversion /Value^|FindStr .') Do echo ServicePack: | %%J                                                                                                                                                       | >> Info.txt
)
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
echo | Nickname: %username%                                                                                                                                      | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
For /F "tokens=2 Delims==" %%J In ('wmic os get numberofusers /Value^|FindStr .') Do echo | Username: %%J                                                                                                                                             | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
For /F "tokens=2 Delims==" %%J In ('wmic computersystem get domain /Value^|FindStr .') Do echo | WorkGroup: %%J                                                                                                                                            | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
 
:MotherBoard
 
echo /______________________________________________________________________MotherBoard________________________________________________________________________\ >> Info.Txt
 
 
cls
 
Echo MotherBoard...
 
For /F "tokens=2 Delims==" %%J In ('WMIC baseboard get manufacturer /Value^|FindStr .') Do echo | %%J                                                                                                                                                       | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
For /F "tokens=2 Delims==" %%J In ('WMIC baseboard get product /Value^|FindStr .') Do echo  | %%J                                                                                                                                                       | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
 
 
 
:Processor
 
 
echo /_______________________________________________________________________Processor_________________________________________________________________________\ >> Info.Txt
 
 
cls
 
Echo Processor...
 
For /F "tokens=2 Delims==" %%J In ('wmic computersystem get numberofprocessors /Value^|FindStr .') Do echo | Processors: %%J                                                                                                                                           | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
For /F "tokens=2 Delims==" %%J In ('WMIC CPU Get Name /Value^|FindStr .') Do echo | Name: %%J                                                                                                                                                 | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
FOR /F "tokens=1* delims==" %%A IN ('WMIC CPU Get currentclockspeed /Format:List ^| FIND "="') DO set "s=%%~B"
echo | ClockSpeed: %s% Мгц                                                                                                                                       | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
FOR /F "tokens=1* delims==" %%A IN ('WMIC CPU Get maxclockspeed /Format:List ^| FIND "="') DO set "s=%%~B"
echo | Max ClockSpeed: %s% Мгц                                                                                                                                   | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
set cachelevel=2
set cachelevelrus=Second
call :cache
set cachelevel=3
set cachelevelrus=Third
call :cache
goto 1
:cache
FOR /F "tokens=1* delims==" %%A IN ('WMIC CPU Get l%cachelevel%cachesize /Format:List ^| FIND "="') DO set "su=%%~B"
call :mbgb
if %su% GTR 1024 set /a su=%su%/1000
echo | Cash %cachelevelrus% Level: %su% %uu%                                                                                                                     | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
exit /b
:1
FOR /F "tokens=1* delims==" %%A IN ('WMIC CPU Get numberofcores /Format:List ^| FIND "="') DO set "s=%%~B"
FOR /F "tokens=1* delims==" %%A IN ('WMIC CPU Get numberoflogicalprocessors /Format:List ^| FIND "="') DO set "ss=%%~B"
echo | Cores: %s% Flowes: %ss%                                                                                                                                   | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
 
 
:VideoCard
 
 
 
echo /_______________________________________________________________________VideoCard_________________________________________________________________________\ >> Info.Txt
 
 
cls
 
Echo Videocard...
 
set /a numik=0
FOR /F "tokens=1* delims==" %%A IN ('WMIC Path Win32_VideoController get AdapterRAM /Format:List ^| FIND "="') DO set "s=%%~B" & call :vdo
goto 2
:vdo
set /a numik=%numik%+1
set /a sss=%s%/1024/1024
echo | %numik%: %sss% Мб                                                                                                                                         | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
exit /b
:2
set /a num=0
for /F "tokens=1* delims==" %%A IN ('WMIC Path Win32_VideoController get Name /Format:List ^| FIND "="') DO set "s=%%~B" & call :vdol
goto 3
:vdol
set /a num=%num%+1
echo | Name: %num%: %s%                                                                                                                                          | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
exit /b
:3
for /F "tokens=2 delims==" %%A IN ('WMIC Path Win32_VideoController get currenthorizontalresolution /Format:List ^| FIND "="') DO call :hor "%%A"
:hor
if not "%~1"=="" set hh=%~1
for /F "tokens=2 delims==" %%A IN ('WMIC Path Win32_VideoController get currentverticalresolution /Format:List ^| FIND "="') DO call :ver "%%A"
:ver
if not "%~1"=="" set vv=%~1
echo | %hh% x %vv%                                                                                                                                               | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
 
 
:SoundCard
 
 
echo /______________________________________________________________________SoundCard__________________________________________________________________________\ >> Info.Txt
 
 
cls
 
Echo SoundCard...
 
set /a num=0
FOR /F "tokens=1* delims==" %%A IN ('WMIC sounddev get Name /Format:List ^| FIND "="') DO set "s=%%~B" & call :vdol
goto 3
:vdol
set /a num=%num%+1
echo | Name: %num%: %s%                                                                                                                                          | >> Info.txt
 
exit /b
:3
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
 
 
:RAM
 
 
echo /_________________________________________________________________________RAM_____________________________________________________________________________\ >> Info.Txt
 
 
cls
 
Echo RAM...
 
set /a num=0
FOR /F "tokens=1* delims==" %%A IN ('WMIC memorychip get capacity /Format:List ^| FIND "="') DO set "s=%%~B" & call :vdols
goto 33
:vdols
set /a num=%num%+1
echo | Slot: %num%: %s% б                                                                                                                                        | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
exit /b
:33
FOR /F "tokens=1* delims==" %%A IN ('WMIC os get totalvisiblememorysize /Format:List ^| FIND "="') DO set "su=%%~B" & call :vdod
goto 4
:vdod
call :mbgb
goto after
:mbgb
if %su% LSS 1 (set uu=б) else if %su% LSS 1024 (set uu=Кб) else if %su% GTR 1024 set uu=Мб
exit /b
:after
set /a sss=%su%/1024
echo | Free: %sss% %uu%                                                                                                                                          | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
exit /b
:4
for /F "tokens=2 Delims==" %%J In ('WMIC memphysical get memorydevices /Value^|FindStr .') Do echo | %%J                                                                                                                                                       | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
 
 
:Devices
 
 
echo /_______________________________________________________________________Devices___________________________________________________________________________\ >> Info.Txt
 
 
cls
 
Echo Devices...
 
For /F "tokens=2 Delims==" %%J In ('WMIC cdrom get id /Value^|FindStr .') Do echo | %%J                                                                                                                                                       | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
 
For /F "tokens=2 Delims==" %%J In ('WMIC cdrom get volumename /Value^|FindStr .') Do echo | Name %%J                                                                                                                                                  | >> Info.txt
 
echo \_________________________________________________________________________________________________________________________________________________________/ >> Info.Txt
 
cls
 
echo Done!
 
cls
 
TIMEOUT /T 4 /NOBREAK 
 
:exit
 
 
exit
Написал сей код...
Пишет что ошибка синтаксиса...(((
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 12.05.2015, 16:06
Ответы с готовыми решениями:

Не удаётся найти синтаксическую ошибку в скрипте для запуска VLC
Вообщем уже полдня сижу не получается сервак потока запустить на vlc что то с синтаксиосом а что не понятно. @echo on "C:\Program...

Найти синтаксическую ошибку в коде
program funciya; var x,y,z,f:real; begin write('Ââåäèòå çíà÷åíèå õ') ; readln(x); if x>20 then begin z:=sqrt(ln(x)); ...

Найти синтаксическую ошибку в коде
на строке 50 выдает ошибки "Illegal expression" и "Syntax error, ';' expected but '(' found" не могу понять где я забыла точку с запятой....

5
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18031 / 7734 / 892
Регистрация: 25.12.2011
Сообщений: 11,502
Записей в блоге: 16
12.05.2015, 20:10
Знаки | в cmd имеют специальное значение.
Если Вы хотите вывести их на печать, то следует их предварять символом ^

Добавлено через 1 минуту
Для отладки батника, удалите первую строку.
283-ю строку заменить на exit /B
Батник запускать из-под интерпретатора, т.е. сначала ПУСК, Выполнить, cmd
затем переходите в папку с батником командой cd "папка", и запускаете на исполнение, указав имя батника.
1
0 / 0 / 0
Регистрация: 06.05.2015
Сообщений: 5
12.05.2015, 22:22  [ТС]
Ошибка: Непредвиденное Появление!
0
0 / 0 / 0
Регистрация: 06.05.2015
Сообщений: 5
13.05.2015, 17:18  [ТС]
1 часть
Windows Batch file
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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164

@echo off
Echo   __________________________________________________________________________________________________________________________________________  >> Info.Txt
echo  /                                                      \     Bios      /                                                                   \ >> Info.Txt
Echo  \                                                       \_____________/                                                                    / >> Info.txt
echo   \________________________________________________________________________________________________________________________________________/ >> Info.txt
echo     /                                                                                                                                    \ >> Info.txt
 
cls
 
Echo Bios...
 
For /F tokens=2 Delims== %%J In ('wmic bios get caption /Value^^|FindStr .') Do echo ^     \  Name: %%J ^ >> Info.Txt
 
echo      \___________________________________________________________________________________________________________________________________/
echo. >> Info.txt
echo. >> Info.txt
echo. >> Info.txt
 
:Windows
 
 
if defined ProgramFiles(x86) (set oper=x64) else (set oper=x32)
FOR /F tokens=1* delims== %%A IN ('wmic os get caption /Format:List ^^| FIND =') DO set s=%%~B
 
Echo   __________________________________________________________________________________________________________________________________________  >> Info.Txt
echo  /                                                      \    Windows    /                                                                   \ >> Info.Txt
Echo  \                                                       \_____________/                                                                    / >> Info.txt
echo   \________________________________________________________________________________________________________________________________________/ >> Info.txt
echo     /                                                                                                                                    \ >> Info.txt
 
cls
 
Echo Windows...
 
echo    /\___________________________________________________________________________________________________________________________________/
 
echo      \  %s%%oper% >> Info.txt
 
echo    /\___________________________________________________________________________________________________________________________________/
 
For /F tokens=2 Delims== %%J In ('wmic os get buildnumber /Value^^|FindStr .') Do echo      \  Build №%%J >> Info.txt
 
echo    /\___________________________________________________________________________________________________________________________________/
 
For /F tokens=2 Delims== %%J In ('wmic os get systemdrive /Value^^|FindStr .') Do echo      \  Windows installed a %%J >> Info.txt
 
echo    /\___________________________________________________________________________________________________________________________________/
 
wmic os get servicepackmajorversion ^| 1>nul findstr 0 && echo ServicePack No installed >> Info.txt ^|^| (
For /F tokens=2 Delims== %%J In ('wmic os get servicepackmajorversion /Value^^|FindStr .') Do echo      \  ServicePack: %%J >> Info.txt
)
 
echo    /\___________________________________________________________________________________________________________________________________/
chcp 1251 >NUL
echo      \  CurrentUser (Rus): %USERNAME% >> Info.txt
chcp 866 >NUL
 
echo    /\___________________________________________________________________________________________________________________________________/
 
echo      \  CurrentUser (Eng): %USERNAME% >> Info.txt
 
echo    /\___________________________________________________________________________________________________________________________________/
 
For /F tokens=2 Delims== %%J In ('wmic os get numberofusers /Value^^|FindStr .') Do echo      \  Users: %%J >> Info.txt
echo    /\___________________________________________________________________________________________________________________________________/
 
For /F tokens=2 Delims== %%J In ('wmic computersystem get domain /Value^^|FindStr .') Do echo      \  WorkGroup: %%J >> Info.txt
 
echo      \___________________________________________________________________________________________________________________________________/
echo. >> Info.txt
echo. >> Info.txt
echo. >> Info.txt
 
 
 
:MotherBoard
 
 
Echo   __________________________________________________________________________________________________________________________________________  >> Info.Txt
echo  /                                                      \  Mother Card  /                                                                   \ >> Info.Txt
Echo  \                                                       \_____________/                                                                    / >> Info.txt
echo   \________________________________________________________________________________________________________________________________________/ >> Info.txt
echo     /                                                                                                                                    \ >> Info.txt
 
cls
 
Echo MotherBoard...
 
echo    /\___________________________________________________________________________________________________________________________________/
 
For /F tokens=2 Delims== %%J In ('WMIC baseboard get manufacturer /Value^^|FindStr .') Do echo      \  Manufacturer: %%J >> Info.txt
 
echo    /\___________________________________________________________________________________________________________________________________/
 
For /F tokens=2 Delims== %%J In ('WMIC baseboard get product /Value^^|FindStr .') Do echo      \  Model: %%J >> Info.txt
 
echo      \___________________________________________________________________________________________________________________________________/
echo. >> Info.txt
echo. >> Info.txt
echo. >> Info.txt
 
 
:Processor
 
 
Echo   __________________________________________________________________________________________________________________________________________  >> Info.Txt
echo  /                                                      \   Processor   /                                                                   \ >> Info.Txt
Echo  \                                                       \_____________/                                                                    / >> Info.txt
echo   \________________________________________________________________________________________________________________________________________/ >> Info.txt
echo     /                                                                                                                                    \ >> Info.txt
 
cls
 
Echo Processor...
 
echo    /\___________________________________________________________________________________________________________________________________/
 
For /F tokens=2 Delims== %%J In ('wmic computersystem get numberofprocessors /Value^^|FindStr .') Do echo      \  Processors: %%J >> Info.txt
 
echo    /\___________________________________________________________________________________________________________________________________/
 
For /F tokens=2 Delims== %%J In ('WMIC CPU Get Name /Value^^|FindStr .') Do echo      \  Model: %%J >> Info.txt
 
echo    /\___________________________________________________________________________________________________________________________________/
 
FOR /F tokens=1* delims== %%A IN ('WMIC CPU Get currentclockspeed /Format:List ^^| FIND =') DO set s=%%~B
echo      \  ClockSpeed: %s% Мгц >> Info.txt
 
echo    /\___________________________________________________________________________________________________________________________________/
 
FOR /F tokens=1* delims== %%A IN ('WMIC CPU Get maxclockspeed /Format:List ^^| FIND =') DO set s=%%~B
echo      \  Max ClockSpeed: %s% Мгц >> Info.txt
 
echo    /\___________________________________________________________________________________________________________________________________/
 
set cachelevel=2
set cachelevelrus=Second
call :cache
set cachelevel=3
set cachelevelrus=Third
call :cache
goto 1
:cache
FOR /F tokens=1* delims== %%A IN ('WMIC CPU Get l%cachelevel%cachesize /Format:List ^^| FIND =') DO set su=%%~B
call :mbgb
if %su% GTR 1024 set /a su=%su%/1000
echo      \  Cash %cachelevelrus% Level: %su% %uu% >> Info.txt
 
echo    /\___________________________________________________________________________________________________________________________________/
 
exit /b
:1
FOR /F tokens=1* delims== %%A IN ('WMIC CPU Get numberofcores /Format:List ^^| FIND =') DO set s=%%~B
FOR /F tokens=1* delims== %%A IN ('WMIC CPU Get numberoflogicalprocessors /Format:List ^^| FIND =') DO set ss=%%~B
echo      \  Cores: %s% >> Info.txt
 
echo    /\___________________________________________________________________________________________________________________________________/
 
echo      \  Flowes: %ss% >> Info.txt
 
echo      \___________________________________________________________________________________________________________________________________/
echo. >> Info.txt
echo. >> Info.txt
echo. >> Info.txt
0
0 / 0 / 0
Регистрация: 06.05.2015
Сообщений: 5
13.05.2015, 17:20  [ТС]
2 часть

Windows Batch file
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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193

:VideoCard
 
 
Echo   __________________________________________________________________________________________________________________________________________  >> Info.Txt
echo  /                                                      \   VideoCard   /                                                                   \ >> Info.Txt
Echo  \                                                       \_____________/                                                                    / >> Info.txt
echo   \________________________________________________________________________________________________________________________________________/ >> Info.txt
echo     /                                                                                                                                    \ >> Info.txt >> Info.txt
 
cls
 
Echo Videocard...
 
set /a numik=0
FOR /F tokens=1* delims== %%A IN ('WMIC Path Win32_VideoController get AdapterRAM /Format:List ^^| FIND =') DO set s=%%~B & call :vdo
goto 2
:vdo
set /a numik=%numik%+1
set /a sss=%s%/1024/1024
echo      \  Adapter RAM (%numik%): %sss% Мб >> Info.txt
 
echo    /\___________________________________________________________________________________________________________________________________/
 
exit /b
:2
set /a num=0
for /F tokens=1* delims== %%A IN ('WMIC Path Win32_VideoController get Name /Format:List ^^| FIND =') DO set s=%%~B & call :vdol
goto 3
:vdol
set /a num=%num%+1
echo      \  Model (%num%): %s% >> Info.txt
 
echo    /\___________________________________________________________________________________________________________________________________/
 
exit /b
:3
for /F tokens=2 delims== %%A IN ('WMIC Path Win32_VideoController get currenthorizontalresolution /Format:List ^^| FIND =') DO call :hor %%A
:hor
if not %~1== set hh=%~1
for /F tokens=2 delims== %%A IN ('WMIC Path Win32_VideoController get currentverticalresolution /Format:List ^^| FIND =') DO call :ver %%A
:ver
if not %~1== set vv=%~1
echo      \  Resolution: %hh% x %vv% >> Info.txt
 
echo      \___________________________________________________________________________________________________________________________________/
echo. >> Info.txt
echo. >> Info.txt
echo. >> Info.txt
 
 
 
:SoundCard
 
 
Echo   __________________________________________________________________________________________________________________________________________  >> Info.Txt
echo  /                                                      \   SoundCard   /                                                                   \ >> Info.Txt
Echo  \                                                       \_____________/                                                                    / >> Info.txt
echo   \________________________________________________________________________________________________________________________________________/ >> Info
echo     /                                                                                                                                    \ >> Info.txt
cls
 
Echo SoundCard...
 
set /a num=0
FOR /F tokens=1* delims== %%A IN ('WMIC sounddev get Name /Format:List ^^| FIND =') DO set s=%%~B & call :vdol
goto 3
:vdol
set /a num=%num%+1
echo      \  Model (%num%): %s% >> Info.txt
echo    /\___________________________________________________________________________________________________________________________________/
 
exit /b
:3
 
echo      \___________________________________________________________________________________________________________________________________/
echo. >> Info.txt
echo. >> Info.txt
echo. >> Info.txt
 
 
 
:RAM
 
 
Echo   __________________________________________________________________________________________________________________________________________  >> Info.Txt
echo  /                                                      \      RAM      /                                                                   \ >> Info.Txt
Echo  \                                                       \_____________/                                                                    / >> Info.txt
echo   \________________________________________________________________________________________________________________________________________/ >> Info.txt
echo     /                                                                                                                                    \ >> Info.txt
 
cls
 
Echo RAM...
 
set /a num=0
FOR /F tokens=1* delims== %%A IN ('WMIC memorychip get capacity /Format:List ^^| FIND =') DO set s=%%~B & call :vdols
goto 33
:vdols
set /a num=%num%+1
echo      \  Slot (%num%): %s% byte >> Info.txt
 
echo    /\___________________________________________________________________________________________________________________________________/
 
exit /b
:33
FOR /F tokens=1* delims== %%A IN ('WMIC os get totalvisiblememorysize /Format:List ^^| FIND =') DO set su=%%~B & call :vdod
goto 4
:vdod
call :mbgb
goto after
:mbgb
if %su% LSS 1 (set uu=б) else if %su% LSS 1024 (set uu=Кб) else if %su% GTR 1024 set uu=Мб
exit /b
:after
set /a sss=%su%/1024
echo      \  Free: %sss% %uu% >> Info.txt
 
echo    /\___________________________________________________________________________________________________________________________________/
 
exit /b
:4
for /F tokens=2 Delims== %%J In ('WMIC memphysical get memorydevices /Value^^|FindStr .') Do echo      \  Only: %%J >> Info.txt
 
echo      \___________________________________________________________________________________________________________________________________/
echo. >> Info.txt
echo. >> Info.txt
echo. >> Info.txt
 
 
 
:Devices
 
 
Echo   __________________________________________________________________________________________________________________________________________  >> Info.Txt
echo  /                                                      \    Devices    /                                                                   \ >> Info.Txt
Echo  \                                                       \_____________/                                                                    / >> Info.txt
echo   \________________________________________________________________________________________________________________________________________/ >> Info.txt
echo     /                                                                                                                                    \ >> Info.txt
 
cls
chcp 1251 >NUL
Echo Devices...
For /F tokens=2 Delims== %%J In ('WMIC cdrom get id /Value^^|FindStr .') Do (
echo      \  %%J >> Info.txt
echo    /\___________________________________________________________________________________________________________________________________/
)
 
For /F tokens=2 Delims== %%J In ('WMIC cdrom get volumename /Value^^|FindStr .') Do (
echo      \      %%J >> Info.txt
echo    /\___________________________________________________________________________________________________________________________________/
)
 
echo      \___________________________________________________________________________________________________________________________________/
echo. >> Info.txt
echo. >> Info.txt
echo. >> Info.txt
:Internet
Echo   __________________________________________________________________________________________________________________________________________  >> Info.Txt
echo  /                                                      \    Internet   /                                                                   \ >> Info.Txt
Echo  \                                                       \_____________/                                                                    / >> Info.txt
echo   \________________________________________________________________________________________________________________________________________/ >> Info.txt
echo     /                                                                                                                                    \ >> Info.txt
cls
Echo Internet...
FOR /F usebackq tokens=2 delims=[] %%i IN (`ping %Computername% -n 1 -4`) DO if not %%i== Set ip=%%i
echo      \  Ip: %ip% >> Info.txt
echo      \___________________________________________________________________________________________________________________________________/
echo. >> Info.txt
echo. >> Info.txt
echo. >> Info.txt
:Programs
Echo   __________________________________________________________________________________________________________________________________________  >> Info.Txt
echo  /                                                   \  Installed Programs  /                                                               \ >> Info.Txt
Echo  \                                                    \____________________/                                                                / >> Info.txt
echo   \________________________________________________________________________________________________________________________________________/ >> Info.txt
echo     /                                                                                                                                    \ >> Info.txt
cls
Echo Installed Programs...
setlocal enableextensions enabledelayedexpansion
>nul chcp 1251
for /f usebackq delims= %%i in (
    `reg.exe query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall`
) do for /f usebackq tokens=3* %%j in (
        `reg.exe query %%~i /v DisplayName 2^>nul ^^| find.exe /i DisplayName`) do (
echo      \  %%~j %%k >> Info.txt
echo    /\___________________________________________________________________________________________________________________________________/
)
>nul chcp 866
endlocal
echo      \___________________________________________________________________________________________________________________________________/
echo. >> Info.txt
:exit
exit
0
0 / 0 / 0
Регистрация: 06.05.2015
Сообщений: 5
13.05.2015, 17:45  [ТС]
Из-за чего?

Добавлено через 4 минуты
Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

 
  __________________________________________________________________________________________________________________________________________  
 /                                                      \     Bios      /                                                                   \ 
 \                                                       \_____________/                                                                    / 
  \________________________________________________________________________________________________________________________________________/ 
    /                                                                                                                                    \ 
    \  Name: ...                                     
    /\___________________________________________________________________________________________________________________________________/
    \  Model: ... 
     \___________________________________________________________________________________________________________________________________/
 
 
 
  __________________________________________________________________________________________________________________________________________  
 /                                                      \    Windows    /                                                                   \ 
 \                                                       \_____________/                                                                    / 
  \________________________________________________________________________________________________________________________________________/ 
    /                                                                                                                                    \ 
    \  Name: ...                                     
    /\___________________________________________________________________________________________________________________________________/
    \  Model: ... 
     \___________________________________________________________________________________________________________________________________/
Вот примерно так должен выглядеть info.txt
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 13.05.2015, 17:45
Помогаю со студенческими работами здесь

Найти синтаксическую ошибку в коде
Здравствуйте, уважаемые программисты, не могли бы вы мне помочь? У меня проблема с объявлением экземпляра класса Dim. Простите, если...

Найти синтаксическую ошибку в коде
написал программу, а после ее компиляции пишет ошибку и перекидывает на системный файл #include <stdio.h> #include...

Найти синтаксическую ошибку в коде
вот набираю программ и ошибка выскакивает

Исправить синтаксическую ошибку в коде
Ребят я не могу разобраться,он просит точку с запятой после object,в чем беда не знаю ;( uses GraphABC,Crt; type Tmesto=Object...

Исправить синтаксическую ошибку в коде добавления записи в БД
Подскажите пожалуйста что за ошибка? SqlDataSource5.InsertCommand = "Insert into...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru