vbscript内にvbscriptを記述
option explicit
on error resume next
dim objie, objwshell
set objwshell = createobject("wscript.shell")
objwshell.appactivate "microsoft internet explorer"
set objie = createobject("internetexplorer.application")
objie.width = 380
objie.height = 100
objie.navigate "about:blank"
objie.document.write "<html><head><title>終了処理</title><script language='vbscript'>" & vbcrlf
objie.document.write "option explicit" & vbcrlf
objie.document.write "function osu()" & vbcrlf
objie.document.write " dim aaa" & vbcrlf
objie.document.write " Set aaa = CreateObject('Wscript.Shell')" & vbcrlf
objie.document.write " aaa.run 'wscript ログオフ.vbs', 1, true" & vbcrlf
objie.document.write " set aaa = nothing" & vbcrlf
objie.document.write "end function" & vbcrlf
objie.document.write "</script></head>" & vbcrlf
objie.document.write "<body bgcolor='#CCCCCC' style='overflow:hidden'><form name='form1'>" & vbcrlf
objie.document.write "<input type='button' name='button1' value='ログオフ' onClick='osu()'>" & vbcrlf
objie.document.write "</form></body></html>" & vbcrlf
objie.visible = true
objie.toolbar = false
objie.statusbar = false
objie.resizable = false
set objwshell = nothing
set objie = nothing
上記のプログラムを［．ｖｂｓ］という拡張子で保存。
これは、ｖｂｓファイルをクリックするとＩＥの画面が出て、ログオフのボタンをクリックするとログオフするというものなのですが、うまくいきません。
ｖｂｓの中にまたｖｂｓを記述しているからでしょうか？
お礼
ありがとうございました。 この方法で解決することができました。 本当に感謝しています。