ユーザー名を取得する

VBScriptで、ユーザー名を取得する方法です。

Dim objNetwork
Set objNetwork = WScript.CreateObject("WScript.Network")
'ユーザー名は↓で取得できます
objNetwork.UserName

'表示して確認
WScript.Echo objNetwork.UserName

デスクトップパスを取得する

VBScriptで、デスクトップパスを取得する方法です。

Dim WS
Set WS = CreateObject("WScript.Shell")
'デスクトップパスは↓で取得できます
WS.SpecialFolders("desktop")

'表示して確認
WScript.Echo WS.SpecialFolders("desktop")

マイドキュメントのパスを取得する

VBScriptで、マイドキュメントのパスを取得する方法です。

Dim WS
Set WS = CreateObject("WScript.Shell")
'マイドキュメントのパスは↓で取得できます
WS.SpecialFolders("MyDocuments")

'実行確認
WScript.Echo WS.SpecialFolders("MyDocuments")

ファイルの更新日時を変更する

ファイルの更新日時を変更する例です。

先頭にあるConstの二つを変更することだけで実行できます。

'この2つのみを設定する
Const filePath = "C:\test\list1.txt"      '更新日時を変更したいファイルのフルパス
Const UpdateDate = "2022/9/27 20:34:56"   '更新したい日時

Dim objFolder
Dim objFile
Dim objShell
Dim fs
Dim folderName
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set objShell = WScript.CreateObject("Shell.Application")
folderName = Replace(filePath , fs.GetFile(filePath).Name , "")
Set objFolder = objShell.NameSpace(folderName)
Set objFile = objFolder.ParseName(replace(filePath,folderName,""))

'ここで更新日時を変更する
objFile.ModifyDate = UpdateDate

バッチファイル（.bat）を実行する

VBScriptで、バッチファイル（.bat）を実行する方法です。

'バッチファイルを実行する
Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c バッチファイルのフルパス"


'バッチ実行時に黒い画面を非表示にするには「,vbhide」を付ける
Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c バッチファイルのフルパス",vbhide


'バッチファイルを実行する
Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c C:\test\test.bat"         'コマンド画面を表示
ws.run "cmd /c C:\test\test.bat",vbhide  'コマンド画面を非表示にする