共有フォルダの「共有のアクセス許可」を設定するコマンド
できました。 完成版を書きますね。 '既存の共有フォルダのアクセス許可にユーザーを追加 Option Explicit Dim i,j Dim FSO Dim Services Dim SecDescClass Dim SecDesc dim wmiAce dim wmiTrustee Dim Trustee Dim ACE Dim Trustee1 Dim ACE1 dim strMoniker dim wmiShareSecSetting dim RetVal Dim DACL Dim controlFlags Dim accessmask Dim Group Dim Owner Dim SACL Dim number_of_trustees Dim trustee_Domain Dim trustee_Name Dim trustee_Sidstring Dim strACL Dim
VB ファイル操作
【サンプルリスト】 Private Sub Sample() Dim fs As New Scripting.FileSystemObject 'ファイルを移動する１ If (fs.FileExists("c:\work\test.txt")) Then 'コピー元ファイルあり fs.CopyFile "c:\work\test.txt", "c:\temp\" '上書きファイルコピー fs.DeleteFile "c:\work\test.txt", True 'コピー元ファイル削除 End If 'ファイルを移動する２ If (fs.FileExists("c:\work\test1.txt")) Then '移動元ファイルあり If (fs.FileExists("c:\temp\test1.txt")) Then '移動先ファイルあり fs.DeleteFile "c:\temp
おしえてBP！ GUI以外の方法で「ユーザーは次回ログオン時にパスワードの変更が必要」のチェックを入れたい
WSHを使って実現できます。 下記の内容をメモ帳などでコピペして「パスワード変更.vbs」などの名前で保存して下さい。 パスワード変更.vbs ユーザー名 ・・という風に引数にユーザー名を与えるか、引数を与えず直接実行した場合は 入力ボックスが表示されるので、そちらからユーザー名を入力して下さい。 ユーザーの有無を確認した後、設定を変更します。 バッチ処理したい場合は「WScript.Echo」で吐いているメッセージを削除するか コメントアウトした方が使いやすいと思います。 ちなみに本スクリプトはローカルアカウント用でADアカウントの場合は 多少手を加える必要があります。 '----------- Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000 '「パスワードを無期限にする」 Const ADS_UF_PA
WSHを始めよう － ＠IT
連載目次 わたしたちはコンピュータの奴隷じゃない！ Windows PCを使っていて、あるいはWindowsサーバを管理していて、「何で人間様が、こんなこまごまとした作業を繰り返し、何度も何度もやらないといけないの？」と思うことはないだろうか。例えばこういう作業はどうだろう。 「My Documentsフォルダ内にある2005年に作成されたファイルのうち、最近1カ月更新してないテキスト・ファイルの中身を確認したいので、それらのファイルの1行目を抜き出して1つのテキスト・ファイルにする」 これを手作業でやろうと思うと大変だ。まずエクスプローラでMy Documentsを開き、詳細表示モードにし、作成日時と更新日時をにらめっこしながら該当するファイルを選び、メモ帳で開いて1行目をコピーし、もう1つメモ帳を立ち上げてそれを貼り付け……、という操作を複数のファイルで繰り返す。フォルダが階層化されて
TechNet Script Center
Summary: Using PowerShell to identify RPC ports in use by capturing content from PowerShell We'd like to introduce you today to one of our newest bloggers! It's a froopingly awesome friend of ours, Joel Vickery, PFE. (did I mention Dr. Scripto is a big fan of books written by Douglas Adams?....oops!) Take it away Joel! Thanks Doc! So ...
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
エンタープライズ： 「Windows 2000 - Development Guide for Business Applications」
The Human Factor すぐれた設計への 3 つのヒント
Office TANAKA - FileSystemObject[FileSystemObjectオブジェクト]
ある nakagami の日記
The Human Factor すぐれた設計への 3 つのヒント