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

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

ただいまの
回答率

87.36%

vbsのobjExplorer.Document.Body.InnerHTMLにてエラー

受付中

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 3,401

score 87

vbsにて作成したツールにて、
objExplorer.Document.Body.InnerHTMLの処理部分で下記エラーが発生します。

リモートサーバーが存在しないか利用できません:'Document'
コード:800A01CE

特定の端末のみ発生するみたいで、ソース自体に問題はないと思っているのですが、、
なにか想定される原因はありますでしょうか?

Option Explicit


Dim rc
dim objWShell,objShell,app,WS_S,DIR_SOURCE,DIR_DEST,FilesInZip,objFolder 


Sub unzip()
    '解凍するZIPファイル
DIR_SOURCE = "C:\sources\sxs.zip"
'解凍先
DIR_DEST = "C:\sources"

'定数
Const FOF_SILENT            = &H0&    '進捗ダイアログを表示する    。
Const FOF_NOCONFIRMATION    = &H10    '上書き確認ダイアログを表示しない([すべて上書き]と同じ)。

'**************************************************************
 msgbox "zipの解凍を始めます"

  'オブジェクト生成
  Set objShell = CreateObject("Shell.Application")

  Set FilesInZip = objShell.NameSpace(DIR_SOURCE).items
  Set objFolder = objShell.NameSpace(DIR_DEST)




  '解凍
  If (Not objFolder Is Nothing) Then
     objFolder.CopyHere FilesInZip, FOF_NOCONFIRMATION + FOF_SILENT
  End If

  msgbox "解凍完了しました"

End Sub

'.NetFrameWork3.5を有効化する処理
Function netfx()
rc = MsgBox(".NetFramework3.5を有効化します。よろしいですか?", vbYesNo)
If rc = vbYes Then
    Set app = Wscript.CreateObject("Shell.Application")
    app.ShellExecute "Dism.exe", "/online /enable-feature /featurename:NetFX3 /All /Source:C:\sources\sxs /LimitAccess", ,"runas"


End If

netfx = 1

End Function

'フォルダ削除処理
Sub delete()
    Dim fobj,tobj
    msgbox "削除処理を開始します。適用処理が終わったことを確認してからOKボタンを押下してください。"
    'ファイルシステムオブジェクトの作成
    set fobj = CreateObject("Scripting.FileSystemObject")
    set tobj = CreateObject("Scripting.FileSystemObject")

    'フォルダを削除
    tobj.deletefile("ファイルパス")
    fobj.deletefolder("ファイルパス")

End Sub
'########メイン処理##############


dim strComputer, objWMIService, colItems, objItem
dim intHorizontal, intVertical, objExplorer

strComputer = "." 
set objWMIService = GetObject("Winmgmts:\\" & strComputer & "\root\cimv2") 
set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")


'for each objItem in colItems
'    intHorizontal = objItem.ScreenWidth
'    intVertical = objItem.ScreenHeight
'next


set objExplorer = CreateObject _
    ("InternetExplorer.Application")

objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Left = 200
objExplorer.Top =100
'objExplorer.Left = (intHorizontal - 400) / 2
'objExplorer.Top = (intVertical - 200) / 2
objExplorer.Width = 400
objExplorer.Height = 200
objExplorer.Visible = 1

objExplorer.Document.Body.Style.Cursor = "wait"

objExplorer.Document.Title = "Logon script in progress"
objExplorer.Document.Body.InnerHTML = "<br> zipを解凍します " _
    & "<br> しばらくお待ちください。"

'Zipファイル展開
Call unzip()

'.NetFrameWork3.5を有効化
objExplorer.Document.Body.InnerHTML = "<br>  .NetFramework3.5の適用中"
dim result
result = netfx()

'削除
if result = 1 Then
    Call delete()
End If

objExplorer.Document.Body.InnerHTML = "<br> 適用完了しました."
objExplorer.Document.Body.Style.Cursor = "default"


wscript.sleep 2000

objExplorer.Quit
  • 気になる質問をクリップする

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

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

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

0

Microsoft Vbscript Runtime Error 800a01ce error message - Windows XP, Vista, 7 ,8 & 10にはシステムファイルが破損している場合にも出ると書いてますが。。。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

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

  • ただいまの回答率 87.36%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る