![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_07.png?e8efa67)
No.3ベストアンサー
- 回答日時:
>そのPCの持ち主がログオンした場合は、削除し
>別のユーザーがドメインでログオンした場合は削除せず、エラーを出したいです。
>権限のチェックをせずにOn Error Resume Next でも可能でしょうか?
削除したいフォルダが、「PCの持ち主」にしか削除できないアクセス権設定になっているのであれば可能です。
#-------
On Error Resume Next
' フォルダ削除のコードをここに書く
If Err.Number <> 0 Then
WScript.Echo "削除する権限がありません"
End If
#------
Err.Number = 0 であれば削除成功、それ以外では削除失敗です。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_07.png?e8efa67)
No.2
- 回答日時:
条件をもっと限定してはいかがでしょうか。
・初心者とは何か?
パソコン初心者か?
VBScript初心者か?
・使用するユーザーはローカルユーザーか、ドメインユーザーか?
ローカルユーザーとは、コンピュータ自身で作成したユーザーのことです。
・OSは何か?
OSやパッチの適用状況によって動作しないことがあるため、分かる範囲で書いたほうがよいでしょう。
# No.1 さんのスクリプトはVistaでは動作しませんでした・・・
・管理者権限はAdministratorsだけでよいのか?
グループがネストしている(グループの中にグループがある状態)可能性を考慮する必要がありますか?
・最終結果として、どのような条件でもフォルダが削除できさえすればよいのか?エラーが発生しなければよいのか?
たとえば、On Error Resume Next でフォルダを削除すれば、ユーザーの権限不足によって失敗してもエラー表示が出ません。
この回答への補足
VBScript初心者です。
使用するユーザー:ドメインユーザー
OS:XP Pro
ドメインユーザーでの権限はDomain Userでした。
詳しくは分からないのですが、やりたいことは
そのPCの持ち主がログオンした場合は、削除し
別のユーザーがドメインでログオンした場合は削除せず、エラーを出したいです。権限のチェックをせずにOn Error Resume Next でも可能でしょうか?
No.1
- 回答日時:
私も実際に利用したことがないですが、ADSIというものを利用するようですね。
ローカルPCの管理者権限ということであれば
Dim User,PcName
Dim objWNet,objGroup,objUser
Dim Admin
'Networkオブジェクトの取得
Set objWNet = CreateObject("WScript.Network")
'PC名の取得
PcName = objWNet.ComputerName
'現ユーザー名の取得
User=objWNet.UserName
'ネットワークオブジェクトを開放
Set objWNet=Nothing
'ローカルマシンのAdiministratorsグループを取得
Set objGroup = GetObject("WinNT://" & ComputerName & "/Administrators")
For Each objUser In objGroup.Members()
If User = objUser.Name Then
Msgbox "あなた(" & UserName & ")は管理者です。"
Exit For
End If
Next
Set objGroup=Nothing
Set objUser=Nothing
こんな感じでどうでしょうか?
識者から見れば稚拙なスクリプトですが、管理者かどうかは判断できます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Google Drive GoogleWorkspaceについての質問 1 2022/12/16 17:57
- その他(開発・運用・管理) ユーザ権限でソフトを起動すると必ず管理者パスワードをきかれてうまく利用できない 3 2022/05/10 00:07
- Windows 10 管理者権限 2 2022/05/26 11:08
- その他(クラウドサービス・オンラインストレージ) このような条件でデータを置いておけるサービス 3 2022/07/25 08:31
- エアコン・クーラー・冷暖房機 冷暖房の切り替えが管理者の権限とかでできない場合に、30度の急速に設定すれば暖房の代わりになったりし 3 2022/04/02 13:02
- 防犯カメラ・監視カメラ・小型カメラ 監視カメラのレコーダーの 3 2022/10/18 11:55
- マルウェア・コンピュータウイルス マカフィーの警告文が邪魔なんですけど。 4 2022/10/17 03:15
- Windows 10 windows10をクリーンインストールについて 2 2022/03/30 05:55
- UNIX・Linux shellscript内のコマンドを、sudo(toor)として実行 2 2022/09/23 15:05
- 歴史学 【歴史研究家または社会学者に質問です】日本は江戸時代は300の藩が国内統治の管理 1 2023/08/22 22:49
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
プログラムについて。
-
paiza python03 ランクC獲得
-
soucetreeでローカルのクローン...
-
マイクロソフトがvbを捨てたの...
-
python03について。
-
vba クリップボードクリアにつ...
-
Google ColaboでGUI作成
-
スカラーのベクトル微分
-
batファイル、コマンドプロンプ...
-
Adobe Premiere Proについて質...
-
Adobe Premiere Proです。 シー...
-
python3について。
-
P2P地震速報のEEW APIの仕様書...
-
pythonの画像の貼り付けについて
-
Processingについて
-
python コードについて(初学者...
-
AndroidStudio エラー と イン...
-
そのまま使っただけなのに・・...
-
JRのjsonファイルって使って大...
-
Gitで空白のみの変更を削除した...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
hamachiにログイン出来ません
-
VBScripで管理者権限のチェック
-
ファイルサーバーの中のあるフ...
-
レジストリー削除について
-
”このフォルダは共有されていま...
-
FRONTIER21 終了しません 「フ...
-
CPRM Decrypterについて
-
セマフォについて
-
onedriveで同期解除をしたら、...
-
vlan internal allocation poli...
-
YAHAMA RTXシリーズのコマンド...
-
TXTファイルを上書き保存する前...
-
沢山のフォルダにあるファイル...
-
共有しているファイルを削除し...
-
teratarmでコマンド入力すると...
-
WindowsからSSHでサーバーにあ...
-
USBデータの消失
-
マイドキュメントのフォルダの...
-
読み取り専用ファイルを上書き...
-
Excel VBAでほかのアプリケーシ...
おすすめ情報