No.3ベストアンサー
- 回答日時:
>そのPCの持ち主がログオンした場合は、削除し
>別のユーザーがドメインでログオンした場合は削除せず、エラーを出したいです。
>権限のチェックをせずにOn Error Resume Next でも可能でしょうか?
削除したいフォルダが、「PCの持ち主」にしか削除できないアクセス権設定になっているのであれば可能です。
#-------
On Error Resume Next
' フォルダ削除のコードをここに書く
If Err.Number <> 0 Then
WScript.Echo "削除する権限がありません"
End If
#------
Err.Number = 0 であれば削除成功、それ以外では削除失敗です。
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ランキング
-
過剰なオブジェクト指向脳から...
-
16x16のスプライトフォント
-
本格的なWebアプリを公開する時...
-
Pythonって何を意識した言語な...
-
プログラミング未経験者(殆ど未...
-
オブジェクト指向プログラミン...
-
プログラミング初心者です。 Wi...
-
vba クリップボードクリアにつ...
-
chatGPTで次々と質問をしていく...
-
家庭のパソコンで Python の 環...
-
CLispのloop内の挙動について
-
昔のパソコン少年の武勇伝「店...
-
GoogleAppsScript文字列置換の...
-
sublimit textっていうエディタ...
-
最新のプログラム言語を学ぶに...
-
初心者powershellのPS1ファイル...
-
プログラマーと学歴の関係性に...
-
pythonにてseleniumを使うも、...
-
Google ColaboでGUI作成
-
そのまま使っただけなのに・・...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
microsoft teamsのチーム作成方法
-
framedyn.dllが見つからない
-
ファイル移動後に自動的にアク...
-
hamachiにログイン出来ません
-
”このフォルダは共有されていま...
-
FTP フォルダを1つ上の階層へ...
-
Hotmailのフォルダーの削除の仕...
-
onedriveで同期解除をしたら、...
-
vlan internal allocation poli...
-
沢山のフォルダにあるファイル...
-
マイドキュメントのフォルダの...
-
YAHAMA RTXシリーズのコマンド...
-
共有しているファイルを削除し...
-
teratarmでコマンド入力すると...
-
WindowsからSSHでサーバーにあ...
-
読み取り専用ファイルを上書き...
-
TXTファイルを上書き保存する前...
-
Excel VBAでほかのアプリケーシ...
-
パワーポイントのデータを誤っ...
-
USBデータの消失
おすすめ情報