質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
Windows 10

Windows 10は、マイクロソフト社がリリースしたOSです。Modern UIを標準画面にした8.1から、10では再びデスクトップ主体に戻され、UIも変更されています。PCやスマホ、タブレットなど様々なデバイスに幅広く対応していることが特徴です。

Internet Explorer

Internet Explorer(IE;MSIE)はマイクロソフトが開発したウェブブラウザです。Microsoft Windowsに組み込まれています。

VBScript

VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

HTML

HTMLとは、ウェブ上の文書を記述・作成するためのマークアップ言語のことです。文章の中に記述することで、文書の論理構造などを設定することができます。ハイパーリンクを設定できるハイパーテキストであり、画像・リスト・表などのデータファイルをリンクする情報に結びつけて情報を整理します。現在あるネットワーク上のほとんどのウェブページはHTMLで作成されています。

Q&A

解決済

1回答

2765閲覧

VBScriptをIE11に対応する

AGUA_Channel

総合スコア14

Windows 10

Windows 10は、マイクロソフト社がリリースしたOSです。Modern UIを標準画面にした8.1から、10では再びデスクトップ主体に戻され、UIも変更されています。PCやスマホ、タブレットなど様々なデバイスに幅広く対応していることが特徴です。

Internet Explorer

Internet Explorer(IE;MSIE)はマイクロソフトが開発したウェブブラウザです。Microsoft Windowsに組み込まれています。

VBScript

VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

HTML

HTMLとは、ウェブ上の文書を記述・作成するためのマークアップ言語のことです。文章の中に記述することで、文書の論理構造などを設定することができます。ハイパーリンクを設定できるハイパーテキストであり、画像・リスト・表などのデータファイルをリンクする情報に結びつけて情報を整理します。現在あるネットワーク上のほとんどのウェブページはHTMLで作成されています。

0グッド

0クリップ

投稿2021/01/14 13:08

編集2021/01/14 13:26

実現したいこと

現在、以下のHTMLの更改をしているのですが、スクリプト関係の知識があまりないため、どのようにすればIE11と同じ動きができるようになるか分かりません。
ご教授いただければ幸いです。
また、以下の条件を満たすものとしたいです。
0. HTMLに埋め込むものである
0. IE11(Windows10)で使用できること
0. if文に記載されている条件でリモートデスクトップを呼び出し、引数で定めたRDPファイルを使用してリモートデスクトップにて開く。という動作が出来れば良い

前提

  1. レジストリにて値は変更済み
  2. IE8(Windows7)ではサーバ上でも実行可能
  3. IE8及びIE11のローカル上では実行可能

発生している問題・エラーメッセージ

execRDP は定義されていません(IE11開発者ツールのコンソール上での表記)

該当のソースコード(一部省略)

'以下HEADタグ内の記述 <meta http-equiv="X-UA-Compatible" content="IE=8"> <Script type="text/vbscript" language="vbscript"> <!-- Sub execRDP(next_url)  'ネットワークドライブにアクセスするオブジェクト作成  Set ObjNetwork = CreateObject("WScript.Network")  'スクリプトを実行しているコンピューターの情報(hostname)を取得  hostname = objNetwork.ComputerName  'ネットワークドライブにアクセスするオブジェクトにNothingを入れる  ObjNetwork = Nothing  '正規表現を代入するオブジェクト作成  Set objReg = new Reg  '大文字小文字区別なし  objReg.IgnoreCase = True  '正規表現を設定する  objReg.pattern = "^abc$"  'objRegに当てはまらない時に  if objReg.Test(hostname) = false Then   '使用アプリケーションオブジェクト作成   Set ObjWShell = CreateObject("WScript.Shell")   '使用アプリケーション指定(リモートデスクトップ接続)   rdpexe = %SystemRoot%\system32\mstsc   '開くURLの変数を作成   execFile = next_url   '実行する   retVal = objWShell.Run(edpExe & execFile,1,false)   '使用アプリケーションオブジェクトにNothingを入れる   objWShell = Nothing  End if  '正規表現を代入するオブジェクトにNothingを入れる  objReg = Nothing End Sub --> </script> '以下BODYタグ内の記述 <a href="#" onclick="vbscript:execRDP('RDPファイル')"></a>

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

IE8及びIE11のローカル上では実行可能

ということは、当該のドメインについてIEのセキュリティ設定を落とせば通るという可能性もあります。

投稿2021/01/14 13:23

maisumakun

総合スコア145121

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問