VBS + WMI : logical　error

Google

TOP / VBS + WMI

- 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 |

2019年03月01日

VBScript( WMI )によるイベント関数を WMI に登録するタイマー処理

VBScript(WSH) の WScript.CreateObject では、作成したオブジェクトのイベントを受け付ける関数を定義する事ができます。過去、ほとんどそのようなサンプルは現実には無かったのですが、WMI では少なくともタイマー処理として利用可能です。

CreateObject メソッドで strPrefix 引数を指定すると、接続されたオブジェクトが作成されます。

これは、オブジェクトのイベントを同期させる場合に便利です。オブジェクトの出力インターフェイスは、オブジェクト作成後にスクリプト ファイルに接続されます。

イベント処理関数は、このプリフィックスとイベント名を組み合わせた名前になります。オブジェクト作成時に strPrefix 引数を指定しなかった場合は、ConnectObject メソッドを使ってオブジェクトのイベントを同期させることができます。オブジェクトがイベントを発行すると、WSH は strPrefix + イベント名という形式の名前を持つサブルーチンを呼び出します。

たとえば、strPrefix が MYOBJ であり、オブジェクトが OnBegin というイベントを発行した場合、Windows Script Host はスクリプト内の MYOBJ_OnBegin という名前のサブルーチンを呼び出します


タイマー処理

' ********************************************************************
' このセクションは、cscript.exe で処理を強制させるものです
' ********************************************************************
str = WScript.FullName
str = Right( str, 11 )
str = Ucase( str )
if str <> "CSCRIPT.EXE" then
	str = WScript.ScriptFullName
	Set WshShell = CreateObject( "WScript.Shell" )
	Call WshShell.Run( "cmd.exe /c cscript.exe """ & str & """ & pause", 3 )
	WScript.Quit
end if

' ********************************************************************
' 秒単位のログを表示するかどうかのフラグです
' ********************************************************************
Dim Disp : Disp = True	' False にすると、秒単位の表示はしなくなります

' ********************************************************************
' WMI のイベントの定義
' ********************************************************************
Set SINK = WScript.CreateObject("WbemScripting.SWbemSink","SINK_")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
objWMIService.ExecNotificationQueryAsync _
 SINK, _
 "SELECT * FROM  __InstanceModificationEvent " & _
 "WHERE TargetInstance ISA 'Win32_LocalTime'"

Wscript.Echo "タイマー処理を開始します"
' ********************************************************************
' 停止する為のイベントの定義
' ********************************************************************
Set objMonitor = objWMIService.ExecNotificationQuery( _
	"select * from __InstanceModificationEvent " & _
	"where TargetInstance isa 'Win32_LocalTime' " & _
	" and TargetInstance.Year = 0" _
)

' Wscript.Echo "TargetInstance.Year は 0 にならないので、次の行より後の処理は実行されません"
Set objLatestEvent = objMonitor.NextEvent 
Wscript.Echo "ここは実行されません"

' ********************************************************************
' この処理は、WbemScripting.SWbemSink から呼び出されます
' ********************************************************************
Sub SINK_OnObjectReady(objLatestEvent, objAsyncContext)

	' 10秒毎の処理
	if objLatestEvent.TargetInstance.Second MOD 10 = 0 then
		' ここが 10秒毎に呼び出されます
		Wscript.Echo "秒の余りが 0 の場合にここが実行されます"
		Wscript.Echo "分や時間を使用すると、長いスパンの定期処理に使えます"
	end if

	if Disp then
		' 秒単位に呼び出されるこのルーチンで毎回表示
		Wscript.Echo "Time: " & _
			objLatestEvent.TargetInstance.Hour & ":" & _
			objLatestEvent.TargetInstance.Minute & ":" & _
			objLatestEvent.TargetInstance.Second
	end if
End Sub

タグ：VBScript WMI イベント

【VBScript関連のカテゴリ】

posted by lightbox at 2019-03-01 13:29 | VBS + WMI |

VBScript : スクリプトを終了しないようにする

目的としてはいろいろ考えられますが、ここではよく使われる Sleep の代わりになり、ずっと待ち状態になる方法を紹介します。実際は、時分秒を指定して指定した時刻にのみ処理を開始する事もできます(そのほうが現実的です)。

' このセクションは、cscript.exe で処理を強制させるものです
str = WScript.FullName
str = Right( str, 11 )
str = Ucase( str )
if str <> "CSCRIPT.EXE" then
	str = WScript.ScriptFullName
	Set WshShell = CreateObject( "WScript.Shell" )
	Call WshShell.Run( "cmd.exe /c cscript.exe """ & str & """ & pause", 3 )
	WScript.Quit
end if

' WMI の処理の為のオブジェクトを取得
Set obj = GetObject("winmgmts:\\.\root\cimv2")
' イベントの定義
Set objMonitor = obj.ExecNotificationQuery( _
	"select * from __InstanceModificationEvent " & _
	"where TargetInstance isa 'Win32_LocalTime' " & _
	" and TargetInstance.Year = 0" _
)

Wscript.Echo "TargetInstance.Year は 0 にならないので、次の行より後の処理は実行されません"
Set objLatestEvent = objMonitor.NextEvent 
Wscript.Echo "ここは実行されません"




プロバティとしては以下が使用できます

class Win32_LocalTime : Win32_CurrentTime
{
  uint32 Day;
  uint32 DayOfWeek;
  uint32 Hour;
  uint32 Milliseconds;
  uint32 Minute;
  uint32 Month;
  uint32 Quarter;
  uint32 Second;
  uint32 WeekInMonth;
  uint32 Year;
};


▼ 実際に select * from Win32_LocalTime で取得したサンプルです

Day	DayOfWeek	Hour	Milliseconds	Minute	Month	Quarter	Second	WeekInMonth	Year
22	4	19		49	5	2	22	4	2014

タグ：VBScript WMI

【VBScript関連のカテゴリ】

posted by lightbox at 2019-03-01 13:25 | VBS + WMI |

2019年02月18日

64ビット PC の VBScript で 32ビット ODBC ドライバの一覧を取得する( ODBC 接続のドライバ文字列を正しく取得したい )

最初の『管理者として cscript 実行を強制する』は、cscript での実行を強制するついでに実装しています。(なんらかの制限環境でも動くようにとの考慮です。)

目的は、レジストリのキーの一覧ですが、キーの一覧は知る限り、WMI でしか取得できないので、GetObject("Winmgmts:root\default:StdRegProv") でレジストリ処理用のオブジェクトを取得して使用します。

一覧表示は、cscript で実行を強制しているので単純に Wscript.Echo で出力。コマンドプロンプトを新たに作成して実行するので、結果の表示を止めるために、Wscript.StdIn.ReadLine です。

' 管理者として cscript 実行を強制する
Set obj = Wscript.CreateObject("Shell.Application")
if Wscript.Arguments.Count = 0 then
	obj.ShellExecute "cscript.exe", WScript.ScriptFullName & " runas", "", "runas", 1
	Wscript.Quit
end if

const WMI_HKEY_LOCAL_MACHINE = &H80000002

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

strBasePath = "SOFTWARE\Wow6432Node\ODBC\ODBCINST.INI"

Call objRegistry.EnumKey( WMI_HKEY_LOCAL_MACHINE, strBasePath, aKeys )

For Each strKeyPath in aKeys
	Wscript.Echo strKeyPath
Next

Wscript.StdIn.ReadLine

実際はいくつか変なのが混じっていますが ODBC 接続のドライバ文字列が欲しい場合を想定しているので、その場合はそれは排除して見れると思います。



※ コマンドプロンプトのプロパティで、簡易編集モードを ON にして、範囲をドラッグして右クリックでコピーできます。

※ コマンドプロンプトならば、『reg query HKLM\SOFTWARE\Wow6432Node\ODBC\ODBCINST.INI』ですから、リダイレクトしてファイルに表示結果を書き込めばいいでしょう( 但し、キーが全て表示されるのでとても見にくいです )
reg query HKLM\SOFTWARE\Wow6432Node\ODBC\ODBCINST.INI > list.txt

【VBScript関連のカテゴリ】

posted by lightbox at 2019-02-18 17:03 | VBS + WMI |

2016年12月24日

VBScript + WMI : ファイルの状態の監視

WMI の典型的なイベント監視のサンプルです。
( リンク先は、Microsoft の TechNet のスクリプト センターです )

ファイル作成の監視
1) C:\scripts フォルダを作成します。
2) 適当な場所にスクリプトを作成します(file_create.vbs)
3) そのフォルダをエクスプローラでSHIFTキーを押しながら右クリックしてコマンドブロンプトを開きます
4) cscript file_create.vbs と実行します
5) C:\scripts でファイルを作成します

strComputer = "."  
Set objWMIService = GetObject("winmgmts:" _  
    & "{impersonationLevel=impersonate}!\\" & _  
        strComputer & "\root\cimv2")  
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _  
    ("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _  
        & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _  
            & "TargetInstance.GroupComponent= " _  
                & "'Win32_Directory.Name=""c:\\\\scripts""'")  
Do  
    Set objLatestEvent = colMonitoredEvents.NextEvent  
    Wscript.Echo objLatestEvent.TargetInstance.PartComponent  
Loop


ファイル変更の監視

strComputer = "."  
Set objWMIService = GetObject("winmgmts:" _  
    & "{impersonationLevel=impersonate}!\\" & _  
        strComputer & "\root\cimv2")  
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _  
    ("SELECT * FROM __InstanceModificationEvent WITHIN 10 WHERE " _  
        & "TargetInstance ISA 'CIM_DataFile' and " _  
            & "TargetInstance.Name='c:\\scripts\\index.vbs'")  
Do  
    Set objLatestEvent = colMonitoredEvents.NextEvent  
    Wscript.Echo "File: " & objLatestEvent.TargetInstance.Name  
    Wscript.Echo "New size: " & objLatestEvent.TargetInstance.FileSize  
    Wscript.Echo "Old size: " & objLatestEvent.PreviousInstance.FileSize  
Loop

ファイル削除の監視

strComputer = "."  
Set objWMIService = GetObject("winmgmts:" _  
    & "{impersonationLevel=impersonate}!\\" & _  
        strComputer & "\root\cimv2")  
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _  
    ("SELECT * FROM __InstanceDeletionEvent WITHIN 10 WHERE " _  
        & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _  
            & "TargetInstance.GroupComponent= " _  
                & "'Win32_Directory.Name=""c:\\\\scripts""'")  
Do  
    Set objLatestEvent = colMonitoredEvents.NextEvent  
    Wscript.Echo objLatestEvent.TargetInstance.PartComponent  
Loop

利用できるディスク領域の監視

Const LOCAL_HARD_DISK = 3  
strComputer = "."  
Set objWMIService = GetObject("winmgmts:" _  
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  
Set colMonitoredDisks = objWMIService.ExecNotificationQuery _  
    ("Select * from __instancemodificationevent within 30 where " _  
        & "TargetInstance isa 'Win32_LogicalDisk'")  

Do 
    Set objDiskChange = colMonitoredDisks.NextEvent  
    If objDiskChange.TargetInstance.DriveType = LOCAL_HARD_DISK Then  
        If objDiskChange.TargetInstance.Size < 100000000 Then  
            Wscript.Echo "Hard disk space is below 100000000 bytes."  
        End If  
    End If  
Loop

タグ：トラブルレア IE拡張メニュー VBScript javascript

【VBScript関連のカテゴリ】

posted by lightbox at 2016-12-24 14:34 | VBS + WMI |

2015年02月25日

VBScript : WMI と NT Provider(ADSI) をそれぞれ使用して、共有を『登録』『一覧』『削除』するサンプル

処理が失敗して共有がもし残った場合は、Windows のコンピュータの管理(%windir%\system32\compmgmt.msc /s)から『共有の停止』を実行します

サンプルでは、WMI と ADSI の両方で処理を記述していますが、WMI のほうが今では推奨されると思います。ADSI のドキュメントは解りにくい上にちゃんとしたものが無いので、これ以上の事をしようとすると苦労すると思います。但し、ローカルユーザを自動的に大量に登録する必要がある場合は、NT Provider は比較的簡単かもしれません。

関連する Microsoft のドキュメント

ADSI を使用してファイル共有を管理する方法
How Can I Share a Folder on a Remote Computer?
Win32_Share class

<JOB>
<OBJECT id="WshShell" progid="WScript.Shell" />
<OBJECT id="Fso" progid="Scripting.FileSystemObject" />
<SCRIPT language="VBScript">

Crun

' **************************************
' スクリプトが存在するディレクトリを取得
' **************************************
strScriptPath = WScript.ScriptFullName
Set obj = Fso.GetFile( strScriptPath )
Set obj = obj.ParentFolder
strScriptPath = obj.Path

' **************************************
' 共有作成(WMI)
' **************************************
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objShare = objWMIService.Get("Win32_Share")
Call objShare.Create( strScriptPath, "ここが共有名ですA", 0 )

' **************************************
' 共有一覧(WMI)
' **************************************
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
Wscript.Echo "【共有一覧】"
Wscript.Echo "----------------------------------------------------"
For Each Share In colShares
	Wscript.Echo RpadB(Share.Name, " ", 20) & " : " & Share.Path
Next
Wscript.Echo

' **************************************
' 共有削除(WMI)
' **************************************
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share where Name = 'ここが共有名ですA'")
For Each Share In colShares
	Share.Delete
Next
Wscript.Echo

' **************************************
' 共有作成(WinNT Provider)
' **************************************
Set colShares = GetObject("WinNT://./LanmanServer")
Set objShare = colShares.Create("fileshare", "ここが共有名ですB")
objShare.Path = strScriptPath
objShare.SetInfo

' **************************************
' 共有一覧(WinNT Provider)
' **************************************
Wscript.Echo "【共有一覧】"
Wscript.Echo "----------------------------------------------------"
For Each Share In colShares
	Wscript.Echo RpadB(Share.Name, " ", 20) & " : " & Share.Path
Next
Wscript.Echo

' **************************************
' 共有削除(WinNT Provider)
' **************************************
colShares.Delete "fileshare", "ここが共有名ですB"
Wscript.Echo

' 終了確認
Wscript.Echo "処理が終了しました"

' **************************************
' Cscript.exe で実行を強制
' Cscript.exe の実行終了後 pause で一時停止
' **************************************
Function Crun( )

	Dim str

	str = WScript.FullName
	str = Right( str, 11 )
	str = Ucase( str )
	if str <> "CSCRIPT.EXE" then
		str = WScript.ScriptFullName

		strParam = " "
		For I = 0 to Wscript.Arguments.Count - 1
			if instr(Wscript.Arguments(I), " ") < 1 then
				strParam = strParam & Wscript.Arguments(I) & " "
			else
				strParam = strParam & Dd(Wscript.Arguments(I)) & " "
			end if
		Next
		Call WshShell.Run( "cmd.exe /c cscript.exe " & Dd(str) & strParam & " & pause", 3 )
		WScript.Quit
	end if

End Function
' **************************************
' 文字列を " で囲む関数
' **************************************
Function Dd( strValue )

	Dd = """" & strValue & """"

End function

' **************************************
' 文字列の右側をスペースで埋める
' **************************************
Function RpadB( strValue, str, nLen )

	Dim strWork,nLen2

	strWork = Left( strValue & String(nLen,str), nLen )
	nLen2 = nLen

	Do While ByteLen( strWork ) > nLen
		nLen2 = nLen2 - 1
		if nLen2 <= 0 then
			Exit Do
		end if
		strWork = Left( strValue & String(nLen,str), nLen2 )
	Loop
	RpadB = strWork

End function
' **************************************
' 文字列のバイト計算
' **************************************
Function ByteLen( strTarget )

	Dim i,nLen,nRet,strMoji,nAsc

	nRet = 0

	nLen = Len( strTarget )

	For i = 1 to nLen
		nRet = nRet + 2
		strMoji = Mid( strTarget, i, 1 )
		nAsc = Asc( strMoji )
		if &H0 <= nAsc and nAsc <= &H80 then
			nRet = nRet - 1
		end if
		if &HA0 <= nAsc and nAsc <= &HDF then
			nRet = nRet - 1
		end if
		if &HFD <= nAsc and nAsc <= &HFF then
			nRet = nRet - 1
		end if
	Next

	ByteLen = nRet

End Function
</SCRIPT>
</JOB>


実行結果

Microsoft (R) Windows Script Host Version 5.8
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.

【共有一覧】
----------------------------------------------------
ADMIN$               : C:\Windows
C$                   : C:\
D$                   : D:\
IPC$                 :
print$               : C:\Windows\system32\spool\drivers
temp                 : C:\Users\lightbox\AppData\Local\Temp
Users                : C:\Users
ここが共有名ですA    : C:\user\vbs


【共有一覧】
----------------------------------------------------
print$               : C:\Windows\system32\spool\drivers
temp                 : C:\Users\lightbox\AppData\Local\Temp
Users                : C:\Users
ここが共有名ですB    : C:\user\vbs


処理が終了しました
続行するには何かキーを押してください . . .

※ 実行終了後、共有は削除されています

【VBScript関連のカテゴリ】

posted by lightbox at 2015-02-25 16:00 | VBS + WMI |

- 1 2 >>

Seesaa の各ページの表示について

Seesaa の 記事がたまに全く表示されない場合があります。その場合は、設定＞ 詳細設定＞ ブログ設定 で 最新の情報に更新の『実行ボタン』で記事やアーカイブが最新にビルドされます。

Seesaa のページで、アーカイブとタグページは要注意です。タグページはコンテンツが全く無い状態になりますし、アーカイブページも歯抜けページはコンテンツが存在しないのにページが表示されてしまいます。

また、カテゴリページもそういう意味では完全ではありません。『カテゴリID-番号』というフォーマットで表示されるページですが、実際存在するより大きな番号でも表示されてしまいます。

※ インデックスページのみ、実際の記事数を超えたページを指定しても最後のページが表示されるようです

対処としては、このようなヘルプ的な情報を固定でページの最後に表示するようにするといいでしょう。具体的には、メインの記事コンテンツの下に『自由形式』を追加し、アーカイブとカテゴリページでのみ表示するように設定し、コンテンツを用意するといいと思います。


※ エキスパートモードで表示しています

アーカイブとカテゴリページはこのように簡単に設定できますが、タグページは HTML 設定を直接変更して、以下の『タグページでのみ表示される内容』の記述方法で設定する必要があります

<% if:page_name eq 'archive' -%>
アーカイブページでのみ表示される内容
<% /if %>

<% if:page_name eq 'category' -%>
カテゴリページでのみ表示される内容
<% /if %>

<% if:page_name eq 'tag' -%>
タグページでのみ表示される内容
<% /if %>

この記述は、以下の場所で使用します

Seesaa ブログ

	SQLServer の BCP で INT IDENTITY 列に csv からリストアする
	MySQL に PIPES_AS_CONCAT を設定して、CSV を出力する SQL
	Chrome ポリシー : レジストリ : ( ChatGPT 解説 )
	PL/SQL : 最も簡単な CSV 出力の記述
	VBScript を『管理者として実行する』には、Shell の runas ( 右クリックメニューの実行と同等 ) で実現します / Jscript も追加
	fake sendmail for windows を使って、PHP でごく普通に( mb_send_mail で )メール送信
	TCPDF をダウンロードして、Windows の任意のフォルダで TCPDF 同梱のサンプルを実行する為の設定
	JavaScript : window オブジェクトのプロパティとしてグローバル変数を定義する
	TCPDF をダウンロードして、フリーフォントを埋め込み型で使用する方法
	汎用型 : JSON データより履歴書のフォームを出力するサンプル
	ChatGPT でトップまでスクロールするブックマークレット
	Replit : cs-list
	Replit : js-web-speech
	Replit : js-csv-read-utf8
	Replit : text-editor
	指定した位置でレジストリエディタを開く為の VBScript をダウンロードします
	JScript / VBScript : 指定したフォルダ内のフォルダ毎の使用済みサイズを読める範囲でレポートする
	デスクトップを部分キャプチャした時に切り取り&スケッチを起動してキャプチャ画像に枠線を付加させる。
	#Zoom の必殺技 : 相手に自分の Zoom 関連のウインドウを見せる
	GAS でユーザ作成 : 組織は "orgUnitPath": "/組織名A/組織名B"

	一部のファイル形式がブロックされる(GMail)
	Creating Shortcut Menu Handlers
	Microsoft Word のキーボードショートカット
	Excel のショートカットキーとファンクションキー
	サイトへの不自然なリンクを否認する新しいツールの提供を開始しました

logical error

2020年01月18日

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

2019年03月01日

VBScript( WMI )によるイベント関数を WMI に登録するタイマー処理

VBScript : スクリプトを終了しないようにする

2019年02月18日

64ビット PC の VBScript で 32ビット ODBC ドライバの一覧を取得する( ODBC 接続のドライバ文字列を正しく取得したい )

2016年12月24日

VBScript + WMI : ファイルの状態の監視

2015年02月25日

VBScript : WMI と NT Provider(ADSI) をそれぞれ使用して、共有を『登録』『一覧』『削除』するサンプル

logical　error