logical　error :アーカイブ

Google

<< 2019年12月 | TOP | 2020年02月 >>

<< 1 2 -

2020年01月18日

Windows10 : VBScript : WMI を使用してレジストリ情報より、shell: を使ってフォルダを開く(実行できる)コマンドラインの一覧ボタンを表示する Html Application のコードを作成する

VBScript のコード3つ必要です。メインの部分は結果をパイプで sort に渡して最後にテキストファイルに追加リダイレクトします

一覧の中には、自裁には存在しない為、ドキュメントフォルダが開く事を確認しています

hta_head.vbs

Wscript.Echo "<html>"
Wscript.Echo "<script language='vbscript'>"
Wscript.Echo "Set WshShell = CreateObject( ""WScript.Shell"" )"
Wscript.Echo "</script>"


get_shell_folder.vbs

Set objRegistry = GetObject("Winmgmts:root\default:StdRegProv")

strBasePath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\FolderDescriptions"

ret = objRegistry.EnumKey( &H80000002, strBasePath, aKeys )

For Each strKeyPath in aKeys
	ret = objRegistry.GetStringValue( &H80000002, strBasePath & "\" & strKeyPath, "Name", strValue )
	Wscript.Echo "<input type='button' value='" & strValue & "' onclick='Call WshShell.Run(""Explorer shell:"& strValue & """)' language='vbscript'><br>"
Next


hta_last.vbs

Wscript.Echo "</html>"


result.hta

<html>
<script language='vbscript'>
Set WshShell = CreateObject( "WScript.Shell" )
</script>
<input type='button' value='3D Objects' onclick='Call WshShell.Run("Explorer shell:3D Objects")' language='vbscript'><br>
<input type='button' value='AccountPictures' onclick='Call WshShell.Run("Explorer shell:AccountPictures")' language='vbscript'><br>
<input type='button' value='AddNewProgramsFolder' onclick='Call WshShell.Run("Explorer shell:AddNewProgramsFolder")' language='vbscript'><br>
<input type='button' value='Administrative Tools' onclick='Call WshShell.Run("Explorer shell:Administrative Tools")' language='vbscript'><br>
<input type='button' value='AppData' onclick='Call WshShell.Run("Explorer shell:AppData")' language='vbscript'><br>
<input type='button' value='AppDataDesktop' onclick='Call WshShell.Run("Explorer shell:AppDataDesktop")' language='vbscript'><br>
<input type='button' value='AppDataDocuments' onclick='Call WshShell.Run("Explorer shell:AppDataDocuments")' language='vbscript'><br>
<input type='button' value='AppDataFavorites' onclick='Call WshShell.Run("Explorer shell:AppDataFavorites")' language='vbscript'><br>
<input type='button' value='AppDataProgramData' onclick='Call WshShell.Run("Explorer shell:AppDataProgramData")' language='vbscript'><br>
<input type='button' value='Application Shortcuts' onclick='Call WshShell.Run("Explorer shell:Application Shortcuts")' language='vbscript'><br>
<input type='button' value='AppMods' onclick='Call WshShell.Run("Explorer shell:AppMods")' language='vbscript'><br>
<input type='button' value='AppsFolder' onclick='Call WshShell.Run("Explorer shell:AppsFolder")' language='vbscript'><br>
<input type='button' value='AppUpdatesFolder' onclick='Call WshShell.Run("Explorer shell:AppUpdatesFolder")' language='vbscript'><br>
<input type='button' value='Cache' onclick='Call WshShell.Run("Explorer shell:Cache")' language='vbscript'><br>
<input type='button' value='Camera Roll' onclick='Call WshShell.Run("Explorer shell:Camera Roll")' language='vbscript'><br>
<input type='button' value='CameraRollLibrary' onclick='Call WshShell.Run("Explorer shell:CameraRollLibrary")' language='vbscript'><br>
<input type='button' value='Captures' onclick='Call WshShell.Run("Explorer shell:Captures")' language='vbscript'><br>
<input type='button' value='CD Burning' onclick='Call WshShell.Run("Explorer shell:CD Burning")' language='vbscript'><br>
<input type='button' value='ChangeRemoveProgramsFolder' onclick='Call WshShell.Run("Explorer shell:ChangeRemoveProgramsFolder")' language='vbscript'><br>
<input type='button' value='Common Administrative Tools' onclick='Call WshShell.Run("Explorer shell:Common Administrative Tools")' language='vbscript'><br>
<input type='button' value='Common AppData' onclick='Call WshShell.Run("Explorer shell:Common AppData")' language='vbscript'><br>
<input type='button' value='Common Desktop' onclick='Call WshShell.Run("Explorer shell:Common Desktop")' language='vbscript'><br>
<input type='button' value='Common Documents' onclick='Call WshShell.Run("Explorer shell:Common Documents")' language='vbscript'><br>
<input type='button' value='Common Programs' onclick='Call WshShell.Run("Explorer shell:Common Programs")' language='vbscript'><br>
<input type='button' value='Common Start Menu' onclick='Call WshShell.Run("Explorer shell:Common Start Menu")' language='vbscript'><br>
<input type='button' value='Common Start Menu Places' onclick='Call WshShell.Run("Explorer shell:Common Start Menu Places")' language='vbscript'><br>
<input type='button' value='Common Startup' onclick='Call WshShell.Run("Explorer shell:Common Startup")' language='vbscript'><br>
<input type='button' value='Common Templates' onclick='Call WshShell.Run("Explorer shell:Common Templates")' language='vbscript'><br>
<input type='button' value='CommonDownloads' onclick='Call WshShell.Run("Explorer shell:CommonDownloads")' language='vbscript'><br>
<input type='button' value='CommonMusic' onclick='Call WshShell.Run("Explorer shell:CommonMusic")' language='vbscript'><br>
<input type='button' value='CommonPictures' onclick='Call WshShell.Run("Explorer shell:CommonPictures")' language='vbscript'><br>
<input type='button' value='CommonRingtones' onclick='Call WshShell.Run("Explorer shell:CommonRingtones")' language='vbscript'><br>
<input type='button' value='CommonVideo' onclick='Call WshShell.Run("Explorer shell:CommonVideo")' language='vbscript'><br>
<input type='button' value='ConflictFolder' onclick='Call WshShell.Run("Explorer shell:ConflictFolder")' language='vbscript'><br>
<input type='button' value='ConnectionsFolder' onclick='Call WshShell.Run("Explorer shell:ConnectionsFolder")' language='vbscript'><br>
<input type='button' value='Contacts' onclick='Call WshShell.Run("Explorer shell:Contacts")' language='vbscript'><br>
<input type='button' value='ControlPanelFolder' onclick='Call WshShell.Run("Explorer shell:ControlPanelFolder")' language='vbscript'><br>
<input type='button' value='Cookies' onclick='Call WshShell.Run("Explorer shell:Cookies")' language='vbscript'><br>
<input type='button' value='CredentialManager' onclick='Call WshShell.Run("Explorer shell:CredentialManager")' language='vbscript'><br>
<input type='button' value='CryptoKeys' onclick='Call WshShell.Run("Explorer shell:CryptoKeys")' language='vbscript'><br>
<input type='button' value='CSCFolder' onclick='Call WshShell.Run("Explorer shell:CSCFolder")' language='vbscript'><br>
<input type='button' value='Desktop' onclick='Call WshShell.Run("Explorer shell:Desktop")' language='vbscript'><br>
<input type='button' value='Development Files' onclick='Call WshShell.Run("Explorer shell:Development Files")' language='vbscript'><br>
<input type='button' value='Device Metadata Store' onclick='Call WshShell.Run("Explorer shell:Device Metadata Store")' language='vbscript'><br>
<input type='button' value='DocumentsLibrary' onclick='Call WshShell.Run("Explorer shell:DocumentsLibrary")' language='vbscript'><br>
<input type='button' value='Downloads' onclick='Call WshShell.Run("Explorer shell:Downloads")' language='vbscript'><br>
<input type='button' value='DpapiKeys' onclick='Call WshShell.Run("Explorer shell:DpapiKeys")' language='vbscript'><br>
<input type='button' value='Favorites' onclick='Call WshShell.Run("Explorer shell:Favorites")' language='vbscript'><br>
<input type='button' value='Fonts' onclick='Call WshShell.Run("Explorer shell:Fonts")' language='vbscript'><br>
<input type='button' value='GameTasks' onclick='Call WshShell.Run("Explorer shell:GameTasks")' language='vbscript'><br>
<input type='button' value='History' onclick='Call WshShell.Run("Explorer shell:History")' language='vbscript'><br>
<input type='button' value='HomeGroupCurrentUserFolder' onclick='Call WshShell.Run("Explorer shell:HomeGroupCurrentUserFolder")' language='vbscript'><br>
<input type='button' value='HomeGroupFolder' onclick='Call WshShell.Run("Explorer shell:HomeGroupFolder")' language='vbscript'><br>
<input type='button' value='ImplicitAppShortcuts' onclick='Call WshShell.Run("Explorer shell:ImplicitAppShortcuts")' language='vbscript'><br>
<input type='button' value='InternetFolder' onclick='Call WshShell.Run("Explorer shell:InternetFolder")' language='vbscript'><br>
<input type='button' value='Libraries' onclick='Call WshShell.Run("Explorer shell:Libraries")' language='vbscript'><br>
<input type='button' value='Links' onclick='Call WshShell.Run("Explorer shell:Links")' language='vbscript'><br>
<input type='button' value='Local AppData' onclick='Call WshShell.Run("Explorer shell:Local AppData")' language='vbscript'><br>
<input type='button' value='Local Documents' onclick='Call WshShell.Run("Explorer shell:Local Documents")' language='vbscript'><br>
<input type='button' value='Local Downloads' onclick='Call WshShell.Run("Explorer shell:Local Downloads")' language='vbscript'><br>
<input type='button' value='Local Music' onclick='Call WshShell.Run("Explorer shell:Local Music")' language='vbscript'><br>
<input type='button' value='Local Pictures' onclick='Call WshShell.Run("Explorer shell:Local Pictures")' language='vbscript'><br>
<input type='button' value='Local Videos' onclick='Call WshShell.Run("Explorer shell:Local Videos")' language='vbscript'><br>
<input type='button' value='LocalAppDataLow' onclick='Call WshShell.Run("Explorer shell:LocalAppDataLow")' language='vbscript'><br>
<input type='button' value='LocalizedResourcesDir' onclick='Call WshShell.Run("Explorer shell:LocalizedResourcesDir")' language='vbscript'><br>
<input type='button' value='MAPIFolder' onclick='Call WshShell.Run("Explorer shell:MAPIFolder")' language='vbscript'><br>
<input type='button' value='MusicLibrary' onclick='Call WshShell.Run("Explorer shell:MusicLibrary")' language='vbscript'><br>
<input type='button' value='My Music' onclick='Call WshShell.Run("Explorer shell:My Music")' language='vbscript'><br>
<input type='button' value='My Pictures' onclick='Call WshShell.Run("Explorer shell:My Pictures")' language='vbscript'><br>
<input type='button' value='My Video' onclick='Call WshShell.Run("Explorer shell:My Video")' language='vbscript'><br>
<input type='button' value='MyComputerFolder' onclick='Call WshShell.Run("Explorer shell:MyComputerFolder")' language='vbscript'><br>
<input type='button' value='NetHood' onclick='Call WshShell.Run("Explorer shell:NetHood")' language='vbscript'><br>
<input type='button' value='NetworkPlacesFolder' onclick='Call WshShell.Run("Explorer shell:NetworkPlacesFolder")' language='vbscript'><br>
<input type='button' value='OEM Links' onclick='Call WshShell.Run("Explorer shell:OEM Links")' language='vbscript'><br>
<input type='button' value='OneDrive' onclick='Call WshShell.Run("Explorer shell:OneDrive")' language='vbscript'><br>
<input type='button' value='OneDriveCameraRoll' onclick='Call WshShell.Run("Explorer shell:OneDriveCameraRoll")' language='vbscript'><br>
<input type='button' value='OneDriveDocuments' onclick='Call WshShell.Run("Explorer shell:OneDriveDocuments")' language='vbscript'><br>
<input type='button' value='OneDriveMusic' onclick='Call WshShell.Run("Explorer shell:OneDriveMusic")' language='vbscript'><br>
<input type='button' value='OneDrivePictures' onclick='Call WshShell.Run("Explorer shell:OneDrivePictures")' language='vbscript'><br>
<input type='button' value='Original Images' onclick='Call WshShell.Run("Explorer shell:Original Images")' language='vbscript'><br>
<input type='button' value='Personal' onclick='Call WshShell.Run("Explorer shell:Personal")' language='vbscript'><br>
<input type='button' value='PhotoAlbums' onclick='Call WshShell.Run("Explorer shell:PhotoAlbums")' language='vbscript'><br>
<input type='button' value='PicturesLibrary' onclick='Call WshShell.Run("Explorer shell:PicturesLibrary")' language='vbscript'><br>
<input type='button' value='Playlists' onclick='Call WshShell.Run("Explorer shell:Playlists")' language='vbscript'><br>
<input type='button' value='PrintersFolder' onclick='Call WshShell.Run("Explorer shell:PrintersFolder")' language='vbscript'><br>
<input type='button' value='PrintHood' onclick='Call WshShell.Run("Explorer shell:PrintHood")' language='vbscript'><br>
<input type='button' value='Profile' onclick='Call WshShell.Run("Explorer shell:Profile")' language='vbscript'><br>
<input type='button' value='ProgramFiles' onclick='Call WshShell.Run("Explorer shell:ProgramFiles")' language='vbscript'><br>
<input type='button' value='ProgramFilesCommon' onclick='Call WshShell.Run("Explorer shell:ProgramFilesCommon")' language='vbscript'><br>
<input type='button' value='ProgramFilesCommonX64' onclick='Call WshShell.Run("Explorer shell:ProgramFilesCommonX64")' language='vbscript'><br>
<input type='button' value='ProgramFilesCommonX86' onclick='Call WshShell.Run("Explorer shell:ProgramFilesCommonX86")' language='vbscript'><br>
<input type='button' value='ProgramFilesX64' onclick='Call WshShell.Run("Explorer shell:ProgramFilesX64")' language='vbscript'><br>
<input type='button' value='ProgramFilesX86' onclick='Call WshShell.Run("Explorer shell:ProgramFilesX86")' language='vbscript'><br>
<input type='button' value='Programs' onclick='Call WshShell.Run("Explorer shell:Programs")' language='vbscript'><br>
<input type='button' value='Public' onclick='Call WshShell.Run("Explorer shell:Public")' language='vbscript'><br>
<input type='button' value='PublicAccountPictures' onclick='Call WshShell.Run("Explorer shell:PublicAccountPictures")' language='vbscript'><br>
<input type='button' value='PublicGameTasks' onclick='Call WshShell.Run("Explorer shell:PublicGameTasks")' language='vbscript'><br>
<input type='button' value='PublicLibraries' onclick='Call WshShell.Run("Explorer shell:PublicLibraries")' language='vbscript'><br>
<input type='button' value='Quick Launch' onclick='Call WshShell.Run("Explorer shell:Quick Launch")' language='vbscript'><br>
<input type='button' value='Recent' onclick='Call WshShell.Run("Explorer shell:Recent")' language='vbscript'><br>
<input type='button' value='Recorded Calls' onclick='Call WshShell.Run("Explorer shell:Recorded Calls")' language='vbscript'><br>
<input type='button' value='RecordedTVLibrary' onclick='Call WshShell.Run("Explorer shell:RecordedTVLibrary")' language='vbscript'><br>
<input type='button' value='RecycleBinFolder' onclick='Call WshShell.Run("Explorer shell:RecycleBinFolder")' language='vbscript'><br>
<input type='button' value='ResourceDir' onclick='Call WshShell.Run("Explorer shell:ResourceDir")' language='vbscript'><br>
<input type='button' value='Retail Demo' onclick='Call WshShell.Run("Explorer shell:Retail Demo")' language='vbscript'><br>
<input type='button' value='Ringtones' onclick='Call WshShell.Run("Explorer shell:Ringtones")' language='vbscript'><br>
<input type='button' value='Roamed Tile Images' onclick='Call WshShell.Run("Explorer shell:Roamed Tile Images")' language='vbscript'><br>
<input type='button' value='Roaming Tiles' onclick='Call WshShell.Run("Explorer shell:Roaming Tiles")' language='vbscript'><br>
<input type='button' value='SavedGames' onclick='Call WshShell.Run("Explorer shell:SavedGames")' language='vbscript'><br>
<input type='button' value='SavedPictures' onclick='Call WshShell.Run("Explorer shell:SavedPictures")' language='vbscript'><br>
<input type='button' value='SavedPicturesLibrary' onclick='Call WshShell.Run("Explorer shell:SavedPicturesLibrary")' language='vbscript'><br>
<input type='button' value='Screenshots' onclick='Call WshShell.Run("Explorer shell:Screenshots")' language='vbscript'><br>
<input type='button' value='Searches' onclick='Call WshShell.Run("Explorer shell:Searches")' language='vbscript'><br>
<input type='button' value='SearchHistoryFolder' onclick='Call WshShell.Run("Explorer shell:SearchHistoryFolder")' language='vbscript'><br>
<input type='button' value='SearchHomeFolder' onclick='Call WshShell.Run("Explorer shell:SearchHomeFolder")' language='vbscript'><br>
<input type='button' value='SearchTemplatesFolder' onclick='Call WshShell.Run("Explorer shell:SearchTemplatesFolder")' language='vbscript'><br>
<input type='button' value='SendTo' onclick='Call WshShell.Run("Explorer shell:SendTo")' language='vbscript'><br>
<input type='button' value='Start Menu' onclick='Call WshShell.Run("Explorer shell:Start Menu")' language='vbscript'><br>
<input type='button' value='StartMenuAllPrograms' onclick='Call WshShell.Run("Explorer shell:StartMenuAllPrograms")' language='vbscript'><br>
<input type='button' value='Startup' onclick='Call WshShell.Run("Explorer shell:Startup")' language='vbscript'><br>
<input type='button' value='SyncCenterFolder' onclick='Call WshShell.Run("Explorer shell:SyncCenterFolder")' language='vbscript'><br>
<input type='button' value='SyncResultsFolder' onclick='Call WshShell.Run("Explorer shell:SyncResultsFolder")' language='vbscript'><br>
<input type='button' value='SyncSetupFolder' onclick='Call WshShell.Run("Explorer shell:SyncSetupFolder")' language='vbscript'><br>
<input type='button' value='System' onclick='Call WshShell.Run("Explorer shell:System")' language='vbscript'><br>
<input type='button' value='SystemCertificates' onclick='Call WshShell.Run("Explorer shell:SystemCertificates")' language='vbscript'><br>
<input type='button' value='SystemX86' onclick='Call WshShell.Run("Explorer shell:SystemX86")' language='vbscript'><br>
<input type='button' value='Templates' onclick='Call WshShell.Run("Explorer shell:Templates")' language='vbscript'><br>
<input type='button' value='ThisDeviceFolder' onclick='Call WshShell.Run("Explorer shell:ThisDeviceFolder")' language='vbscript'><br>
<input type='button' value='ThisPCDesktopFolder' onclick='Call WshShell.Run("Explorer shell:ThisPCDesktopFolder")' language='vbscript'><br>
<input type='button' value='User Pinned' onclick='Call WshShell.Run("Explorer shell:User Pinned")' language='vbscript'><br>
<input type='button' value='UserProfiles' onclick='Call WshShell.Run("Explorer shell:UserProfiles")' language='vbscript'><br>
<input type='button' value='UserProgramFiles' onclick='Call WshShell.Run("Explorer shell:UserProgramFiles")' language='vbscript'><br>
<input type='button' value='UserProgramFilesCommon' onclick='Call WshShell.Run("Explorer shell:UserProgramFilesCommon")' language='vbscript'><br>
<input type='button' value='UsersFilesFolder' onclick='Call WshShell.Run("Explorer shell:UsersFilesFolder")' language='vbscript'><br>
<input type='button' value='UsersLibrariesFolder' onclick='Call WshShell.Run("Explorer shell:UsersLibrariesFolder")' language='vbscript'><br>
<input type='button' value='VideosLibrary' onclick='Call WshShell.Run("Explorer shell:VideosLibrary")' language='vbscript'><br>
<input type='button' value='Windows' onclick='Call WshShell.Run("Explorer shell:Windows")' language='vbscript'><br>
</html>


build_hta.bat

cscript //nologo hta_head.vbs > result.hta
cscript //nologo get_shell_folder.vbs | sort >> result.hta
cscript //nologo hta_last.vbs >> result.hta


▼ 上記 HTA をテストして動作しない名前を削除しました( OneDrive 関連はわからないのでスルー )
※ この hta ファイルは、デスクトップではうまく動作しません。原因は不明です

<html>
<script language='vbscript'>
Set WshShell = CreateObject( "WScript.Shell" )
</script>
<input type='button' value='3D Objects' onclick='Call WshShell.Run("Explorer shell:3D Objects")' language='vbscript'><br>
<input type='button' value='AccountPictures' onclick='Call WshShell.Run("Explorer shell:AccountPictures")' language='vbscript'><br>
<input type='button' value='AddNewProgramsFolder' onclick='Call WshShell.Run("Explorer shell:AddNewProgramsFolder")' language='vbscript'><br>
<input type='button' value='Administrative Tools' onclick='Call WshShell.Run("Explorer shell:Administrative Tools")' language='vbscript'><br>
<input type='button' value='AppData' onclick='Call WshShell.Run("Explorer shell:AppData")' language='vbscript'><br>
<input type='button' value='AppDataDocuments' onclick='Call WshShell.Run("Explorer shell:AppDataDocuments")' language='vbscript'><br>
<input type='button' value='Application Shortcuts' onclick='Call WshShell.Run("Explorer shell:Application Shortcuts")' language='vbscript'><br>
<input type='button' value='AppsFolder' onclick='Call WshShell.Run("Explorer shell:AppsFolder")' language='vbscript'><br>
<input type='button' value='Cache' onclick='Call WshShell.Run("Explorer shell:Cache")' language='vbscript'><br>
<input type='button' value='Camera Roll' onclick='Call WshShell.Run("Explorer shell:Camera Roll")' language='vbscript'><br>
<input type='button' value='CD Burning' onclick='Call WshShell.Run("Explorer shell:CD Burning")' language='vbscript'><br>
<input type='button' value='Common Administrative Tools' onclick='Call WshShell.Run("Explorer shell:Common Administrative Tools")' language='vbscript'><br>
<input type='button' value='Common AppData' onclick='Call WshShell.Run("Explorer shell:Common AppData")' language='vbscript'><br>
<input type='button' value='Common Desktop' onclick='Call WshShell.Run("Explorer shell:Common Desktop")' language='vbscript'><br>
<input type='button' value='Common Documents' onclick='Call WshShell.Run("Explorer shell:Common Documents")' language='vbscript'><br>
<input type='button' value='Common Programs' onclick='Call WshShell.Run("Explorer shell:Common Programs")' language='vbscript'><br>
<input type='button' value='Common Start Menu' onclick='Call WshShell.Run("Explorer shell:Common Start Menu")' language='vbscript'><br>
<input type='button' value='Common Startup' onclick='Call WshShell.Run("Explorer shell:Common Startup")' language='vbscript'><br>
<input type='button' value='Common Templates' onclick='Call WshShell.Run("Explorer shell:Common Templates")' language='vbscript'><br>
<input type='button' value='CommonDownloads' onclick='Call WshShell.Run("Explorer shell:CommonDownloads")' language='vbscript'><br>
<input type='button' value='CommonMusic' onclick='Call WshShell.Run("Explorer shell:CommonMusic")' language='vbscript'><br>
<input type='button' value='CommonPictures' onclick='Call WshShell.Run("Explorer shell:CommonPictures")' language='vbscript'><br>
<input type='button' value='CommonRingtones' onclick='Call WshShell.Run("Explorer shell:CommonRingtones")' language='vbscript'><br>
<input type='button' value='CommonVideo' onclick='Call WshShell.Run("Explorer shell:CommonVideo")' language='vbscript'><br>
<input type='button' value='ConnectionsFolder' onclick='Call WshShell.Run("Explorer shell:ConnectionsFolder")' language='vbscript'><br>
<input type='button' value='Contacts' onclick='Call WshShell.Run("Explorer shell:Contacts")' language='vbscript'><br>
<input type='button' value='ControlPanelFolder' onclick='Call WshShell.Run("Explorer shell:ControlPanelFolder")' language='vbscript'><br>
<input type='button' value='Cookies' onclick='Call WshShell.Run("Explorer shell:Cookies")' language='vbscript'><br>
<input type='button' value='CredentialManager' onclick='Call WshShell.Run("Explorer shell:CredentialManager")' language='vbscript'><br>
<input type='button' value='CryptoKeys' onclick='Call WshShell.Run("Explorer shell:CryptoKeys")' language='vbscript'><br>
<input type='button' value='Desktop' onclick='Call WshShell.Run("Explorer shell:Desktop")' language='vbscript'><br>
<input type='button' value='Device Metadata Store' onclick='Call WshShell.Run("Explorer shell:Device Metadata Store")' language='vbscript'><br>
<input type='button' value='DocumentsLibrary' onclick='Call WshShell.Run("Explorer shell:DocumentsLibrary")' language='vbscript'><br>
<input type='button' value='Downloads' onclick='Call WshShell.Run("Explorer shell:Downloads")' language='vbscript'><br>
<input type='button' value='DpapiKeys' onclick='Call WshShell.Run("Explorer shell:DpapiKeys")' language='vbscript'><br>
<input type='button' value='Favorites' onclick='Call WshShell.Run("Explorer shell:Favorites")' language='vbscript'><br>
<input type='button' value='Fonts' onclick='Call WshShell.Run("Explorer shell:Fonts")' language='vbscript'><br>
<input type='button' value='GameTasks' onclick='Call WshShell.Run("Explorer shell:GameTasks")' language='vbscript'><br>
<input type='button' value='History' onclick='Call WshShell.Run("Explorer shell:History")' language='vbscript'><br>
<input type='button' value='HomeGroupFolder' onclick='Call WshShell.Run("Explorer shell:HomeGroupFolder")' language='vbscript'><br>
<input type='button' value='ImplicitAppShortcuts' onclick='Call WshShell.Run("Explorer shell:ImplicitAppShortcuts")' language='vbscript'><br>
<input type='button' value='Libraries' onclick='Call WshShell.Run("Explorer shell:Libraries")' language='vbscript'><br>
<input type='button' value='Links' onclick='Call WshShell.Run("Explorer shell:Links")' language='vbscript'><br>
<input type='button' value='Local AppData' onclick='Call WshShell.Run("Explorer shell:Local AppData")' language='vbscript'><br>
<input type='button' value='Local Documents' onclick='Call WshShell.Run("Explorer shell:Local Documents")' language='vbscript'><br>
<input type='button' value='Local Downloads' onclick='Call WshShell.Run("Explorer shell:Local Downloads")' language='vbscript'><br>
<input type='button' value='Local Music' onclick='Call WshShell.Run("Explorer shell:Local Music")' language='vbscript'><br>
<input type='button' value='Local Pictures' onclick='Call WshShell.Run("Explorer shell:Local Pictures")' language='vbscript'><br>
<input type='button' value='Local Videos' onclick='Call WshShell.Run("Explorer shell:Local Videos")' language='vbscript'><br>
<input type='button' value='LocalAppDataLow' onclick='Call WshShell.Run("Explorer shell:LocalAppDataLow")' language='vbscript'><br>
<input type='button' value='MusicLibrary' onclick='Call WshShell.Run("Explorer shell:MusicLibrary")' language='vbscript'><br>
<input type='button' value='My Music' onclick='Call WshShell.Run("Explorer shell:My Music")' language='vbscript'><br>
<input type='button' value='My Pictures' onclick='Call WshShell.Run("Explorer shell:My Pictures")' language='vbscript'><br>
<input type='button' value='My Video' onclick='Call WshShell.Run("Explorer shell:My Video")' language='vbscript'><br>
<input type='button' value='MyComputerFolder' onclick='Call WshShell.Run("Explorer shell:MyComputerFolder")' language='vbscript'><br>
<input type='button' value='NetHood' onclick='Call WshShell.Run("Explorer shell:NetHood")' language='vbscript'><br>
<input type='button' value='NetworkPlacesFolder' onclick='Call WshShell.Run("Explorer shell:NetworkPlacesFolder")' language='vbscript'><br>
<input type='button' value='OneDrive' onclick='Call WshShell.Run("Explorer shell:OneDrive")' language='vbscript'><br>
<input type='button' value='OneDriveCameraRoll' onclick='Call WshShell.Run("Explorer shell:OneDriveCameraRoll")' language='vbscript'><br>
<input type='button' value='OneDriveDocuments' onclick='Call WshShell.Run("Explorer shell:OneDriveDocuments")' language='vbscript'><br>
<input type='button' value='OneDriveMusic' onclick='Call WshShell.Run("Explorer shell:OneDriveMusic")' language='vbscript'><br>
<input type='button' value='OneDrivePictures' onclick='Call WshShell.Run("Explorer shell:OneDrivePictures")' language='vbscript'><br>
<input type='button' value='PicturesLibrary' onclick='Call WshShell.Run("Explorer shell:PicturesLibrary")' language='vbscript'><br>
<input type='button' value='PrintersFolder' onclick='Call WshShell.Run("Explorer shell:PrintersFolder")' language='vbscript'><br>
<input type='button' value='PrintHood' onclick='Call WshShell.Run("Explorer shell:PrintHood")' language='vbscript'><br>
<input type='button' value='Profile' onclick='Call WshShell.Run("Explorer shell:Profile")' language='vbscript'><br>
<input type='button' value='ProgramFiles' onclick='Call WshShell.Run("Explorer shell:ProgramFiles")' language='vbscript'><br>
<input type='button' value='ProgramFilesCommon' onclick='Call WshShell.Run("Explorer shell:ProgramFilesCommon")' language='vbscript'><br>
<input type='button' value='ProgramFilesCommonX86' onclick='Call WshShell.Run("Explorer shell:ProgramFilesCommonX86")' language='vbscript'><br>
<input type='button' value='ProgramFilesX86' onclick='Call WshShell.Run("Explorer shell:ProgramFilesX86")' language='vbscript'><br>
<input type='button' value='Programs' onclick='Call WshShell.Run("Explorer shell:Programs")' language='vbscript'><br>
<input type='button' value='Public' onclick='Call WshShell.Run("Explorer shell:Public")' language='vbscript'><br>
<input type='button' value='PublicAccountPictures' onclick='Call WshShell.Run("Explorer shell:PublicAccountPictures")' language='vbscript'><br>
<input type='button' value='PublicGameTasks' onclick='Call WshShell.Run("Explorer shell:PublicGameTasks")' language='vbscript'><br>
<input type='button' value='PublicLibraries' onclick='Call WshShell.Run("Explorer shell:PublicLibraries")' language='vbscript'><br>
<input type='button' value='Quick Launch' onclick='Call WshShell.Run("Explorer shell:Quick Launch")' language='vbscript'><br>
<input type='button' value='Recent' onclick='Call WshShell.Run("Explorer shell:Recent")' language='vbscript'><br>
<input type='button' value='RecycleBinFolder' onclick='Call WshShell.Run("Explorer shell:RecycleBinFolder")' language='vbscript'><br>
<input type='button' value='ResourceDir' onclick='Call WshShell.Run("Explorer shell:ResourceDir")' language='vbscript'><br>
<input type='button' value='Ringtones' onclick='Call WshShell.Run("Explorer shell:Ringtones")' language='vbscript'><br>
<input type='button' value='Roaming Tiles' onclick='Call WshShell.Run("Explorer shell:Roaming Tiles")' language='vbscript'><br>
<input type='button' value='SavedGames' onclick='Call WshShell.Run("Explorer shell:SavedGames")' language='vbscript'><br>
<input type='button' value='SavedPictures' onclick='Call WshShell.Run("Explorer shell:SavedPictures")' language='vbscript'><br>
<input type='button' value='SavedPicturesLibrary' onclick='Call WshShell.Run("Explorer shell:SavedPicturesLibrary")' language='vbscript'><br>
<input type='button' value='Screenshots' onclick='Call WshShell.Run("Explorer shell:Screenshots")' language='vbscript'><br>
<input type='button' value='Searches' onclick='Call WshShell.Run("Explorer shell:Searches")' language='vbscript'><br>
<input type='button' value='SearchHomeFolder' onclick='Call WshShell.Run("Explorer shell:SearchHomeFolder")' language='vbscript'><br>
<input type='button' value='SendTo' onclick='Call WshShell.Run("Explorer shell:SendTo")' language='vbscript'><br>
<input type='button' value='Start Menu' onclick='Call WshShell.Run("Explorer shell:Start Menu")' language='vbscript'><br>
<input type='button' value='Startup' onclick='Call WshShell.Run("Explorer shell:Startup")' language='vbscript'><br>
<input type='button' value='System' onclick='Call WshShell.Run("Explorer shell:System")' language='vbscript'><br>
<input type='button' value='SystemCertificates' onclick='Call WshShell.Run("Explorer shell:SystemCertificates")' language='vbscript'><br>
<input type='button' value='SystemX86' onclick='Call WshShell.Run("Explorer shell:SystemX86")' language='vbscript'><br>
<input type='button' value='Templates' onclick='Call WshShell.Run("Explorer shell:Templates")' language='vbscript'><br>
<input type='button' value='ThisDeviceFolder' onclick='Call WshShell.Run("Explorer shell:ThisDeviceFolder")' language='vbscript'><br>
<input type='button' value='ThisPCDesktopFolder' onclick='Call WshShell.Run("Explorer shell:ThisPCDesktopFolder")' language='vbscript'><br>
<input type='button' value='User Pinned' onclick='Call WshShell.Run("Explorer shell:User Pinned")' language='vbscript'><br>
<input type='button' value='UserProfiles' onclick='Call WshShell.Run("Explorer shell:UserProfiles")' language='vbscript'><br>
<input type='button' value='UserProgramFiles' onclick='Call WshShell.Run("Explorer shell:UserProgramFiles")' language='vbscript'><br>
<input type='button' value='UserProgramFilesCommon' onclick='Call WshShell.Run("Explorer shell:UserProgramFilesCommon")' language='vbscript'><br>
<input type='button' value='UsersFilesFolder' onclick='Call WshShell.Run("Explorer shell:UsersFilesFolder")' language='vbscript'><br>
<input type='button' value='UsersLibrariesFolder' onclick='Call WshShell.Run("Explorer shell:UsersLibrariesFolder")' language='vbscript'><br>
<input type='button' value='VideosLibrary' onclick='Call WshShell.Run("Explorer shell:VideosLibrary")' language='vbscript'><br>
<input type='button' value='Windows' onclick='Call WshShell.Run("Explorer shell:Windows")' language='vbscript'><br>
</html>


このページの PDF

【VBScript関連のカテゴリ】

posted by lightbox at 2020-01-18 17:03 | VBS + WMI |

2020年01月16日

PowerShell のバージョンを確認して、最新の PowerShell(pwsh)を実行する方法

インストールした PowerShell のバージョンを確認するには、PowerShell コンソール (または ISE) を起動し、「$PSVersionTable」と入力して Enter キーを押します。 PSVersion の値を探します。

PS C:\Users\lightbox> $PSVersionTable

Name                           Value
----                           -----
PSVersion                      5.1.18362.145
PSEdition                      Desktop
PSCompatibleVersions           {1.0, 2.0, 3.0, 4.0...}
BuildVersion                   10.0.18362.145
CLRVersion                     4.0.30319.42000
WSManStackVersion              3.0
PSRemotingProtocolVersion      2.3
SerializationVersion           1.1.0.1


PowerShell 6 以降を使う場合は、Windows PowerShell ではなく PowerShell Core をインストールする必要があります。

※ dotnet tool install --global PowerShell を実行するのですが、既にインストールされている dotnet tool のバージョンによってはインストールに失敗する場合があり、その場合は後述の .NET Core SDK の最新版をインストールしてから dotnet tool install --global PowerShell を実行します。
PS C:\Users\lightbox> dotnet tool install --global PowerShell                                                           
.NET Core へようこそ!
---------------------
.NET Core についての詳細情報: https://aka.ms/dotnet-docs
'dotnet --help' を使用して利用可能なコマンドを確認するか、次にアクセスしてください: https://aka.ms/dotnet-cli-docs

テレメトリ
---------
.NET Core ツールは、エクスペリエンスの向上に役立つ利用状況データを収集します。データは匿名で、コマンドライン引数が含まれません。データは Microsoft によって収集され、コミュニティと共有されます。テレメトリをオプトアウトするには、お好きなシェ ルを使用して、DOTNET_CLI_TELEMETRY_OPTOUT 環境変数を '1' または 'true' に設定します。

.NET Core CLI ツールのテレメトリに関する詳細情報をお読みください: https://aka.ms/dotnet-cli-telemetry

ASP.NET Core
------------
ASP.NET Core HTTPS 開発証明書が正常にインストールされました。
証明書を信頼するには、'dotnet dev-certs https --trust' (Windows および macOS のみ) を実行します。その他のプラットフォー ムで信頼を確立するには、プラットフォーム固有のドキュメントをご覧ください。
HTTPS を構成する方法の詳細については、https://go.microsoft.com/fwlink/?linkid=848054 をご覧ください。
.NET Core SDK をインストールしたばかりなので、インストールしたツールを実行する前に、コマンド プロンプト ウィンドウを再び開く必要があります。
次のコマンドを使用してツールを呼び出せます。pwsh
ツール 'powershell' (バージョン '6.2.3') が正常にインストールされました。


pwsh を実行しても動作しない場合は、.NET Core SDK の最新版をダウンロードしてインストールします





Windows PowerShell
Copyright (C) Microsoft Corporation. All rights reserved.

新しいクロスプラットフォームの PowerShell をお試しください https://aka.ms/pscore6

PS C:\Users\lightbox> pwsh
PowerShell 6.2.3
Copyright (c) Microsoft Corporation. All rights reserved.

https://aka.ms/pscore6-docs
Type 'help' to get help.

PS C:\Users\lightbox> $PSVersionTable

Name                           Value
----                           -----
PSVersion                      6.2.3
PSEdition                      Core
GitCommitId                    6.2.3
OS                             Microsoft Windows 10.0.18362
Platform                       Win32NT
PSCompatibleVersions           {1.0, 2.0, 3.0, 4.0…}
PSRemotingProtocolVersion      2.3
SerializationVersion           1.1.0.1
WSManStackVersion              3.0



このページの PDF

posted by lightbox at 2020-01-16 12:13 | PowerShell |

2020年01月14日

Visual Studio Code エントランス( 入口 )

まずはインストールですが、ある程度ソフトウェアの扱いに自信のある人は zip でダウンロードして解凍して利用するといいと思いますが、そうなるとアップデートは自分でリプレースになるので面倒ではあります( 通知はあってダウンロードされますが、zip なので自分で置き換え )。



▼ ダウンロード


そしてまず日本語にする



▼ Extentions で 必要な拡張を検索してインストールします( アンインストールも簡単なので気軽に )



フォントサイズの変更をマウスホイールで



settings.json

CTRL + , で、設定画面が開くので右上のアイコンをクリック



UTF8 はデフォルトですが、こちらを変更するほうが他のエンコードに全て変更したい場合は直接変更したほうが速いです。

{
    "editor.mouseWheelZoom": true,
    "window.zoomLevel": 0,
    "files.associations": {
        "*.hta": "html",
        "*.wsf": "vb",
        "*.asp": "vb",
        "*.inc": "vb"
    },
    "files.encoding": "utf8"
}


関連する記事

Atom、Visual Studio Code、Notepad++ をエクスプローラのフォルダの右クリックから開く為の設定


このページの PDF

posted by lightbox at 2020-01-14 23:08 | Visual Studio Code |

キーボードに触るとWindows10 が起動する。シャットダウンしたのに勝手に電源が入った上に立ち上がらない。

マイクロソフト コミュニティで普通に対処方法を発見。質問者さんは、『ネコが起動させてしまう』とおっしゃってて印象に残りました。
デバイスマネージャーからキーボードのプロパティを開いて

「電源の管理」タブのチェックを全部外してみてください。

※ Windowsキー + Break => 左上の『デバイスマネージャ』




で、今日は職場の PC で、シャットダウンしたのにもかかわらず、 PC が起動を続けて DHCP がなんとかっていう英文が出てキャラクタがくるくる回って起動しないという状況。いったん、電源コードを抜いて完全に終了させてから立ち上げると正常に動くので、この時点で WEB で調べてみると、LAN カードの Wake on 関連の設定を OFF にしろという事でした。

▼ これは自宅のものですが、同じプロパティがありました


OFF にしたら治ったみたいです。


このページの PDF

posted by lightbox at 2020-01-14 19:29 | Windows10 |

2020年01月09日

C# : System.Data.Odbc によるデータベースのテーブルからのデータ取得処理( サンプルの SQL は MySQL 用です )

スタンダードな C# から ODBC を使用した読み取り処理のテンプレートです。

▼ 以下のようなデータで実行

using System;
using System.Data.Odbc;

namespace MySQL1
{
	class Program
	{
		static void Main(string[] args)
		{
			// *******************************
			// 接続文字列作成
			// *******************************

			// 新しい OdbcConnectionStringBuilder オブジェクトを作成
			OdbcConnectionStringBuilder builder = new OdbcConnectionStringBuilder();

			// ドライバ文字列をセット ( 波型括弧{} は必要ありません ) 
			// 文字列を正確に取得するには、レジストリ : HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI
			builder.Driver = "MySQL ODBC 5.3 Unicode Driver";
			//builder.Driver = "MySQL ODBC 8.0 Unicode Driver";

			// 接続用のパラメータを追加
			builder.Add("server", "localhost");
			builder.Add("database", "lightbox");
			builder.Add("uid", "root");
			builder.Add("pwd", "");

			// 接続文字列の内容を確認
			Console.WriteLine(builder.ConnectionString);

			// 一旦停止
			Console.ReadLine();

			using (OdbcConnection myCon = new OdbcConnection())
			using (OdbcCommand myCommand = new OdbcCommand())
			{

				// *******************************
				// 接続
				// *******************************
				try
				{
					myCon.ConnectionString = builder.ConnectionString;
					myCon.Open();
				}
				catch (OdbcException ex)
				{
					Console.WriteLine("接続エラーです");

					string errorMessages = "";
					int i = 0;

					for (i = 0; i < ex.Errors.Count; i++)
					{
						errorMessages += $"Index #{i.ToString()}\r\nMessage: {ex.Errors[i].Message}\r\nNativeError: {ex.Errors[i].NativeError.ToString()}\r\nSource: {ex.Errors[i].Source}\r\nSQL: {ex.Errors[i].SQLState}\r\n";
					}

					Console.WriteLine(errorMessages);
					// 一旦停止
					Console.ReadLine();

					// アプリケーション終了
					return;
				}

				// *******************************
				// レコードセットを取得する為の SQL
				// ※ DATE_FORMAT は MySQL 用
				// *******************************
				string myQuery = "SELECT 社員マスタ.*,DATE_FORMAT(生年月日,'%Y-%m-%d') as 誕生日 from 社員マスタ";

				// 実行する為に必要な情報をセット
				myCommand.CommandText = myQuery;
				myCommand.Connection = myCon;

				// 実行後にレコードセットを取得する為のオブジェクトを作成
				// ( SQL の実行結果 )
				OdbcDataReader myReader = myCommand.ExecuteReader();

				// *******************************
				// 読み出し
				// Read メソッドは、行が存在する場合は true、
				// それ以外の場合は false を返します
				// *******************************
				while (myReader.Read())
				{
					string result = "";

					// 列定義は文字列
					result += $"{GetValue(myReader, "社員コード")} : ";
					result += $"{GetValue(myReader, "氏名")} : ";

					// 列定義は整数
					result += $"{GetValue(myReader, "給与")} : ";

					// 列定義は日付
					result += $"{GetValue(myReader, "作成日")} : ";
					result += $"{GetValue(myReader, "更新日")} : ";
					result += $"{GetValue(myReader, "生年月日")} : ";
					result += $"{GetValue(myReader, "誕生日")}";

					// 内容をコンソールに表示
					Console.WriteLine(result);

				}

				// リーダーを閉じる
				myReader.Close();

				// 接続を閉じる
				myCon.Close();
			}
			// 接続の終わり

			// 一旦停止
			Console.ReadLine();


		}

		// ********************************************************
		// 列データ取得
		//
		// 列データを文字列として取得しますが、NULL の場合は
		// 空文字列を返します
		// ********************************************************
		static string GetValue(OdbcDataReader myReader, string strName)
		{

			string ret = "";
			int fld = 0;

			// 指定された列名より、テーブル内での定義順序番号を取得
			fld = myReader.GetOrdinal(strName);
			// 定義順序番号より、NULL かどうかをチェック
			if (myReader.IsDBNull(fld))
			{
				ret = "";
			}
			else
			{
				// NULL でなければ内容をオブジェクトとして取りだして文字列化する
				ret = myReader.GetValue(fld).ToString();
			}

			// 列の値を返す
			return ret;

		}
	}
}


実行結果




関連する Microsoft ドキュメント

OdbcConnectionStringBuilder クラス
OdbcConnection クラス
OdbcCommand クラス
OdbcDataReader クラス



このページの PDF

posted by lightbox at 2020-01-09 14:19 | VS(C#) |

Google Chrome デベロッパーツールの Tips And Tricks

ESC で コンソールタブ以外で下部にコンソールを表示する



ESC で表示・非表示が切り替えられます。

リロードボタン右クリックでオプションメニュー

※ 長押しでも可



デベロッパーツールが開いている状態でのみ、メニューが表示されてリロード方法を選択できるようになります。特に、最後の『キャッシュの消去とハード再読み込み』は、ショートカットキーが無いのでこのメニューからのみ利用できます。

ドラッグ & ドロップで要素を移動



ドラッグで top_1 の div を移動中です。ドロップすると移動され、CTRL+Z で元に戻ります

CSS のカラーフォーマットをその場で変更表示

カラー部分を、SHIFT を押しながらクリックすると、フォーマットが切り替わって循環します。



複数の ソース(js/css/html)より文字列検索



ソース(JS/CSS/HTML) の整形



ソースのスペースの表示

F1 で設定画面( preferences ページの Sources )



▼ スペース


▼ タブ


コンソールから関数のブレイクポイント作成

debug( 関数名 )

インスペクト直後のオブジェクト参照

$0

dir( $0 )

コンソールに表示された内容を右クリックして表示されるメニューから、要素タブの該当部分へ戻れます
( $0 でも dir($0) でもどちらでも )



console.log では、以下のフォーマット文字列が使えます

console.log('%cBlue! %cRed!', 'color: blue;', 'color: red;');　のように複数も可

指定子	出力
%s	値を文字列としてフォーマットします。
%i または %d	値を整数としてフォーマットします。
%f	値を浮動小数点値としてフォーマットします。
%o	値を展開可能な DOM 要素としてフォーマットします。[Elements] パネルに表示されるフォーマットです。
%O	値を展開可能な JavaScript オブジェクトとしてフォーマットします。
%c	2 番目のパラメータで指定されたように出力文字列に CSS スタイルルールを適用します。

%c は、続く文字列に対してスタイルを適用するものなので、色や大きさ等いろいろな表現をコンソール上で行います

この方法を使うと背景に画像を設定できるので、コンソールに画像を表示する事もできます。
( ※ このページのコンソールで画像を表示しています )

console.log("%c%s","background: url('https://lh3.googleusercontent.com/-lpfmi9vuwOg/WDVegEds_SI/AAAAAAAAhxc/0DzXoBQQlJw_L7KXSIi2UY0hEJwjiNcHwCHM/s128/internet_kanki_woman1.png'); font-size: 1240px;","　")


コンソールで IFRAME を選択

デフォルトでは、トップフレームなので IFRAME の中で作業したい場合に選択します



その他

コンソールでは、SHIFT+Enter で複数行可

エレメンツの HTML を F2 で編集

copy コマンド( コンソールのみ ) でクリップボードへコピー

table コマンドと、console.table メソッド





このページの PDF

タグ：Google Chrome

posted by lightbox at 2020-01-09 11:22 | Google Chrome |