小さな 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

1.Set obj = CreateObject("ADOX.Catalog")

2.obj.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=sample.mdb;"

GUID 取得

1.Set TypeLib = CreateObject("Scriptlet.TypeLib")

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

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

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

2.Shell.ShutdownWindows()

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

1.Set obj = Wscript.CreateObject("Shell.Application")

2.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()