小さな VBScript 集


SendToフォルダを開くスクリプト

Set obj = CreateObject("Shell.Application")
Set objFolder = obj.NameSpace( &h09 )
obj.Explore(objFolder.Self.Path)


MDB 作成

C:\Windows\SysWOW64\cscript.exe create_mdb.vbs

Set obj = CreateObject("ADOX.Catalog")
obj.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=sample.mdb;"


GUID 取得

Set TypeLib = CreateObject("Scriptlet.TypeLib")
Call InputBox("コピーして使用して下さい","新しい GUID を取得しました",TypeLib.Guid)


シャットダウンダイアログ

Set Shell = Wscript.CreateObject( "Shell.Application" )
Shell.ShutdownWindows()


管理者コマンドプロンプト

Set obj = Wscript.CreateObject("Shell.Application")
obj.ShellExecute "cmd.exe", "/k", "", "runas", 1


アクセス可能な階層を持つフォルダのサイズ

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFSO.GetFolder("c:\temp") 
Wscript.Echo objFolder.Size


空の zip ファイルの作成

Set Fso = CreateObject( "Scripting.FileSystemObject" )
Set Handle = Fso.CreateTextFile( "empty.zip", True )
EmptyData = Chr(&H50) & Chr(&H4B) & Chr(&H5) & Chr(&H6)
EmptyData = EmptyData & String( 18, Chr(0) )
Handle.Write EmptyData
Handle.Close


Excel から PDF 作成

Set ExcelApp = CreateObject( "Excel.Application" )
Set MyBook = ExcelApp.Workbooks.Open( "Book1.xlsx" )
Call MyBook.ExportAsFixedFormat( 0, "Book1.pdf" )
ExcelApp.Quit()