[[1) 一覧]]
@DIV
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(&H4)
Set colItems = objFolder.Items

For each item in colItems

	if item.Name <> "プリンタの追加" then
		Wscript.Echo item.Name & vbCrLf & _
			"アプリから見たパス:" & item.Path
	end if

Next
@END

2) ネットワークプリンタの登録 
Call WshShell.Run( "rundll32 printui.dll,PrintUIEntry /in /n""\\machine\プリンタ名""", , True )

3) デフォルトプリンタに設定
Call WshShell.Run( "rundll32 printui.dll,PrintUIEntry /y /n ""\\machine\プリンタ名""", , True )