常連

### 実現したいこと
VBS実行時の警告を無視したい

### 発生している問題・分からないこと
VBSおよびExcelVBAに関する質問です。
下記のVBSを実行するとき、「B.xlsm」が他の端末で開いたままだと、"B.xlsmは編集のためロックされています"というような警告が表示されます。
この際、下記のようなことは可能でしょうか？
・案①：読み取り専用で開く
・案②："B.xlsmは編集のためロックされています"というような警告が表示される場合、VBSのxlApp.Run "OpenBFile"をSKIPするといったことはできますでしょうか？

### エラーメッセージ
```error
"B.xlsmは編集のためロックされています"
```

### 該当のソースコード

```VBS
Dim xlApp, xlBook

' Excelを起動
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True

' Excelファイルを開く（パスは適宜変更）
Set xlBook = xlApp.Workbooks.Open("C:\パス\A.xlsm")

' マクロを実行
xlApp.Run "OpenBFile"

' Excelを終了
xlApp.Quit
```

```VBA
Sub OpenBFile()
    Workbooks.Open Filename:="B.xlsm"
End Sub
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [ ] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [ ] その他

##### 上記の詳細・結果
VBAの下記の前にエラーハンドリングを設定しても、VBSを実行すると同様の警告が出てきてしまいます。
    Workbooks.Open Filename:="B.xlsm"


### 補足
"VBS" , "VBA"

VBSでExcelVBAにて対象ファイルを開くときに警告が出てくる

### 実現したいこと
PDFの生データをPDFのベタデータに変換したいため、chromeでPDFとして印刷しています
自動で実行したいのですが、何かしらのスクリプトで実行できれば教えていただけると助かります。

### 発生している問題・分からないこと
コパイロットでvbsやPowershellで作成してみましたが、実現に至っていません



### 該当のソースコード

```
特になし
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [ ] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [x] その他

##### 上記の詳細・結果
コパイロットでvbsやPowershellで作成してみましたが、実現に至っていません

### 補足
特になし

PDFをPDFで印刷するコード

### 前提・実現したいこと
WinActorの「スクリプト実行」アクティビティでVBScriptを記述し、
「特定の文字列を含む(起動中)ＵＲＬのＩＥのオブジェクトを取得する」挙動を実現したいのですが、
以下のコンパイルエラーが発生してしまいます。
ステートメント
```
エラーメッセージ：「ステートメントがありません」
```

### 該当のソースコード

```ここに言語名を入力
Function getObjIE(strPat)
    Dim KeyWord, ie, RE, Match, Matches
    'Dim strPat As String
    Dim strTest 'As String
    Dim strAns 'As String
     Set ie = Nothing
     Set RE = CreateObject("VBScript.RegExp")
     On Error Resume Next
   For Each obj In CreateObject("Shell.Application").Windows
     strTest = Range(obj.LocationURL).Value
     strPat = Range("https://transit.yahoo.co.jp/search/result?from").Value
   With RE
      .Pattern = strPat
      .IgnoreCase = True
       .Global = True
   End With
      Set Matches = RE.Execute(strTest)
       If TypeName(obj.Document) = "HTMLDocument" Then
         For Each Match In Matches
           If RE.Test(Match.Value) Then
             Set ie = obj
           End If
        End If
     Next
    On Error GoTo 0
   Set RE = Nothing
    If ie Is Nothing Then
        MsgBox "指定のieが見つかりませんでした。"
    Else
        Set getObjIE = ie
    End If
End Function
```
■試した事
・余計なスペースやTabキーによる空白の削除
・””(ダブルクオーテーション)やカンマの使用が適切か確認

本日、初めてVBScriptを記述し、ネットから取得したコードをアレンジした全くの初心者です。
お力添えいただけますよう何卒宜しくお願い致します。

■補足情報（FW/ツールのバージョンなど）
ツール：WinActor Ver.7.1.0

VBScript「ステートメントがありません」エラーを解決したい

現在、動作確認としてvbscriptの練習をしているのですが、msgboxの日本語部分が文字化けしてしまいます。![イメージ説明](0fb8fee45747fd724256360b721e0a56.png)

文字化けするファイルWithtest.vbsのプログラムは以下のようになっています。
```vbscript
set objFile = CreateObject("Scripting.FileSystemObject")
set objFolder = objFile.GetFolder("C:\vbsScript")

With objFolder
	strStatus = strStatus & "サイズ： " & .Size & vbCr
	strStatus = strStatus & "ファイル数： " & .Files.Count & vbCr
	strStatus = strStatus & "サブフォルダ数： " & .SubFolders.Count & vbCr

End With

MsgBox strStatus
```

因みに使用しているエディタはnotepad++でエンコードはUTF-8になっています。
![イメージ説明](21d2abe2cb3ab1a0274bcf367b3b7be6.png)


**UTF-8で文字化けしないように日本語表示する為にはどうしたらよろしいでしょうか？**
宜しくお願い致します。

vbscriptのメッセージが文字化けを直す方法

VBScriptから外部コマンド(DOSコマンド)を管理者権限で実行したいです。
下記のようにしてみたのですが、管理者権限でコマンドプロンプトは立ち上がりましたが
その後のコマンドは実行されませんでした。。
管理者権限で実行までするにはどうしたらよいのでしょうか？

```
rc = MsgBox(".NetFrameworkを有効化します。よろしいですか？", vbYesNo)
If rc = vbYes Then
    Set objShell = WScript.CreateObject("WScript.Shell")
    objShell.Run "runas /user:administrator cmd"
    objShell.Run "Dism.exe /online /enable-feature /featurename:NetFX3 /All /Source:C:\sources\sxs /LimitAccess"
    Set objShell = Nothing
End If

```

VBScriptから外部コマンド(DOSコマンド)を管理者権限で実行したい

![イメージ説明](d3c094305e9b06081a1f3c811dae89bd.png)

VBScriptの機能を用いてメールの送信をサーバー側（Windows Serverv2016）でおこなっております。

現象としまして、
送信できるときもあれば失敗するときもあるような状況でして、
具体的に掘り下げますと、ユーザーがRemoteApp機能を用いて起動されたアプリケーションを操作し、
メールを一度に４通ほど送信すると失敗するときがあり、その際にはエラーメッセージが表示されます（エラー内容は下記に記載）。
※試行回数は少ないですが、８割方失敗。失敗するときは４通すべて失敗します。


２割成功するわけですが、そのときは大体、ユーザーからメールが送信されていないとお問い合わせいただき、
私がサーバーへとリモートで接続し、管理者権限を有するAdministratorユーザーでサーバーにログオン後、
ユーザーに全く同じ操作をしていただくと送信されるというような挙動をします。

これに関してはたまたま運が良く送信されただけで、
私の接続有無は関係がないかもしれません。
（管理者権限で誰かがログオンしていることがVBScriptの実行可否と関係があるとは思えないのですが・・）


ユーザーの環境下ということもあり、
SMTPサーバーのログを調べたりといったことが
なかなか難しく困っております。


とりあえず同じような環境を構築して
検証してみてもこういった問題は発生しませんでした。。
※同じような環境とは、サーバーを用意し、RemoteApp経由で同じプログラム且つ、
　同じVBScriptを用意し実行できる環境。唯一異なる点といえばサーバーへと接続する際にに用いる
　ユーザーは管理者権限を有するユーザー。


なんでも構いません。
「こういった可能性がある」や、「VBScriptはこういう仕様」といったり、
「コーディングに甘い箇所がありこうすべき」などございましたらアドバイスをいただけませんでしょうか。。


### 発生しているエラーメッセージ

Windows Script Host

スクリプト：D:\～（VBSの場所）
　　　　行：27
　　　文字：1
　　エラー：転送においてサーバーに接続できませんでした。
　　コード：80040213
　　ソース：CDO.Message.1


### VBScriptの内容　※送信先のAddress、件名や本文は引数で渡ってきます

```ここに言語を入力
Dim oParam
Dim strTo           ' メール宛先
Dim strSubject      ' 件名
Dim strBody         ' 本文

Set oParam = WScript.Arguments

strTo = oParam(0)
strSubject = oParam(1)
strBody	= oParam(2)

Set objMail = CreateObject("CDO.Message") 
objMail.From = "送信者 <send@xxxxxx.co.jp>"
objMail.To = strTo
objMail.Subject = strSubject
objMail.TextBody = strBody

objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTPサーバー"
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "send@xxxxxx.co.jp"
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "パスワード"
objMail.Configuration.Fields.Update

objMail.Send
```

VBSでのメール送信（CDO.Message）で頻繁にエラーとなってしまう

### 実現したいこと
VBSファイルをタスクスケジューラで実行させたいです。
●以下参考URLに沿って設定したのですが、実行できませんでした。
参考サイト：https://plus-info-tech.com/macro-auto-run
※PCはログオン状態で実施しました。

●タスクスケジューラ設定状況
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-06-09/f437ada9-3ee3-40f7-99e4-1975830c8ad0.jpeg)
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-06-09/c28792b0-5c64-4e2b-a621-1779857b3960.jpeg)
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-06-09/661557a0-7586-4520-a5cb-8760aaaebe58.jpeg)
### 発生している問題・エラーメッセージ
●以下実行ボタンを押しても、トリガー設定しても動作しませんでした。
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-06-09/b911a92b-24c6-49fd-919c-6c51ca391356.jpeg)

●タスクスケジューラの履歴は以下になっていました。
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-06-09/c54fd246-1ce1-48fe-abc9-a8a260060708.jpeg)

### 該当のソースコード

```VBS
Dim excelApp,macro

file = WScript.Arguments(0)
macro = WScript.Arguments(1)

Set excelApp = CreateObject("Excel.Application")

excelApp.Visible = False        'Excelを非表示にする
excelApp.DisplayAlerts = False  'ポップアップメッセージを非表示にする
excelApp.AutomationSecurity = 1 'マクロを有効にする

'Excelファイルを読み取り専用で開く
excelApp.Workbooks.Open file,3,False

'WScript.Echo "---マクロを実行します---"

'マクロを実行する
excelApp.Run macro

'WScript.Echo "---マクロの実行が完了しました---"

'Excelを終了する
excelApp.Quit

Set excelApp = Nothing
```
```VBA
Sub 転記()
    Path = "\\vvv\www\xxx\yyy"　’vvv,www,xxx,yyyはパス名になります。
    Workbooks.Add                                                                                                                       'ファイル作成
    ThisWorkbook.Sheets("A").Copy After:=ActiveWorkbook.Sheets(Sheets.Count)    '新規ファイルの最終シートへコピー
    Application.DisplayAlerts = False                                                                                             'メッセージ非表示※上書き保存
        For Each ws In Sheets
            If ws.Name <> "A" Then ws.Delete                                                                   'ワークシート名が"溶接機一覧"以外は削除
        Next ws
    ActiveWorkbook.SaveAs Filename:=Path & "\" & "一覧"  '保存
    ActiveWorkbook.Close '新規ファイル閉じる
    Application.DisplayAlerts = True  'メッセージ表示※上書き保存
    
End Sub

```


### 試したこと
●コマンドプロンプト上では問題なくVBScriptを実行する事が出来ました。


### 補足情報（FW/ツールのバージョンなど）
●VBAファイルとvbs保管場所
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-06-09/20d32354-0124-4dd2-a790-fbc6bc3ddf0b.jpeg)
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-06-09/ccb2045f-360b-4e57-a82b-bab5330386ba.jpeg)

●VBA実行後上書きされるファイル保管場所
※朱字はパス名になります。
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-06-09/c5a15d74-8ded-4877-95fe-206e314e02bc.jpeg)
ここにより詳細な情報を記載してください。
### 追加資料
①トリガー設定
→起動条件が満たされていないとエラーが出てしまいます。
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-06-09/511394a2-2b48-465c-bbd8-8f5677744ac2.jpeg)
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-06-09/08bac490-d05d-4733-97c9-e98594334937.jpeg)


タスクスケジューラによるVBScript実行

「コード1」のようなコードでコントロールパネルの「ユーザー アカウント」を起動して「ユーザーがこのコンピューターを使うには...」のチェックを外したいのですが AppActivate() からは false が返るだけで意図した動作ができません。

以下は試したこと、わかったことです
・Wscript.Quit しないで Sendkeys() を実行させるようなコードに変更してもチェックは外れませんでした
・「コード2」の状態でキーボードで直接 Alt+E を行うとチェックは外れるのでアクティブになっているように見えるのですがコード上ではうまくいっていません

AppActivate() に渡す引数が間違っている可能性もありそうです。
環境はwindows8.1です。

どなたかご存知の方、ご教授頂けないでしょうか。
```vbs
' コード1
Option Explicit
Dim shell, i
Set shell = CreateObject("WScript.Shell")
shell.Run("control userpasswords2")
Do Until shell.AppActivate("アカウント")
  Wscript.Sleep 1000
  If i > 10 Then Wscript.Quit
  i = i + 1
Loop

shell.Sendkeys("%E{-}")
shell.Sendkeys("{ENTER}")
```

```vbs
' コード2
Option Explicit
Dim shell, i
Set shell = CreateObject("WScript.Shell")
shell.Run("control userpasswords2")
shell.AppActivate("アカウント")
```