A Dev's Life

VBScriptをやる機会がありそこで正規表現をやっていた。拡張子がsqlのファイルだけを選択したいと思って正規表現を使おうと思ったのだ。簡単だろうと思ってヘルプも見ずにやってたらやぱい・・・忘れてる。このパターンに [...]

C:\Temp\a\b\というようなフォルダを作成したいとき、FileSystemObjectで簡単にできてしまいますが、C:\Temp\aが存在しない状態でbを作ろうとするとエラーになります。そういうようなのをちゃ [...]

あるフォルダを除いてすべてを削除するVBScriptのルーティンを作りました。
Sub DeleteExceptFor(ByVal RootFolderPath, ByVal FolderName)    Dim FSO    Set FSO = CreateObject(“Scripting.FileSystemObject”)        Dim RootFolder    Set RootFolder = FSO.GetFolder(RootFolderPath)        Dim folder    For Each folder In RootFolder.SubFolders        If LCase(FolderName) <> LCase(folder.Path) Then            folder.Delete True        End If    Next        Dim file    For Each file In RootFolder.Files        file.Delete True    Next            If Not FSO Is Nothing Then        Set FSO = Nothing    End IfEnd [...]

VSSの管理をしててAnalyze VSS DBというのがある。そいつを実行するたびに[VSSInstallFolder]\data\backup\analyze.logのようなファイルを作成し、それを削除しないで再びそ [...]

VBScriptを使ってSourceSafeオートメーションに関するクラスを作ってみました。このクラスは実際私のビルドプロセスに使用しています。
Const VSSITEM_PROJECT = 0Const VSSITEM_FILE = 1Const VSSFILE_NOTCHECKEDOUT = 0Const VSSFILE_CHECKEDOUT = 1Const VSSFILE_CHECKEDOUT_ME = 2Class SrcSafe    Private m_SrcSafeDb    Private m_Result    Private m_intCount    Private m_blnDetected        Private Sub Class_Initialize        m_intCount = 0        m_blnDetected = False    End Sub        Public Sub Logon(SrcSafeIniPath, Username, Password)        Set m_SrcSafeDb = CreateObject(“SourceSafe”)        m_SrcSafeDb.Open SrcSafeIniPath, Username, Password    End Sub        Public Sub CheckOutFiles(ByVal ProjectName, ByVal FileList)        ‘ Checks out files recursively. FileList should be like…        ‘ AssemblyInfo.vb|AssemblyInfo.cs        ‘ This function [...]

SQLDMOを使ってVBScriptでいろいろなことができるクラスを書いてみました。以下のことができます。

データベースの削除。
バックアップファイルからのデータベースのRestore（再生）。
ログインの作成。
ログインをdb_ownerとしてデータベースに振り分ける。
ログインが存在するかどうかを確かめる。
他にもいろんなことができるんですが、とりあえずはこのくらいにしておきます。このスクリプトはデータベースアプリを開発されている方に便利なのではないかと思います。
Class SQLServer    Private m_SQLServer        Private Sub Class_Initialize        Set m_SQLServer = CreateObject(“SQLDMO.SQLServer”)    End Sub        Private Sub Class_Terminate        If Not m_SQLServer Is Nothing Then            Set m_SQLServer = Nothing        End If    End Sub        Public Sub ConnectToSQLServer(ServerName)        m_SQLServer.LoginSecure = True        m_SQLServer.Connect CStr(ServerName), vbNullString, vbNullString    End Sub        Public Sub RemoveDatabase(DatabaseName)        Dim db        For Each db In m_SQLServer.Databases            If UCase(DatabaseName) = UCase(db.Name) Then                db.Remove                Exit For            End If        Next    End Sub        Public Sub Disconnect()        m_SQLServer.DisConnect    End Sub        Public Sub RestoreDatabase(DatabaseName, PathToDump, PathToDb, PathToLog)        Dim [...]

I have created a class in VBScript that allow you to do basic administration on IIS. So copy and paste the following code in a text file and instantiate the class just like any other object. A sample is available upon request.
Const IIS_PATH = “IIS://localhost/w3svc/1/root”Const APP_NAME = “My VBScript App”
Class IISAdmin    Private m_IIS        Private Sub Class_Initialize        On Error Resume [...]