日頃のメモといったところ。
Set objNetWork = WScript.CreateObject("WScript.Network")
MsgBox "ユーザ名 = " & objNetWork.UserName & vbCr & _
"コンピュータ名 = " & objNetWork.ComputerName & vbCr & _
"ドメイン名 = " & objNetWork.UserDomain
※ドメイン名は「ワークグループ・ネットワーク」のときはコンピュータ名と同じになる。
MsgBox "ユーザ名 = " & objNetWork.UserName & vbCr & _
"コンピュータ名 = " & objNetWork.ComputerName & vbCr & _
"ドメイン名 = " & objNetWork.UserDomain
※ドメイン名は「ワークグループ・ネットワーク」のときはコンピュータ名と同じになる。
PR
・タスクを確認する
schtasks
・タスク(タスク名:sample1)を削除する
schtasks /delete /tn "sample1"
・毎日10時にsample1.exeを起動する(タスク名:sample1)
schtasks /create /tn "sample1" /tr C:\sample1.exe /sc daily /st 10:00:00
・毎日12時から15分毎にsample2.vbsを起動させる(タスク名:sample2)
schtasks /create /tn "sample2" /tr C:\sample2.vbs /sc minute /mo 15 /st 12:00:00
VBScriptからBATファイルを起動させます。
Set WShell = WSCript.CreateObject("WScript.Shell")
WShell.Run "C:\sample.bat", 0
Set wScriptHost = CreateObject("WScript.Shell")
MsgBox wScriptHost.SpecialFolders("StartUp")
MsgBox wScriptHost.SpecialFolders("StartUp")