VBScriptの活用について

質問

初心者な質問で申し訳ありません。
「VBScript」についてなのですが、主にＡＳＰの記述に使われる・・・というのはネットで見かけるんですけどそれ以外にの活用法はあるのでしょうか？
活用しようと思えばあるのかもしれまんせが、一般的に言語等やＰＣに詳しい皆様の意見をお聞きしたいのですが・・・。こういうものにも使う！とかあればお聞かせください！よろしくお願いいたします。

回答No.1

noname#6131 · ベストアンサー

Windows Scripting Host(WSH)という機能を使うと、従来のバッチファイルの代わりとして利用できます。

http://www.microsoft.com/japan/msdn/scripting/default.asp
が詳しいです。

そのほか、VBAのようにWordやExcelファイルを操作することもできるようですよ。

参考URL：

http://www.microsoft.com/japan/msdn/scripting/default.asp

お礼

なるほど～ありがとうございます！参考になりました！

回答No.4

tak2003

VBよりも仕事が多いことがあります。
ファイル関係　通信関係　HP関係のちょっとした事（動作チェックツール、要らないファイルを削除ツール等）をするのにVBで書くより、VBSが使われることが多いです。
開発環境が全く無い場所でもスクリプトがあれば動くので、PCを選ばない利点もあります。
VBの重いランタイムも要らないので、HDも軽くなります。

しかし、VBで書くより、環境が悪い分しっかりと構文を覚えていないと使えないデメリットもありはったりも効かず大変みたいです。VBS使いは尊敬の対象＆変わり者として認識されています。

お礼

そうなんですかー！とても参考になりました_(._.)_

回答No.3

you-m

過去にこんな質問に回答したことがあります。
ご参考までに・・・

参考URL：

http://okweb.jp/kotaeru.php3?q=244284

お礼

ありがとうございました。参考になりました。

回答No.2

ittochan

こんな風に使ってます。

１．WindowsXPのGuestユーザーのオン、オフ

set WshShell = WScript.CreateObject("WScript.Shell")
set objUS = WScript.CreateObject("Shell.User")
set objLM = WScript.CreateObject("Shell.LocalMachine")
'ログオフ
'flag = objUS.logoff()

'ゲストユーザーをオンにする
'objLM.EnableGuest 1

'ゲストユーザーをオフにする
objLM.DisableGuest 1

２．「ネットワーク接続」にある
ネットワークカードの「無効」→「有効」

set WshShell = WScript.CreateObject("WScript.Shell")
set Shell = CreateObject("Shell.Application")

Set oFolder = Shell.NameSpace("Shell:ConnectionsFolder")
Set oFolderItems = oFolder.Items()
dim nic(),total,stra,oFolder,oFolderItems,oVerbs
redim nic(oFolderItems.Count)
'stra = ""
'for i=0 to oFolderItems.Count-1
' stra = stra & oFolderItems.Item(i).Name & vbcr
'next
'msgbox stra
for i=0 to oFolderItems.Count-1
ans = CheckVerb(oFolderItems.Item(i), "無効にする")
if ans<>-1 then
oFolderItems.Item(i).Verbs.Item(ans).DoIt
nic(i) = 1
end if
next

WScript.Sleep 5000

for i=0 to oFolderItems.Count-1
if nic(i)=1 then
do
ans = CheckVerb(oFolderItems.Item(i), "有効にする")
loop while ans=-1
oFolderItems.Item(i).Verbs.Item(ans).DoIt
end if
next
WScript.Sleep 1000
WScript.Quit

function CheckVerb(obj,name)
dim oVerbs, i
Set oVerbs = obj.Verbs
for i=0 to oVerbs.Count-1
if instr(oVerbs.Item(i).Name, name) > 0 then
CheckVerb = i
Exit for
else
CheckVerb = -1
end if
next
end function

３．あとは↓とか。

参考URL：

http://www.okweb.ne.jp/kotaeru.php3?q=507625

お礼

ありがとうございます！む・・・難しそう（＠＠）
でもこういう使い方もあるんですね。参考になりました。