VBScript on qwerty.work

Windows Updateを実行するVBスクリプト「windowsupdate.vbs」

Mon, 11 Nov 2019 23:28:29 +0900

スクリプトからWindows Update

Windows10のアップデートに時間がかかりすぎるので、スクリプトでサクッとアップデートできないかな？と前回「WUA_SearchDownloadInstall.vbs」を使用した方法を見つけてメモしましたが、他にもみつけたのでメモ。これもすべてのWindowsで使えるようです。

https://yamanxworld.blogspot.com/2010/07/windows-scripting-windows-update.html https://yamanxworld.blogspot.com/2010/07/windows-scripting-windows-update.html

https://gist.github.com/the-takeo/71c863327399f8761828dcfe21e59da1 https://gist.github.com/the-takeo/71c863327399f8761828dcfe21e59da1

まずはソースを.vbsで保存

上記のページあるソースをメモ帳などに貼り付け、WindowsUpdate.vbsなど、適当に .vbs を付けて保存します。

コマンドプロンプトからcscriptで呼び出す

上記のWindowsUpdate.vbsを管理者として起動したコマンドプロンプトからcscriptで呼び出して実行します。

WindowsUpdate.vbsをCドライブ直下に保存していた場合

cscript "c:\WindowsUpdate.vbs"

これだけで実行できます。

重要な更新プログラムのみインストールする設定になっている

オプションの更新プログラムなどは除き、重要な更新プログラムのみをインストールする設定になっています。以下のコードはその部分になります。

updateSearcher.Search("IsInstalled=0 and Type='Software' and AutoSelectOnWebSites=1")

パラメーターの意味

  パラメーター
  意味




  IsInstalled=0
  インストールされていない更新プログラムを対象にする


  Type='Software'
  更新プログラムが対象


  AutoSelectOnWebSites=1
  重要な更新プログラムのみを適用

パラメーターの参考サイト

https://docs.microsoft.com/en-us/windows/win32/api/wuapi/nf-wuapi-iupdatesearcher-search https://docs.microsoft.com/en-us/windows/win32/api/wuapi/nf-wuapi-iupdatesearcher-search

その他類似のスクリプトの参考サイト

http://shinke1987.net/?p=276 http://shinke1987.net/?p=276

https://blog.osakana.net/archives/8270 https://blog.osakana.net/archives/8270

https://www.atmarkit.co.jp/ait/articles/1808/06/news012.html https://www.atmarkit.co.jp/ait/articles/1808/06/news012.html

http://qiita.com/Marukaziler/items/54bfbf054a372328be3f http://qiita.com/Marukaziler/items/54bfbf054a372328be3f

Windows Updateを実行するVBスクリプト「WUA_SearchDownloadInstall.vbs」

Mon, 11 Nov 2019 23:14:53 +0900

スクリプトからWindows Update

Windows10のアップデートに時間がかかりすぎるので、スクリプトでサクッとアップデートできないかな？と探してみたらありました。すべてのWindowsで使えるようです。

https://docs.microsoft.com/en-us/previous-versions/windows/desktop/aa387101%28v%3dvs.85%29 https://docs.microsoft.com/en-us/previous-versions/windows/desktop/aa387101%28v%3dvs.85%29

ソースを.vbsで保存

上記のページあるソースをメモ帳などに貼り付け、WUA_SearchDownloadInstall.vbsなど、適当に .vbs を付けて保存します。

そのソース（WUA_SearchDownloadInstall.vbs）

Set updateSession = CreateObject("Microsoft.Update.Session")
updateSession.ClientApplicationID = "MSDN Sample Script"

'Get update title to search for
WScript.Echo "Enter the title of the update: " & _
"(for example, Update for Windows Rights Management client 1.0)"
updateTitle = WScript.StdIn.Readline

WScript.Echo vbCRLF & "Searching for: " & updateTitle & "..."

Set updateSearcher = updateSession.CreateupdateSearcher()

'Search for all software updates, already installed and not installed
Set searchResult = _
updateSearcher.Search("Type='Software'")

Set updateToInstall = CreateObject("Microsoft.Update.UpdateColl")

updateIsApplicable = False

'Cycle through search results to look for the update title
For i = 0 To searchResult.Updates.Count-1
   Set update = searchResult.Updates.Item(i)
   If UCase(update.Title) = UCase(updateTitle) Then
   'Update in list of applicable updates 
   'Determine if it is already installed or not
      If update.IsInstalled = False Then
         WScript.Echo vbCRLF & _
         "Result: Update applicable, not installed."
         updateIsApplicable = True
         updateToInstall.Add(update)
      Else 
         'Update is installed so notify user and quit
         WScript.Echo vbCRLF & _
         "Result: Update applicable, already installed."
         updateIsApplicable = True
         WScript.Quit 
      End If
   End If 
Next

If updateIsApplicable = False Then
   WScript.Echo "Result: Update is not applicable to this machine."
   WScript.Quit
End If

WScript.Echo vbCRLF & "Would you like to install now? (Y/N)"
stdInput = WScript.StdIn.Readline
 
If (strInput = "N" or strInput = "n") Then 
   WScript.Quit
ElseIf  (stdInput = "Y" OR stdInput = "y") Then
   'Download update
   Set downloader = updateSession.CreateUpdateDownloader() 
   downloader.Updates = updateToInstall
   WScript.Echo vbCRLF & "Downloading..."
   Set downloadResult = downloader.Download()
   WScript.Echo "Download Result: " & downloadResult.ResultCode
  
   'Install Update
   Set installer = updateSession.CreateUpdateInstaller()
   WScript.Echo vbCRLF & "Installing..."
   installer.Updates = updateToInstall
   Set installationResult = installer.Install()
  
   'Output the result of the installation
   WScript.Echo "Installation Result: " & _
   installationResult.ResultCode
   WScript.Echo "Reboot Required: " & _
   installationResult.RebootRequired 
End If

コマンドプロンプトからcscriptで呼び出す

上記のWUA_SearchDownloadInstall.vbsを管理者として起動したコマンドプロンプトからcscriptで呼び出して実行します。

WUA_SearchDownloadInstall.vbsをCドライブ直下に保存していた場合

cscript "c:\WUA_SearchDownloadInstall.vbs"

これだけで実行できます。

重要な更新プログラムのみインストールしたいとき

オプションの更新プログラムなどは除き、重要な更新プログラムのみをインストールした場合は。検索対象を指定するupdateSearcher.Search("Type='Software'")の部分を以下に変更します。

updateSearcher.Search("IsInstalled=0 and Type='Software' and AutoSelectOnWebSites=1")

パラメーターの意味

  パラメーター
  意味




  IsInstalled=0
  インストールされていない更新プログラムを対象にする


  Type='Software'
  更新プログラムが対象


  AutoSelectOnWebSites=1
  重要な更新プログラムのみを適用

パラメーターの参考サイト

https://docs.microsoft.com/en-us/windows/win32/api/wuapi/nf-wuapi-iupdatesearcher-search https://docs.microsoft.com/en-us/windows/win32/api/wuapi/nf-wuapi-iupdatesearcher-search

その他類似のスクリプトの参考サイト

http://shinke1987.net/?p=276 http://shinke1987.net/?p=276

https://blog.osakana.net/archives/8270 https://blog.osakana.net/archives/8270

https://www.atmarkit.co.jp/ait/articles/1808/06/news012.html https://www.atmarkit.co.jp/ait/articles/1808/06/news012.html

http://qiita.com/Marukaziler/items/54bfbf054a372328be3f http://qiita.com/Marukaziler/items/54bfbf054a372328be3f

ネットワークドライブに再接続できませんでしたの対処-その2

Tue, 23 Feb 2016 19:57:32 +0900

原因がよくわからないのですが、Windows10を起動した際に「ネットワークドライブに再接続できませんでした。」とエラーが出て、マイコンピュータを開くと登録しているネットワークドライブに×が付いています。

コントロールパネルの資格情報マネージャーのWindows資格情報ネットワークドライブのユーザー名とパスワードをあらかじめ登録しておいた状態で以下のスクリプトを実行したらうまくいったのでメモ。

ちなみに管理者権限でログオンした状態で実行しています。ユーザー権限でログオンした場合は試していません。

NET USEコマンドをバッチファイルで実行

以下のコマンドをテキストエディタに貼り付けて**○○.bat**で保存し、ダブルクリックして手動で実行するか、スタートアップやタスクスケジューラに登録して使います。

元々登録しているネットワークドライブを一度、/deleteで切断してドライブパスを割り当て再度接続します。

net use W: /delete
net use X: /delete
net use Y: /delete
net use Z: /delete
net use W: \\NAS\Video /persistent:YES
net use X: \\NAS\Music /persistent:YES
net use Y: \\NAS\Photo /persistent:YES
net use Z: \\NAS\Share /persistent:YES

とりあえず、これでうまくいきました。

ネットワークドライブにアクセスするためにはユーザー名とパスワードが必要なのですが、資格情報マネージャーにパスワードを登録しているからか、本来接続に必要な**/user:○○**とパスワードの記載を省略してもOKでした。

NET USEコマンド

Net use - TechNet - Microsoft

VBスクリプトで実行

上記と同じような感じで、テキストエディタに貼り付けて**○○.vbs**で保存し、ダブルクリックして手動で実行するか、スタートアップやタスクスケジューラに登録して使います。

On Error Resume Next

'10秒遅延させる
WScript.sleep 10000

Set objWshNetwork = WScript.CreateObject("WScript.Network")

objWshNetwork.MapNetworkDrive "W:", "\\NAS\Video"
objWshNetwork.MapNetworkDrive "X:", "\\NASX\Music"
objWshNetwork.MapNetworkDrive "Y:", "\\NASX\Photo"
objWshNetwork.MapNetworkDrive "Z:", "\\NASX\Share"

Set objWshNetwork = Nothing

こちらもとりあえず、これでうまくいきました。

VBScript on qwerty.work

Windows Updateを実行するVBスクリプト「windowsupdate.vbs」

スクリプトからWindows Update

まずはソースを.vbsで保存

コマンドプロンプトからcscriptで呼び出す

WindowsUpdate.vbsをCドライブ直下に保存していた場合

重要な更新プログラムのみインストールする設定になっている

パラメーターの意味

その他類似のスクリプトの参考サイト

Windows Updateを実行するVBスクリプト「WUA_SearchDownloadInstall.vbs」

スクリプトからWindows Update

ソースを.vbsで保存

そのソース（WUA_SearchDownloadInstall.vbs）

コマンドプロンプトからcscriptで呼び出す

WUA_SearchDownloadInstall.vbsをCドライブ直下に保存していた場合

重要な更新プログラムのみインストールしたいとき

パラメーターの意味

その他類似のスクリプトの参考サイト

ネットワークドライブに再接続できませんでしたの対処-その2

NET USEコマンドをバッチファイルで実行

NET USEコマンド

VBスクリプトで実行

参考

関連