June 2007 Archives

In LotusScript, to create WMI Object, then setting default print and getting printer size.

Dim objWMIService As Variant
Dim colInstalledPrinters As Variant
Dim objInstances As Variant
strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
n = 0
Forall objPrinter In colInstalledPrinters
Redim Preserve pArray(n) As String
pArray(n) = objPrinter.Name
n = n + 1
End Forall

PrinterPath = ws.Prompt(4,"請選擇印表機","請從下列清單選擇所要使用的印表機：","",pArray)
If Cstr(PrinterPath)="" Then Exit Sub

Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name =" & "'" & PrinterPath & "'")
Forall objPrinter In colInstalledPrinters
Call objPrinter.SetDefaultPrinter()
End Forall
Set objInstances = objWMIService.InstancesOf("Win32_PrinterConfiguration",48)
Forall objInstance In objInstances
If objInstance.name = PrinterPath Then
Msgbox objInstance.Orientation
Msgbox objInstance.PaperSize
End If
End Forall

WMI is very Powerful, even control your PC.

Microsoft: WMI Reference

雖然SAMBA Server已達到相似的需求，但仍需要透過事先的格式化及設定才能使用。但iSCSI就跟本機磁碟一樣，可自行格式化，只需安裝好iSCSI Initiator。
步驟：
1.Server端(Linux)，安裝iSCSI Target，iSCSI Enterprise Target。
2.Client端(Windows)，安裝iSCSI Initiator，Microsoft iSCSI Software Initiator Version 2.04。
3.Client端(Linux)，安裝iSCSI Initiator，Open-iSCSI or Linux-iSCSI
這樣就可以讓Windows和Linux直接存取iSCSI Target上的磁碟機。
而為何要iSCSI，因為chm格式的電子書，如果透過網芳共享時，是無法讀到內容，以至於Google Desktop Search沒法針對內容作分析，改用iSCSI方式可以解決這樣的問題。

A Quick Guide to iSCSI on Linux