常連

VBSでファイルを選択して値を取得したいのですが、うまくいきません。
(エラー１)
（なお、ダイアログ画面でキャンセルを押しても、２のエラーになります）
Excel がインストールされていない環境を想定しています。
下記方法で可能でしょうか。よろしくお願いします。

```VBS
Dim shell
Set shell = CreateObject("Shell.Application")
Set fileName =  Shell.BrowseForFolder(&O0, "ファイルを選んでください", &H10 + &H4000, "C:\"  )
If Not filename Is Nothing Then MsgBox fileName.Items.Item.Path
If fileName = "False" Then WScript.Quit
```

＜エラー１＞
スクリプト:C:\Local\test.vbs
行:	3
文字:	1
エラー:	エラーを特定できません 
コード:	80004005
ソース: 	(null)


＜エラー２＞
スクリプト:C:\Local\test.vbs
行:	5
文字:	1
エラー:	オブジェクト型の変数は設定されていません。
コード:	800A005B
ソース: 	Microsoft VBScript 実行時エラー

VBS (VBScript) でダイアログからファイルを選択する

### 実現したいこと

CSVファイルをCreateTextFileで作成しようとしています。文字コードは初期設定でASCIIになると
認識していたのですが、仮の作成段階で、結果が一貫していないように思え、
質問させていただきます。今回はASCIIで作成したいのです。

よろしくお願いします。
### 前提

エクセルのVBAからコードを書きました。
Microsoft Scripting Runtimeに参照設定をしました。
### 発生している問題・エラーメッセージ

```
作成したCSVファイルをメモ帳で開いたときに、文字コードが
ANSIになったり、UTF-8になったりしています。

コードのミスなのか、何か誤って認識しているのか、わかりません。
しかもCreateTextファイルで作成されるテキストファイルはANSIかUTF-16のどちらかと思っていたのですが。。。
```

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

```ここに言語名を入力
Sub test()

Dim myFSO As New FileSystemObject
Dim myCSV As TextStream
Set myCSV = myFSO.CreateTextFile("C:\123.csv")

Dim str1 As String

str1 = "あいうえお"

myCSV.WriteLine str1

myCSV.Close
Set myCSV = Nothing
Set myFSO = Nothing

End Sub
```

### 試したこと

上記のコードで作成されたCSVファイルをメモ帳で開くと、ANSIと表示されます(その1.png)![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-09-22/939670f8-88e1-4c53-b00c-440f90e927b9.png)。

ただ、コードの変数 strを　”123abc”　や　"***"  などにして、メモ帳で開くとUTF-8と表示されます
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-09-22/69b57f94-bcad-4616-8c83-5369101afa93.png)![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-09-22/8ac67f8e-bded-4d21-86e8-012afb7a3c1d.png)(その2.png)(その3.png)。

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。


作成したテキストファイル(CSV)の文字コードについて

### 前提・実現したいこと
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実行

### 実現したいこと

- [ ] ラベルプリンタの状態を監視したい

### 前提
LANケーブルで接続しているラベルプリンタで、死活・ラベル切れ・リボン切れ等の情報を監視するプログラムを開発したいと思っています。

対象プリンタ：KSW-1800Plus
プリンタのサイト：https://www.systemwave.jp/printer/1500Plus/1500Plus.html
プリンタが接続されているPC：Windows10
稼働状況：常時稼働

### 発生している問題

購入先のサイトを確認すると、コマンドリファレンスが存在するのですが、LANで接続されているプリンタにコマンドを送信する方法がわかりません。
また、レスポンスの内容次第で、指定フォルダへエラーログの出力またはメールの送信等で情報を知らせるロジックを組みたいため、一方通行の送信ではなくレスポンスの受け取りが必要ですが方法がわかりません。


### 試したこと
プリンタ側のLANケーブルを抜いた状態で、コマンドプロンプトにて
”cscript C:\Windows\System32\Printing_Admin_Scripts\ja-JP\prnmngr.vbs -l”
を実行しても「プリンターの状態：アイドル」、「プリンターの状態の詳細：不明」のままでオンラインの状態と変わらないレスポンスでした。

追加情報
メーカーに直接聞いたところ、コマンドの使い方についてはシリアル通信を前提としており、LANではわからないとのことで、telnet接続も非対応とのことでした。


### 補足情報
開発するための言語にこだわりはありませんが、バッチファイル、VBS辺りを活用したいと考えています。
開発可能な言語としてはPHP、Python、VBでも開発可能ですが、ラベルプリンタを動かしているPCがスタンドアロン状態であり、極力プログラム言語のインストール等を避けたいため、VBS辺りで開発できると幸いです。

