ANo.#2には問題があったので 書き直しました。 Option Explicit Dim Services Dim SecDescClass Dim SecDesc Dim Trustee Dim ACE1 Dim ACE2 Dim Share Dim InParam Const FolderName = "C:\public" Const ImpLevel = "{impersonationLevel=impersonate}" Const namespace = "!root\cimv2:" Const ComputerName = "ittochan" Const ShareName = "Pubs" Set Services = GetObject("WINMGMTS:{impersonationLevel=impersonate,(Security)}!\\.\ROOT\CIM
【サンプルリスト】 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
WSHを使って実現できます。 下記の内容をメモ帳などでコピペして「パスワード変更.vbs」などの名前で保存して下さい。 パスワード変更.vbs ユーザー名 ・・という風に引数にユーザー名を与えるか、引数を与えず直接実行した場合は 入力ボックスが表示されるので、そちらからユーザー名を入力して下さい。 ユーザーの有無を確認した後、設定を変更します。 バッチ処理したい場合は「WScript.Echo」で吐いているメッセージを削除するか コメントアウトした方が使いやすいと思います。 ちなみに本スクリプトはローカルアカウント用でADアカウントの場合は 多少手を加える必要があります。 '----------- Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000 '「パスワードを無期限にする」 Const ADS_UF_PA
ADSI + VBScript で、Active Directory の User/Group オブジェクトを操作 [Windows/ASP/VBScript] Group 一覧 ( groups.vbs) Set con = CreateObject("ADODB.Connection") Set com = CreateObject("ADODB.Command") Set stdout = WScript.StdOut con.Provider = "ADsDSOObject" con.Open "Active Directory Provider" Set Com.ActiveConnection = con Com.CommandText = "select name,displayname,memberOf from " & _ "'LDAP://CN=Users, DC=ex
連載目次 わたしたちはコンピュータの奴隷じゃない！ Windows PCを使っていて、あるいはWindowsサーバを管理していて、「何で人間様が、こんなこまごまとした作業を繰り返し、何度も何度もやらないといけないの？」と思うことはないだろうか。例えばこういう作業はどうだろう。 「My Documentsフォルダ内にある2005年に作成されたファイルのうち、最近1カ月更新してないテキスト・ファイルの中身を確認したいので、それらのファイルの1行目を抜き出して1つのテキスト・ファイルにする」 これを手作業でやろうと思うと大変だ。まずエクスプローラでMy Documentsを開き、詳細表示モードにし、作成日時と更新日時をにらめっこしながら該当するファイルを選び、メモ帳で開いて1行目をコピーし、もう1つメモ帳を立ち上げてそれを貼り付け……、という操作を複数のファイルで繰り返す。フォルダが階層化されて
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ページを開く
