�������ł́A�f���ŏo���ꂽ����𒆐S�ɁAWSH�Ŏg����l�X�ȃe�N�j�b�N���Љ�Ă��������Ǝv���܂��B
���R�[�h���VBS�ŏ����܂��B
��Shell�I�u�W�F�N�g�𗘗p�����X�N���v�g�́AIE4���V�F���������[�h�ŃC���X�g�[������Ă���Win95,NT4���邢��Win98,Win2000,ME,XP�łȂ��Ɠ��삵�܂���B
��WSH2.0���Ȃ��Ɠ��삵�Ȃ����̂�����܂��B
������Windows�e�N�j�b�N�W�ł�����(��)
�X�N���v�g����I�v�V���������߂���
�@�X�N���v�g����A�v���P�[�V�������N������ɂ́A���̂悤��WshShell�I�u�W�F�N�g��Run���\�b�h���g�p���܂��B�I�v�V���������ʂɎw��ł��܂��B(������VBS�œ��ʂȈӖ������L�����g���Ƃ��͒��ӂ��܂��傤)
'�����������s����� Set WSHShell = WScript.CreateObject("WScript.Shell") WSHShell.Run "C:\Windows\notepad.exe"
�@�t�@�C�����֘A�Â��ɂ��������Ď��s���邱�Ƃ��ł��܂��B�p�X�̒ʂ����t�H���_�ɂ���t�@�C���Ȃ�A�t�H���_���ȗ����ċL�q�ł��܂��B
'�e�L�X�g�t�@�C�����J���� Set WSHShell = WScript.CreateObject("WScript.Shell") WSHShell.Run "tips.txt"
�@�E�B���h�E�̍ő剻�E�ŏ����Ȃǂ��w�肷�邱�Ƃ��ł��܂��B�܂��A�N�������A�v���̏I����҂��Ă��玟�̓�������s�����邱�Ƃ��\�ł��B�ڂ�����Lesson�E�I�u�W�F�N�g������������������B
�@�������A������̏ꍇ���X�y�[�X���܂܂ꂽLFN(�����O�t�@�C���l�[��)�͎g���܂���(�t�@�C�����Ȃ��A�Ƃ����G���[�ɂȂ�)�BLFN���g�������ꍇ�́A���̂悤�ɂ��܂��B
Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run """C:\Program Files\Internet Explorer\IEXPLORE.EXE""" '�_�u���N�H�[�e�[�V�����ł�����B��ڂ́u"�v�͕������\���A���́u""�v�͕����ł́u"�v�ƒu����������B '���������āADOS�v�����v�g�Ƃ���LFN�����s����Ƃ��u"�v�ł�����̂ƌ����͓����B
Set WshShell = WScript.CreateObject("WScript.Shell") Set Fs = WScript.CreateObject("Scripting.FileSystemObject") WshShell.Run Fs.GetFile("C:\Program Files\Internet Explorer\IEXPLORE.EXE").ShortName '�܂��A����Ȏ������Ƃ������炢�Łc�B
�@Shell�I�u�W�F�N�g���g���Ă��\�ł��B
Set Win = WScript.CreateObject("Shell.Application") Const filename="C:\Windows\notepad.exe" Win.NameSpace(filename).ParentFolder.ParseName(Win.NameSpace(filename).Title).InvokeVerb '���������N��
�@DOS�p�A�v�����N��������ɂ́A��ʂ�̕��@������܂��B
1.���̂܂��s������B
WSHShell.Run�ɂ��̃A�v���̃p�X���w�肷��B���s�����ďI�������DOS�v�����v�g�������I�ɕ���A�v���ɗL���B
2.command.com������s������B
���s�����ďI�������Ă�DOS�v�����v�g�����Ȃ��\�t�g�̏ꍇ��o�b�`�t�@�C�������s������ɂ́A/c�I�v�V����������command.com�𗘗p����Bpif�t�@�C���̃v���p�e�B�Ɂu�v���O�����I�����ɃE�B���h�E�����v�ݒ�����Ă����ƁA1.�̕��@�ł������B�܂��Acommand.com�����R�}���h(dir�Ȃ�)�����s�����邱�Ƃ��\�B
WSHShell.Run"command.com /c dosapp.com"
�@Windows���I���E�ċN��������ɂ́Arundll.exe���g���܂��B�X�^���o�C�ɂ�IE4�̃V�F�������@�\���g���܂��B�ȉ��̕��@�̂����������́AWin95�ł͎��s�ł��܂���B
�d�����I�t�ɂ���(�ȉ��̂ǂ���ł��ǂ�)
Set WSHSHell=CreateObject("WScript.Shell") WSHShell.Run "C:\WINDOWS\RUNDLL32.EXE Shell32.dll,SHExitWindowsEx 1"
Set WSHSHell=CreateObject("WScript.Shell") WSHShell.Run "C:\WINDOWS\RUNDLL.EXE USER.EXE,ExitWindows"
�}�V���̍ċN��
Set WSHSHell=CreateObject("WScript.Shell") WSHShell.Run "C:\WINDOWS\RUNDLL32.EXE Shell32.dll,SHExitWindowsEx 2"
Windows�̍ċN��
Set WSHSHell=CreateObject("WScript.Shell") WSHShell.Run "C:\WINDOWS\RUNDLL.EXE USER.EXE,ExitWindowsExec"
���O�I�t
Set WSHSHell=CreateObject("WScript.Shell") WSHShell.Run "C:\WINDOWS\RUNDLL32.EXE Shell32.dll,SHExitWindowsEx 0"
�T�X�y���h(�X�^���o�C)
Set Win = CreateObject("Shell.Application") Win.Suspend
����̓V���b�g�_�E���̃_�C�A���O���o��^�C�v�B�X�^�[�g���j���[����I������̂Ɠ����ł��B
Set Win =CreateObject("Shell.Application") Win.ShutdownWindows
�@�R���g���[���p�l�������s������ɂ́A����3�̕��@������܂��B�J���^�u��I�ׂ�̂ŁA1���������߁B3.�͑��̕��@�ŊJ���Ȃ����̂ɓK�p����Ƃ����ł��傤�B
1.control.exe���g��
'�u��ʂ̃v���p�e�B�v��\�� Set WSHShell = WScript.CreateObject("WScript.Shell") WSHShell.Run "control.exe desk.cpl"
'�u�V�X�e���̃v���p�e�B�v�́u�f�o�C�X�}�l�[�W���v�^�u���J���B�w�肷�鐔�l�̓^�u�̏���-1 Set WSHShell = WScript.CreateObject("WScript.Shell") WSHShell.Run "control.exe sysdm.cpl ,1"
2.Shell�I�u�W�F�N�g���g��
'�u�n��̃v���p�e�B�v��\�� Set Win = WScript.CreateObject("Shell.Application") Win.ControlPanelItem "intl.cpl"
3.Shell�I�u�W�F�N�g���g���@����2
�@���̕��@���ƁAcpl�t�@�C�����w�肷�邾���ł͊J���Ȃ����̂��J���܂��B
'�u�}�E�X�̃v���p�e�B�v��\�� Set Win = WScript.CreateObject("Shell.Application") For Each objItem In Win.NameSpace(3).Items If objItem.Name="�}�E�X" Then objItem.InvokeVerb Next
4.rundll32.exe���g��
'�u�A�v���P�[�V�����̒lj��ƍ폜�̃v���p�e�B�v��\�� Set WSHShell = WScript.CreateObject("WScript.Shell") WSHShell.Run "rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl"
�@�Ώۂ����肳��܂����A�ȉ��̂悤�ȊJ����������܂��B
Set Win = WScript.CreateObject("Shell.Application") Win.SetTime '���t�Ǝ����̃v���p�e�B�\�� Win.TrayProperties '�^�X�N�o�[�̃v���p�e�B�\��
�@�G�N�X�v���[���œ���t�H���_(�}�C�R���s���[�^�Ȃ�)���J���ɂ́A�ȉ��̂悤�ȕ��@������܂��B
1.Shell�I�u�W�F�N�g���g��
�@Shell�I�u�W�F�N�g��Open���\�b�h�AExplore���\�b�h���g���܂��B���ꂼ��̃��\�b�h�Ɏw�肷�����(�t�H���_�̎��)�Ɋւ��ẮA�I�u�W�F�N�g�̉�����������������B
Set Win = WScript.CreateObject("Shell.Application") Win.Open 17 '�}�C�R���s���[�^���J�� Win.Explore 0 '�f�X�N�g�b�v���G�N�X�v���[���`���ŊJ��
�@�Ȃ��A���ʂ̃t�H���_�́A�����Ƀp�X���w�肷��Ε��ʂɊJ���܂��B
2.explorer.exe���g��
�@WshShell�I�u�W�F�N�g��Run���\�b�h�ŁAexplorer.exe�����s���܂��B
Set WSHShell = WScript.CreateObject("WScript.Shell") WSHShell.Run "explorer.exe /select,""::{20D04FE0-3AEA-1069-A2D8-08002B30309D}""" '�f�X�N�g�b�v���J�� WSHShell.Run "explorer.exe /e,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}" '�R���g���[���p�l�����G�N�X�v���[���`���ŊJ��
�@���ɂ��A�ȉ��̂悤�ȓ���t�H���_���J�����Ƃ��ł��܂��B
�_�C�����A�b�v�l�b�g���[�N
::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{992CFFA0-F557-101A-88EC-00DD010CCC48}
�v�����^
::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{2227A280-3AEA-1069-A2DE-08002B30309D}
�^�X�N
::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{D6277990-4C6A-11CF-8D87-00AA0060F5BF}
�@������ʂ̃t�H���_���J�����Ƃ��ł��܂��B
Set WSHShell = WScript.CreateObject("WScript.Shell") WSHShell.Run "explorer.exe C:\Program Files" 'Program Files���J�� 'WSHShell.Run "C:\Progra~1" '�t�H���_���J�������Ȃ炱�̂悤��Run���\�b�h�̈����Ƀp�X�����������ł��ǂ����A���̏ꍇ���̂�LFN�͎g���Ȃ��̂Œ��ӁB
�@�Ƃ���ŁA�}�C�h�L�������g�t�H���_��A�C���^�[�l�b�g�̃L���b�V���t�H���_�ȂǁA�ݒ����ɂ���ďꏊ���ς��t�H���_�Ɋւ��ẮA���ڃp�X���w�肵�Ă������ł���(C:\My Documents�AC:\Windows\Tempor~1 etc)�AWshSpecialFolders�I�u�W�F�N�g��W�X�g���̒l���Q�Ƃ��邱�ƂŁA���ėp�I�ȃX�N���v�g�ɂ��邱�Ƃ��ł��܂��B���̕��@�ɂ��Ă�Lesson���Q�Ƃ��Ă��������B
3.shell:�X�L�[�}��URI(?)�𗘗p����[Win2000]
�@Windows2000����ł����Ashell:�Ƃ�������ȃX�L�[�}(?)�Ŏw�肳�ꂽURI��Run���Ă�邱�Ƃł��\�ł��B
Set WSHShell = WScript.CreateObject("WScript.Shell") WSHShell.Run "shell:DriveFolder" '�}�C�R���s���[�^���J�� WSHShell.Run "shell:Common Administrative Tools" '�u�Ǘ��c�[���v���J��
URI�ꗗ | |||
---|---|---|---|
shell:Common Administrative Tools | shell:Administrative Tools | shell:SystemX86 | shell:My Pictures |
shell:Profile | shell:CommonProgramFiles | shell:ProgramFiles | shell:System |
shell:Windows | shell:History | shell:Cookies | shell:Local AppData |
shell:AppData | shell:Common Documents | shell:Common Templates | shell:Common AppData |
shell:Common Favorites | shell:Common Desktop | shell:Common Menu | shell:Common Programs |
shell:Common Startup | shell:Templates | shell:PrintHood | shell:NetHood |
shell:Favorites | shell:Personal | shell:SendTo | shell:Recent |
shell:Menu | shell:Programs | shell:Startup | shell:Desktop |
shell:Fonts | shell:ConnectionsFolder | shell:RecycleBinFolder | shell:PrintersFolder |
shell:ControlPanelFolder | shell:InternetFolder | shell:DriveFolder | shell:NetworkFolder |
shell:DesktopFolder |
�@�E�B���h�E�̐���������Ȃ��ɂ́AShell�I�u�W�F�N�g�̊e���\�b�h���g���܂��B���̗�́A�S�E�B���h�E���ŏ���������̂ł��B���̗�̓R�����g�A�E�g���Ă��܂��B
Set Win = WScript.CreateObject("Shell.Application") Win.MinimizeAll '�S�E�B���h�E���ŏ��� 'Win.UndoMinimizeALL '�E�B���h�E��������ɂ��ǂ� 'Win.TileVertically '�E�B���h�E�����E�ɕ��ׂĕ\�� 'Win.TileHorizontally '�E�B���h�E���㉺�ɕ��ׂĕ\�� 'Win.CascadeWindows ' �E�B���h�E���d�˂ĕ\��
�@�ɉ����āA�S�E�B���h�E���ŏ����E���ɖ߂��̂ǂ��炩�����s������ɂ́A�uWindows�G�N�X�v���[���R�}���h�v�́u�f�X�N�g�b�v��\���v���g���܂��B�]�k�ł����A���́uWindows�G�N�X�v���[���R�}���h�v�̎d�l���Č��J����Ă���̂ł��傤��?
Set WSHShell = WScript.CreateObject("WScript.Shell") WSHShell.Run "C:\WINDOWS\SYSTEM\�f�X�N�g�b�v�̕\��.scf"
�@�G�N�X�v���[���Ńt�@�C���E�t�H���_���E�N���b�N�����Ƃ��̃��j���[��WSH������s������ɂ́A�ȉ���2�ʂ�̕��@������܂��B
1.���W�X�g���̒l��ǂ�
�@�E�N���b�N���j���[�̓��e�́A���W�X�g���Ɋi�[����Ă��܂��B�ȉ��́A���W�X�g���̒l��ǂݍ��݁A���s������Sub�v���V�[�W���ƁA���̗��p��ł��B���\���G�ȏ��������Ă���̂ŁA��͂��Ă݂�̂��ʔ�����������܂���B���W�X�g���ŁA�ǂ̂悤�Ƀt�@�C���^�C�v���L�q����Ă��邩��m���Ă��Ȃ��Ɩ����ł���(^^;
'RunSubMenu�T���v���X�N���v�g msg=MsgBox ("autoexec.bat���ő剻�ɂ��ă������ŊJ���܂��B",vbOkCancel,"RunSubMenu�̃e�X�g") If msg=vbOk Then RunSubMenu "C:\autoexec.bat","edit","",3,True msg=MsgBox ("command.com�����s���A�J�����g�f�B���N�g����C:\�ɂ��܂��B",vbOkCancel,"RunSubMenu�̃e�X�g") If msg=vbOk Then RunSubMenu "C:\command.com","open","/k cd c:\",1,True msg=MsgBox ("Windows�t�H���_��tips.txt��������܂��B",vbOkCancel,"RunSubMenu�̃e�X�g") If msg=vbOk Then RunSubMenu "C:\Windows\tips.txt","print","",1,False '************************************************************************************* ' Sub�v���V�[�W����: RunSubMenu ' �p�r: �w�肵���t�@�C���ɑ��A�w�肵���A�N�V���������s����B ' ���l: strFileName:�t�@�C�����������̓t�H���_���B�t���p�X�Ŏw��B ' strAction:�A�N�V�������Bedit�Aprint�Aopen�Aplay�ȂǁB ' �t�@�C���^�C�v�ɂ���Ď�ނ��قȂ�B ' strOption:�R�}���h���C���I�v�V�������w��B ' intWindowStyle:1=�ʏ�A2=�ŏ����A3=�ő剻 ' blnWaitOnReturn:True=���s��҂��Ă��玟�̃X�e�[�g�����g�ɂ����� ' False=���s��҂����Ɏ��̃X�e�[�g�����g�ɂ����� ' �߂�l: �Ȃ� ' ����: �t�@�C������%1�A�I�v�V������%*�Ǝw�肳��Ă���ꍇ�ȊO�ł͓��삵�Ȃ��B '************************************************************************************* Sub RunSubMenu(strFileName,strAction,strOption,intWindowStyle,blnWaitOnReturn) On Error Resume Next Dim WSHShell,Fs,ext,extkey,extdata,extcommand Set WSHShell = WScript.CreateObject("WScript.Shell") Set Fs=WScript.CreateObject("Scripting.FileSystemObject") If Fs.FileExists(strFileName)=True Then ext=Fs.GetExtensionName(strFileName) extkey="HKCR\." & ext & "\" extdata=WSHShell.RegRead (extkey) ElseIf Fs.FolderExists(strFileName)=True Then extdata="Folder" Else Exit Sub End If extcommand=WSHShell.RegRead ("HKCR\" & extdata & "\Shell\" & strAction & "\command\") extcommand=Replace (extcommand,"%1",strFileName) extcommand=Replace (extcommand,"%*",strOption) WSHShell.Run extcommand,intWindowStyle,blnWaitOnReturn Err.Clear End Sub
2.Shell�I�u�W�F�N�g���g��
�@Shell�I�u�W�F�N�g���g���ƁA�Ȃ��Ȃ��G���K���g�Ȏd�オ��ł��B�ȉ��́AWindows�t�H���_�ɂ���tips.txt����������ł��B�R�����g�A�E�g���Ă���s�́AProgram
Files�t�H���_�̌��������s�����ƁA���ݔ�����ɂ����ł��B
�@InvokeVerb���\�b�h�Ɏw�肷������́A��{�I�ɉE�N���b�N���j���[�ŕ\���������̂Ɠ����ł����A���Ƃ��A���(P)�̂悤�ɃA�N�Z�X�L�[���w�肳��Ă�����̂Ɋւ��ẮA���(&P)�̂悤�ɂ��āA�A�N�Z�X�L�[�̑O��&�����܂��B
�@�t�@�C���ƃt�H���_�ł́A���s�̎d�����قȂ�̂Œ��ӂ��Ă��������B
�@���̃X�N���v�g�����͌��\���G�ł��BShell�I�u�W�F�N�g�AFolder�I�u�W�F�N�g�AFolderItems�R���N�V�����AFolderItem�I�u�W�F�N�g����g���Ă��܂��B�ڂ����́A�I�u�W�F�N�g�̉�����������������B
Const filename="C:\Windows\tips.txt" Set Win = WScript.CreateObject("Shell.Application") Win.NameSpace(filename).ParentFolder.ParseName(Win.NameSpace(filename).Title).InvokeVerb "���(&P)" 'tips.txt����� 'Win.NameSpace("c:\progra~1").Items.Item.InvokeVerb "����(&F)..." 'Const ssfBITBUCKET = 10 '���ݔ���\���萔�B���̓���t�H���_�̒萔�ɂ��Ă��I�u�W�F�N�g�̉�����������������B 'Win.NameSpace(ssfBITBUCKET).Items.Item.InvokeVerb "���ݔ�����ɂ���(&B)"
�X�N���v�g����I�v�V���������߂���
�@�X�N���v�g����A�X�N���v�g�ɗ^����ꂽ�R�}���h���C���I�v�V���������߂���ɂ́AWshArguments�I�u�W�F�N�g��p���܂��B���Ƃ��A/s�I�v�V����������A���b�Z�[�W�{�b�N�X��\�����Ȃ��ŏ���������悤�ɂ���ɂ́A�ȉ��̂悤�ɂ��܂��B�ȉ��̃X�N���v�g���ADOS�v�����v�g��u�t�@�C�������w�肵�Ď��s�v�ŁA/s�I�v�V���������Ď��s���Ă݂Ă��������B
Dim silent Set WshShell = WScript.CreateObject("WScript.Shell") Set arg= WScript.Arguments If arg.Count>0 Then If arg.Item(0)="/s" Then silent=True Else silent=False End If End If '����..... If silent=False Then MsgBox "����"
�@WSH2.0���ƁA�t�@�C���E�t�H���_���X�N���v�g�t�@�C���Ƀh���b�O�A���h�h���b�v���邱�ƂŁA���̃p�X���Q�Ƃ��邱�Ƃ��ł��܂��B�ȉ��́A�����t�@�C�����h���b�v����ƁA���̍��v�T�C�Y��\������X�N���v�g�ł��B���̃X�N���v�g�́A�ʂ�WSH1.0�ł����s�ł��܂����A�t�@�C�������w�肷��̂��ʓ|�ł��ˁB
Dim sz,fn,foln Set WshShell = WScript.CreateObject("WScript.Shell") Set Fs = WScript.CreateObject("Scripting.FileSystemObject") Set arg= WScript.Arguments sz=0 : fn=0 : foln=0 If arg.Count>0 Then For Each I In arg If Fs.FileExists(I) Then sz=sz+Fs.GetFile(I).Size fn=fn+1 ElseIf Fs.FolderExists(I) Then sz=sz+Fs.GetFolder(I).Size foln=foln+1 End If Next End If MsgBox fn & "�̃t�@�C���A" & foln & "�̃t�H���_�A���v��" & sz & "�o�C�g"
�@�Ȃ��AWshArguments�I�u�W�F�N�g�̏ڍׂ́ALesson���������������B
�@���̂悤�ȃX�N���v�g�����s������ƁA�������[�v�Ɋׂ��āA�i���ɏI�����Ȃ��Ȃ��Ă��܂��܂��B
Do a=a+1 Loop
�Ӑ}�I�ɂ���ȃX�N���v�g�͏����Ȃ��ł��傤���A�l�ԒN�ɂł��~�X�͂���܂��B��������Ȗ������[�v�Ɋׂ����ꍇ�ɂ͂ǂ�����悢�ł��傤���B
�@��ɂ́AWSH�t�@�C���Ŏ��s���Ԃ��w�肵�Ă������@������܂��B(WSH�t�@�C���ɂ��Ă��uWSH������ɂ�?�v���Q��)
���s���Ԃ��w�肵��WSH�t�@�C������X�N���v�g�𗧂��グ��A���Ƃ��X�N���v�g���������[�v���Ă��w�莞�Ԃɂ͂����ƏI�����Ă���܂��B
�@�܂��AWSH�t�@�C�����g��Ȃ������ꍇ���������[�v���~�߂���@������܂��B����́ACtrl+Alt+Del�ŕ\�������A���Ȃ������I���_�C�A���O���g�����@�ł�(Win9X�n)�B�����Ŗ������[�v�Ɋׂ��Ă���X�N���v�g�́uWscript�v�̂悤�ɕ\������Ă���Ǝv���܂��̂ŁA�������狭���I�������Ă�邱�Ƃ��ł��܂��B�ł����̕��@�ɂ͈��肪����܂��āA���Ƃ��Ύ��̂悤�ȃX�N���v�g
Do msgbox "����ɂ���",,"��������" Loop
�̂悤�Ȗ������[�v���~�߂�̂�����̂ł��B���ۂɂ���Ă݂�Ƃ킩��܂���(�ł����Ȃ����������ł���)�A�����I���_�C�A���O�ŁA�����ɕ\������郁�b�Z�[�W�{�b�N�X�̃^�C�g��(��̗�Ȃ�u�������v)��I�����āu�I���v�������Ă��A���b�Z�[�W�{�b�N�X�͈�u���邾���ł܂������悤�ɕ\������Ă��܂��܂��B
�@���̏ꍇ�́A�܂����b�Z�[�W�{�b�N�X����āA���̏u��Ctrl+Alt+Del�������A���܂��^�C�~���O�����������I���_�C�A���O�Ƀ��b�Z�[�W�{�b�N�X�̃^�C�g���ł͂Ȃ��uWscript�v�ƕ\�������ꍇ������܂��B���������uWscript�v��I�����āu�I���v�������A�����I�������邱�Ƃ��ł��܂��B���̃^�C�~���O������̂ł��B
�@����ɋ����I���_�C�A���O�����x���o�����肷��̂͂���ł���ˁB�肪�����ăV���b�g�_�E�����邩������Ȃ����c�B�܂��A���s������O�ɂ悭�X�N���v�g�����������Ă��ƂɂȂ�܂����ˁB
�@�Ȃ��AWinXP��2000�ł́u�^�X�N�}�l�[�W���v���g����wscript.exe��������cscript.exe�̃v���Z�X���I�������邱�Ƃ��ł��܂��B