ショートカットのリンク先を取得

Sub Sample2()
　　Dim WSH, LnkFile, DeskTopPath As String, LnkFileName As String
　　Set WSH = CreateObject("WScript.Shell")
　　DeskTopPath = WSH.SpecialFolders("Desktop")
　　LnkFileName = DeskTopPath & "\メモ帳.lnk"
　　Set LnkFile = WSH.CreateShortcut(LnkFileName)
　　MsgBox LnkFile.TargetPath
　　Set LnkFile = Nothing
　　Set WSH = Nothing
End Sub

Wscript_バッチで実行

REM:&@CScript.exe //E:VBS //NoLogo "%~f0" %* & GOTO :EOF
'上の行は、.cmdなバッチファイルからVBScriptを呼び出すハック

Windowsのショートカットキー

desktop commands
ctrl+shift+f10	same as right click	マウス右クリックと同じ
alt(+shift)+tab	switching between windows(backwords)	ウィンドウを切り替える(逆方向）
alt+f4	closing active window application	現在アクティブなアプリケーションを閉じる
f2	changing name(such as files)	（ファイル等の）名前を変更
win+f	serching files or folders	ファイル等の検索
win+m	minimize all the windows	全てのウインドウを最小化
win+d	minimize all the windows maximize the windows minimized	全てのウインドウを最小化 最小化されたウインドウを最大化
win+e	starting up explore	エクスプローラの立ち上げ
alt+enter	see property	プロパティを見る
ctrl+shift+esc	startup task manager	タスクマネージャの立ち上げ

run application
win+r	open the window	このコマンドで入力ウィンドウを開きます
notepad		ノートパッド
wordpad		ワードパッド
winword		ワード
excel		エクセル
outlook		アウトルック
iexplore		インターネットエクスプローラ
explore		エクスプローラ
netscape		ネットスケイプ
freecell		フリーセル
telnet(ip)		テルネット
msimn	outlook express	アウトルックエクスプレス
msmsgs	ms messenger	ｍｓメッセンジャ
cmd	command prompt	コマンドプロンプト
mstsc	remote desktop connection	リモートデスクトップ
mspaint	paint	ペイントツール

internet explore
f11	maximize window	ウインドウの最大化
f5, ctrl+r	reloading window	ウインドウのリロード
ctrl(+shift)+tab	switching carsol (backword)	カーソルの移動(逆方向)
tab	move to the next link, button, or box	次のリンク、ボタン、箱へ移動
space key(1)	push button click radio button (if buttons are active)	ボタンを押す ラジオボタンを有効に （ボタンが有効な場合）
space key(2) (+shift)	scrol down (up) (case if button is not active）	スクロールダウン（アップ） （ボタンが有効でない場合）
return	jump to the link push button (if active)	リンク先へ飛ぶ ボタンを押す （アクティブになっている場合）
esc	stop accessing	アクセスを中止
ctrl+h	open/close the history	履歴を開く/閉じる
ctrl+n	open a new window	新しいウインドウを開く
ctrl+o	open a local file	ファイルを開く
alt+left	back	戻る
alt+right	move forward	進む
home	move top of the page	ページの最上位へ移動
end	move bottom of the page	ページの最下位へ移動
alt+home	move to the homepage set by user	ユーザ指定のhomeへ移動
type drive name at the address bar (such as c:)	access to the drive	ドライブへの直接アクセス

ms office common keys
ctrl+o	open files	ファイルを開く
ctrl+w	close file	ファイルを閉じる
ctrl+n	open new file	新しいファイルを開く
ctrl+s	save current file	セーブ
ctrl+z	undo	アンドゥ
ctrl+y	redo	リドゥ
ctrl+p	print	印刷
ctrl+f	find and replace	検索、置き換え
ctrl+a	select all	全てを選択
shift+allow key	select area	エリアの選択
shift+ctrl	move by word	単語毎に移動
shift+ctrl+allow key	select by a word	単語毎に選択
	(after selecting area)	（エリア選択後）
ctrl+u	underline	アンダーライン
ctrl+b	bold	太字
ctrl+i	italic	イタリック
ctrl+c	copy	コピー
ctrl+x	cut	切り取り
ctrl+v	paste	貼り付け
excel
f2	modifying a cel	セル内の変更
ctrl+pgup/down	switching sheets	シートの切り替え
ctrl+home	move to the top of the sheet	シートの一番上に移動
ctrl+end	move to the bottom of the sheet	シートの一番下に移動
	(select word(s) or a cel)	（選択してから）
ctrl+1	format cells	セルのフォーマット
ctrl+2	bold	太字
ctrl+3	italic	イタリック
ctrl+4	underline	下線
ctrl+5	strikethrough	取り消し線
word
tab	indent	インデント
ctrl+q	reset indent	インデントのリセット
ctrl+l	list	リスト
ctrl+t	adjust list	リストの調整
ctrl(+shift)+m	indent to the right (left)	インデント右（左）
ctrl+shift+< >	changeing font size	フォントサイズ変更
f7	spell check	スペルチェック
ctrl+f7	thesaurus	同義語検索
ctrl+f10	maximize,restore	最大化、レストア
ctrl+pgup(down)	move by pages	ページ毎に移動
ctrl+home(end)	move to the top(bottom)of the document	ページの一番上（下）に移動
ctrl+shift+w	underline by words	単語毎に下線
outlook (express)
ctrl+y	move to folders	フォルダの移動
ctrl+shift+i	move to inbox	インボックスへ移動
ctrl+m	recieveing mail	メールの取得
ctrl+enter	sending mail currently written	書いているメールを送信する