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
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。