Tech-Ezo (Hokkaido PC and Network Users Group)
 Top Page  |  What's Tech-Ezo  |  Next Seminar  |  Seminar Log  |  Seminar Plan  |  Tips  |  life  |  Link  |
Scr.002 逆引きWSH(VBScript)サンプル集 − その他のTips編(029〜038)
[WSHサンプル集へ戻る]

その他のTips編(029〜038)


WSH.029 特殊フォルダ名を取得する(デスクトップの実体など) 戻る

自分が使用中のデスクトップのフォルダ名を表示する

Set ws = WScript.CreateObject("WScript.Shell")
WScript.Echo ws.SpecialFolders("Desktop")

そのほかの情報

プロパティ 意味 上記の例で表示させた結果
AllUsersDesktop デスクトップ(共通) C:\Documents and Settings\All Users\デスクトップ
AllUsersStartMenu スタートメニュー(共通) C:\Documents and Settings\All Users\スタート メニュー
AllUsersPrograms スタートメニュー内の「プログラム」フォルダ(共通) C:\Documents and Settings\All Users\スタート メニュー\プログラム
AllUsersStartUp スタートメニュー内の「スタートアップ」フォルダ(共通) C:\Documents and Settings\All Users\スタート メニュー\プログラム\スタートアップ
Desktop デスクトップ C:\Documents and Settings\TechEzo\デスクトップ
Favorits お気に入り  
Fonts フォント C:\WINNT\Fonts
MyDocuments マイドキュメント C:\Documents and Settings\TechEzo\My Documents
NetHood マイネットワーク C:\Documents and Settings\TechEzo\NetHood
PrintHood プリンタ C:\Documents and Settings\TechEzo\PrintHood
Programs スタートメニュー内の「プログラム」フォルダ C:\Documents and Settings\TechEzo\スタート メニュー\プログラム
Recent 最近使ったファイル C:\Documents and Settings\TechEzo\Recent
SendTo 送るメニュー C:\Documents and Settings\TechEzo\SendTo
StartMenu スタートメニュー C:\Documents and Settings\TechEzo\スタート メニュー
Startup スタートメニュー内の「スタートアップ」フォルダ C:\Documents and Settings\TechEzo\スタート メニュー\プログラム\スタートアップ
Templates テンプレート C:\Documents and Settings\TechEzo\Templates

上記以外のフォルダ(インストール先、システムフォルダ、テンポラリフォルダ)

Set fso = CreateObject("Scripting.FileSystemObject")
Set sf = fso.GetSpecialFolder(0)   '  Windows インストール先
WScript.Echo sp.Path
Set sf = fso.GetSpecialFolder(1)   '  Windows システムフォルダ
WScript.Echo sp.Path
Set sf = fso.GetSpecialFolder(2)   '  テンポラリフォルダ
WScript.Echo sp.Path


WSH.030 コンピュータ名を取得する 戻る

使っているPCのコンピュータ名を表示する

Set net = CreateObject("WScript.Network")
WScript.Echo net.ComputerName   ' コンピュータ名
WScript.Echo net.UserDomain     ' 参加中のドメイン名
WScript.Echo net.UserName       ' ドメインに入ったときのユーザー名


WSH.031 ネットワークドライブの割り当て 戻る

ファイルサーバ上のホームディレクトリをTドライブとして割り当てる

Set net = WScript.CreateObject("WScript.Network")
strName = net.UserName
net.MapNetworkDrive "T:", "\\fileserver\FileServer\home\TechEzo"


WSH.032 ショートカットを作成する 戻る

電卓のショートカットをデスクトップ上に作成する

Set fso = CreateObject("Scripting.FileSystemObject")
Set winF = fso.GetSpecialFolder(1)    ' システムフォルダ取得
Set ws = CreateObject("WScript.Shell")
desktopF = ws.SpecialFolders("Desktop") ' デスクトップフォルダ取得
' ショートカット作成
Set shortcut = ws.CreateShortcut(desktopF & "\calc.lnk")
With shortcut
    .TargetPath = winF & "\calc.exe"
    .WorkingDirectory = desktopF
    .Save
End With


WSH.033 アプリケーションを起動する 戻る

メモ帳を立ち上げる

set ws = CreateObject("WScript.Shell")
ws.Run "Notepad"


WSH.034 アプリケーションを操作する(キー入力の自動化) 戻る

メモ帳を立ち上げテキストを入力する

set ws = CreateObject("WScript.Shell")
ws.Run "Notepad"       ' メモ帳の立ち上げ
WScript.Sleep 100      ' 立ち上がるまで若干待つ
ws.AppActivate "無題"  ' メモ帳をアクティブにする
ws.SendKeys "Welcome Tech-Ezo Round23"


WSH.035 Excelを操作する 戻る

Excelを立ち上げセルにテキストを入力する

Set xl = CreateObject("Excel.Application")
xl.Visible = True          ' 立ち上がったExcelが見えるようにする
xl.Workbooks.Add           ' ワークブックを新規に追加
xl.Range("A1") = "ようこそ! Tech-Ezo Round 23 へ"


WSH.036 コマンドラインパラメタを取得する 戻る

コマンドラインに指定されたパラメタを全て表示する

Set arg = WScript.Arguments
For i = 0 to arg.Count - 1
    WScript.Echo arg(i)
Next
※ ドラック&ドロップも同様のスクリプトで取得できる


WSH.037 Windowsのバージョン(NT系)を表示する 戻る

Windowsのバージョン(NT系)を表示する

Set ws = CreateObject("Wscript.Shell")
Wscript.Echo ws.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\Curren
tVersion\CurrentVersion")

IEの「ホームページ」を変更する

Set ws = CreateObject("WScript.Shell")
ws.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start
Page", "http://www.techezo.jp/"


WSH.038 イベントログへの書き込み 戻る

スクリプトの終了状態(正常、異常)をイベントログに書き込む

Set ws = CreateObject("WScript.Shell")
ws.LogEvent 0, "正常終了"
ws.LogEvent 1, "異常終了"
※ WindowsNT系のOSではイベントログに書き込まれるが、Windows 95系のOSではシステムフォルダのWSH.logに書き込まれる。

[WSHサンプル集へ戻る]

-
※全ては自己責任でお願いします。 最終更新日 2004.3.9