プログラムの遠隔起動 (ID:85445)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 出張に出ていてレスが遅くなってしまったm(__)m まだ見ているでしょうか。 Dim strcomputer As String Dim objWMIService As Object Dim colShares As Object Dim Pid As Long Dim Ret As Long strcomputer = InputBox("コンピュータ名を入力してください", "入力", "127.0.0.1") Set objWMIService = GetObject("winmgmts://" & strcomputer & "/root/cimv2") Set colShares = objWMIService.get("Win32_Process") Ret = colShares.Create("notepad.exe", Null, Null, Pid) MsgBox "メモ帳を起動しました" & vbCrLf & " PID = " & CStr(Pid), vbInformation, "確認" 相手PCにユーザー登録されていないと、GetObjectで「書込みできません」のエラーが出るかもしれません。 また、先述のとおり起動したアプリは表示されません。 起動したアプリから起動したアプリも表示されません。 >スタートアップに登録だけで済む事のような気が。。。 この発言の意味は、 PC起動後、「毎回」「同じ」アプリを起動させたいだけならば、 スタートアップにそのアプリを登録すればいいだけで、 プログラムを組む必要など全く無いという事です。