ユーザを指定してアプリケーションを呼び出すには？ (ID:84448)

名前

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

本文 Shell関数にユーザ権限を付与して実行は 分かりませんが、 ログインしているユーザに権限を与えるか Administrator権限を持っているユーザに 偽装ログインすればいいのでは無いでしょうか？ 一応権限を付与するサンプルです。 ドメイン環境が無いので、ドメインを指定した時に 正しく動くか分かりませんが・・・ Dim objContainer As ActiveDs.IADsContainer Dim objUser As ActiveDs.IADsUser Dim objGroup As ActiveDs.IADsGroup '接続 'ドメインユーザ時はドメイン名 'ワークグループ時はコンピュータ名 objContainer = GetObject("WinNT://" & "ドメイン名ORコンピュータ名") 'IADsUserオブジェクトを作成 objUser = objContainer.Create("User", "ユーザ名") 'IADsGroupオブジェクトの作成 objGroup = objContainer.Create("Group", "Administrators") With objGroup .Add (objUser.ADsPath) '権限追加 .Remove (objUser.ADsPath) '権限削除 End With objUser = Nothing objContainer = Nothing objGroup = Nothing 既に権限を持っていた場合は、 エラーになりますので 例外処理を考慮して下さい。