����̓��W�X�g���𑀍삷�郁�\�b�h�̂ق��A�C�x���g�E���O�̋L�^����ϐ��̓W�J�A�|�b�v�A�b�v�E�E�B���h�E�\���̂��߂̃��\�b�h�ɂ��ĉ���B
�@����́A�O���Ɉ���������WshShell�I�u�W�F�N�g�̃����o�i���\�b�h�^�v���p�e�B�j�ɂ��ĉ������B�@�O��Ɉ���������WshShell�I�u�W�F�N�g�̃����o�ƁA���ꂩ��h������I�u�W�F�N�g�̃����o���L�����I�u�W�F�N�g�E���f���}�������Ɏ����B����͈ȉ��̐Ԃ����Ŏ����������o�ɂ��Ď��グ��B
�@���W�X�g����Windows��A�v���P�[�V�����̐ݒ��i�[���ꂽ�t�@�C���ł���A�ݒ���OS��A�v���P�[�V�����ɂ���ď������܂�A�K�v�ɉ����ĎQ�Ƃ����B���[�U�[�����W�X�g���ڕҏW���邱�Ƃ͒ʏ�͂Ȃ������A��������ɂ�����ƃV�X�e�����j��Ă��܂��댯���������̂łł���Δ����������悢�B�����A�ǂ����Ă��K�v�ȏꍇ�̓��W�X�g���E�G�f�B�^�Ȃǂʼn{���A�l�̏������݂�ύX���s���B���̏ꍇ�A�������W�X�g��������J��Ԃ��s���K�v������̂Ȃ�A�X�N���v�g�ōs�������������I�ł��邵�A�ԈႢ�̔��������点��BWSH�iWindows Script Host�j�ł̓��W�X�g������̂��߂̃��\�b�h�Ƃ��āAWshShell�I�u�W�F�N�g�ɁA���W�X�g���̒l��ǂݍ��ށuRegRead���\�b�h�v�A���W�X�g���ɒl���������ށuRegWirte���\�b�h�v�A���W�X�g���̒l���폜����uRegDelete���\�b�h�v��3�̃��\�b�h���p�ӂ���Ă���B����͂����̎g�����ɂ��Đ�������B�Ȃ��A��قǂ��q�ׂ��悤�Ƀ��W�X�g���̑���̓V�X�e����ݒ��j�Ă��܂��댯�������̂ŁA�T���v�������s����ۂ͏\�����ӂ��Ă������������B
���A�ږڎ�
��1�� WSH���n�߂悤
��2�� VBScript��{�i1�j������̓��o��
��3�� VBScript��{�i2�j�v�Z�ƕ���
��4�� �����g�����Ȃ��F������A���l�A���t
��5�� �f�[�^�^�ɂ��ė�����[�߂悤
��6�� VBScript�̔z����ɂ߂�
��7�� Sub�v���V�[�W���ŏ������`
��8�� Function�v���V�[�W���Ŋ����`
��9�� VBScript�̃I�u�W�F�N�g���g�����Ȃ�
��10�� WScript�I�u�W�F�N�g�i1�j
��11�� WScript�I�u�W�F�N�g�i2�j
��12�� WshShell�I�u�W�F�N�g�i1�j
��13�� WshShell�I�u�W�F�N�g�i2�j
��14�� WshShell�I�u�W�F�N�g�i3�j
��15�� WshNetwork�I�u�W�F�N�g
��16�� FileSystemObject�I�u�W�F�N�g�i1�j
��17�� FileSystemObject�I�u�W�F�N�g�i2�j
��18�� FileSystemObject�I�u�W�F�N�g�i3�j
��19�� TextStream�^Dictionary�I�u�W�F�N�g
�@���W�X�g����ǂݍ���RegRead���\�b�h���������O�ɁA���W�X�g���̍\�����ȒP�ɐ������Ă������B���W�X�g���̓t�@�C���E�V�X�e���Ɠ��l�ɁA�c���[��̍\���������Ă���B�t�@�C���E�V�X�e���ł����Ƃ���̃t�H���_�ɓ�������́i�m�[�h�j�����W�X�g���E�L�[�i�P�ɃL�[�Ƃ������j�Ƃ����A���̒��ɁA�t�@�C���E�V�X�e���ł����Ƃ���̃t�@�C���ɓ����郌�W�X�g���E�G���g���i�P�ɃG���g���Ƃ������j����сA�T�u�t�H���_�ɓ����郌�W�X�g���E�T�u�L�[�i�P�ɃT�u�L�[�Ƃ������B�e�L�[�ɑ��ăT�u�L�[�Ƃ����e�q�W������j���܂܂�Ă���B���W�X�g���E�G�f�B�^�iregedit.exe�j�����s���Ă݂�ƁA���y�C���ɃL�[���A�E�y�C���ɃG���g�����\�������B�G�N�X�v���[���Ɠ��l�̃C���^�[�t�F�C�X�ł���B
�@�L�[�̃��[�g�i�t�@�C���E�V�X�e���̃h���C�u�ɑ����j�͎��̂悤�Ȃ��̂����݂���B
���[�g�E�L�[�� | �ȗ��� | ���e |
---|---|---|
HKEY_CLASSES_ROOT | HKCR | �t�@�C���E�^�C�v��N���XID�̐ݒ� |
HKEY_CURRENT_USER | HKCU | ���݂̃��[�U�[�ɓK�p�����ݒ� |
HKEY_LOCAL_MACHINE | HKLM | ���ׂẴ��[�U�[�ɓK�p�����ݒ� |
HKEY_USERS | �\ | HKCU�̏����ݒ�Ƃ��ׂẴ��[�U�[�̐ݒ�i�e���[�U�[��HKCU�j |
HKEY_CURRENT_CONFIG | �\ | ���݂̍\���Ɋւ���ݒ� |
���W�X�g���̃��[�g�E�L�[�̎�� |
�@�����̃��[�g�E�L�[�ɁA�L�[�i�T�u�L�[�j�������K�w���݂��Ă���B
�@���ۂ̐ݒ肪�������܂��̂̓L�[�Ɋ܂܂��G���g���ł���B�G���g���́A�u�G���g���̖��O�v�i�u�l�̖��O�v�Ƃ������j�A�u�G���g���̎���v�A�����āu�G���g���̃f�[�^�v�i�u�l�v�Ƃ������j�ō\������Ă���B�G���g���̖��O�̓G���g�����ǂ��������̂ł��邩���������O�ł���A�G���g���̎�ނ̓f�[�^�̎�ނ������A���\�̂悤�Ȏ�ނ�����B�G���g���̃f�[�^�͎��ۂ̐ݒ�l���������܂ꂽ���̂ł���B
�G���g���̎�� | �Ӗ� | VBScript�ł̌^ |
---|---|---|
REG_SZ | ������ | String |
REG_DWORD | ���l | Long |
REG_BINARY | �o�C�i���l�i2�i���̒l�j | Byte�̔z�� |
REG_EXPAND_SZ | �W�J�\�ȕ����� | String |
REG_MULTI_SZ | ������̔z�� | String�̔z�� |
�G���g���̎�ނƂ��̈Ӗ� |
�@�t�@�C���E�V�X�e���ƈႤ�_�́A�L�[�ɂ��l�����݂��邱�Ƃł���B�L�[�̒l�̓��W�X�g���E�G�f�B�^��ł̓G���g���̖��O���u(����)�v�ƕ\������Ă�����̂ł���i�u(����)�v�Ƃ������O�̃G���g�������݂��Ă���킯�ł͂Ȃ��A�����܂ŃL�[�̒l���������̂ł��邱�Ƃɒ��Ӂj�B
�@���āARegRead���\�b�h�͂��̂悤�ȃG���g����L�[�̒l��ǂނ��߂̃��\�b�h�ł���B�ȒP�ȗ���������B�uHKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders�v�L�[�ɂ͓���t�H���_�̃p�X���i�[�����G���g���������܂܂�Ă��邪�i���W�X�g���E�G�f�B�^�Ŏ��ۂɌ��Ă݂邱�Ƃ������߂���j�A�����ł́u���C�ɓ���v�t�H���_�̃p�X���܂uFavorites�v�Ƃ����G���g���̒l���擾���Ă݂悤�B
���t�@�C���FReadFavoritesFolderPath.vbs
Option Explicit
'�I�u�W�F�N�g�ϐ��̐錾��WshShell�I�u�W�F�N�g�̍쐬�B
Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
'�ǂݍ��ރG���g����萔�Ƃ��Đ錾�B
Const REG_FAVORITES = _
"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Favorites"
'RegRead���\�b�h���g���āAFavorites�t�H���_�̏ꏊ�ׂ�B
MsgBox objWshShell.RegRead(REG_FAVORITES)
Set objWshShell = Nothing
�@���̃X�N���v�g�����s����ƁA���̂悤�ȃ��b�Z�[�W�E�{�b�N�X���\�������B
�@���̂悤�ɁA���C�ɓ���t�H���_�̏ꏊ���擾�ł����B
�@RegRead���\�b�h�ŃG���g���̃f�[�^��ǂݍ��ލۂ͈����Ɂu�L�[\�G���g���̖��O�v��^���邱�Ƃ��|�C���g�ł���B�Ȃ��gHKEY_CURRENT_USER�h�̕����͏ȗ����ł���gHKCU�h���g�p���邱�Ƃ��\�ł���B���Ȃ킿�A
Const REG_FAVORITES = _
"HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Favorites"
�Ɗȗ��ɕ\�L���邱�Ƃ��\���B
�@�l�̑��݂���L�[�̒l�i�u(����)�v�l�j��ǂނɂ́ARegRead���\�b�h�̈����Ɂu�L�[\�v�Ƃ����A�L�[�̌��Ɂu\�v���������������^����B�Ⴆ�A�uHKEY_CLASSES_ROOT\.���g���q���v�L�[�ɂ́A���̊g���q�̃t�@�C���E�^�C�v�������l���i�[����Ă���i�֘ATIPS�L���Q�Ɓj�B������擾���Ă݂悤�B�����ł́Avbs�t�@�C���̃t�@�C���E�^�C�v���擾����B
���t�@�C���FReadVBSFileType
Option Explicit
'�I�u�W�F�N�g�ϐ��̐錾��WshShell�I�u�W�F�N�g�̍쐬�B
Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
'vbs�t�@�C���̃t�@�C���E�^�C�v���擾�B
MsgBox objWshShell.RegRead("HKCR\.vbs\")
Set objWshShell = Nothing
�@���̃X�N���v�g�����s����ƁA���̂悤�ȃ��b�Z�[�W�E�{�b�N�X���\�������B
�@����܂ł�REG_SZ�i������j�̒l��ǂޗ�����������A�������REG_DWORD�Ȃǂ̒l���ǂݍ��ނ��Ƃ��ł���BREG_DWORD�̏ꍇ�͌��ʂ�String�^�ł͂Ȃ�Long�^�ŕԂ����Ƃ���ɒ��ӂ��K�v���B�܂��AREG_BINARY��Byte�^�̔z��Ƃ��ĕԂ����̂ŁA�e�v�f���擾����ɂ�For Each�`Next���Ȃǂ��g�����AJoin���Ȃǂ��g���K�v������B�ڂ����͔z������グ����6��uVBScript�̔z����ɂ߂�v���Q�Ƃ��Ă��炢�����BByte�^���l��16�i���ŕ\���������ꍇ��Hex�����g�����Ƃ��o���Ă����Ƃ悢���낤�B
�@�Ȃ��ARegRead���\�b�h�͑��݂��Ȃ��L�[��G���g���������Ɏw�肷��ƃG���[���������邱�Ƃ���A�L�[��G���g���̑��݂��m�F����̂ɂ��g����B����������B
���t�@�C���FCheckReg.vbs
Option Explicit
'�I�u�W�F�N�g�ϐ��̐錾��WshShell�I�u�W�F�N�g�̍쐬�B
Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
Dim strRegEntry
'���݂��Ȃ��L�[���w��B
strRegEntry = "HKEY_CURRENT_USER\Software\Nice boat."
On Error Resume Next
objWshShell.RegRead strRegEntry
If Err.Number = -2147024894 Then
Msgbox strRegEntry & "�Ƃ������W�X�g���E�L�[or�G���g���͂���܂���"
ElseIf Err.Number = 0 Then
Msgbox strRegEntry & "�Ƃ������W�X�g���E�L�[or�G���g���͑��݂��܂�"
End If
Err.Clear
On Error Goto 0
Set objWshShell = Nothing
�@RegRead���\�b�h�����s����A���Ȃ킿�����ɗ^����ꂽ���W�X�g���E�L�[��G���g�������݂��Ȃ��ꍇ�A�G���[�ԍ�-2147024894�̃G���[����������̂ŁA����ŃL�[�^�G���g���̑��݊m�F���ł���B
�����FWshShell�I�u�W�F�N�g�ł́A����L�[�Ɋ܂܂��G���g����T�u�L�[����邱�Ƃ͂ł��Ȃ��B������s���ɂ�WMI���g�p����K�v������B�ڂ����͈ȉ��̃y�[�W�Ȃǂ��Q�Ƃ��Ă������������B
Copyright© Digital Advantage Corp. All Rights Reserved.