VBSでコマンドを呼び出しWindowsイベントログをデスクトップに出力する方法

Question

###実現したいこと、困っていること
VBSでコマンドを呼び出しWindowsイベントログをデスクトップに出力したいです。
現在C:/EventLogを指定し、内容は正しくとれています。
あとは出力先をデスクトップにするだけだと思うのですが、ユーザー名の異なる複数のPCで使用するため
デスクトップのパスを取得し、そのパスを出力先に指定したいと考えております。
パスをどのように指定したらよいのかがわかりません。

###ソースコード
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "wevtutil epl System C:/EventLog/export.evtx /ow /q:""*[System[(EventID=6005 or EventID=6006) and TimeCreated[@SystemTime>='2019-04-30T15:00:00.000Z' and @SystemTime<='2019-05-31T14:59:59.999Z']]]"""
Set objShell = Nothing

Answer 1

すでにWshShellオブジェクトを作成している様ですので、SpecialFoldersプロパティから色々取得できます。

実行ユーザのデスクトップフォルダで良いなら、下記で取得出来ます。

Set objShell = WScript.CreateObject("WScript.Shell")
desktopFolder = objShell.SpecialFolders("Desktop")
WScript.Echo desktopFolder

---

参考リンク：
第14回　WshShellオブジェクトを利用する（3） (3/4)：基礎解説 演習方式で身につけるチェック式WSH超入門 - ＠IT

Answer 2

環境変数USERPROFILEから辿ればいいと思います。