Function BrowseFolder( myStartLocation, blnSimpleDialog )
Const MY_COMPUTER = &H11&
Const WINDOW_HANDLE = 0 ' Must ALWAYS be 0
Dim numOptions, objFolder, objFolderItem
Dim objPath, objShell, strPath, strPrompt
' Set the options for the dialog window
strPrompt = "Select a folder:"
If blnSimpleDialog = True Then
numOptions = 0 ' Simple dialog
Else
numOptions = &H10& ' Additional text field to type folder path
End If
' Create a Windows Shell object
Set objShell = CreateObject( "Shell.Application" )
' If specified, convert "My Computer" to a valid
' path for the Windows Shell's BrowseFolder method
If UCase( myStartLocation ) = "MY COMPUTER" Then
Set objFolder = objShell.Namespace( MY_COMPUTER )
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
Else
strPath = myStartLocation
End If
Set objFolder = objShell.BrowseForFolder( WINDOW_HANDLE, strPrompt, _
numOptions, strPath )
' Quit if no folder was selected
If objFolder Is Nothing Then
BrowseFolder = ""
Exit Function
End If
' Retrieve the path of the selected folder
Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path
' Return the path of the selected folder
BrowseFolder = objPath
End Function
2011年6月2日 星期四
2011年5月14日 星期六
virtualbox slic support
use vbslic.exe to mod vboxdd.dll and add slic record to it.
VBoxManage setextradata "VM name" "VBoxInternal/Devices/pcbios/0/Config/DmiSystemVendor" "System Vendor"
VBoxManage setextradata "VM name" "VBoxInternal/Devices/acpi/0/Config/CustomTable" "/path/to/table.bin"
VBoxManage setextradata "VM name" "VBoxInternal/Devices/pcbios/0/Config/DmiSystemVendor" "System Vendor"
VBoxManage setextradata "VM name" "VBoxInternal/Devices/acpi/0/Config/CustomTable" "/path/to/table.bin"
2011年5月4日 星期三
netbackup user authority
1:do netbackup jobs without root account
--> modify /usr/openv/java/auth.conf and add accounts you want to grand permisson to him/her
device monitor -> In the right window reset the problem drive and bring it up again
--> modify /usr/openv/java/auth.conf and add accounts you want to grand permisson to him/her
device monitor -> In the right window reset the problem drive and bring it up again
2011年4月21日 星期四
Quantum Scalar i40 & Netapp FAS2020
both ends cannot recognize each other. Need to change the Fibre topology to Loop from the web client interface of the tape library to fix it.
Please note, definition file of installed tape library need to reside /etc/tape_config/ folder of netapp vol0.
Netapp: sysconfig -t
Please note, definition file of installed tape library need to reside /etc/tape_config/ folder of netapp vol0.
Netapp: sysconfig -t
2011年4月12日 星期二
Apache NIS authentication
perl NET::NIS,Apache-AuthenNIS,Apache-AuthzNIS are required
AuthType Basic
AuthName "LICCHECK"
PerlAuthenHandler Apache::AuthenNIS
PerlAuthzHandler Apache::AuthzNIS # for group authentication only
PerlSetVar AllowAlternateAuth no
require group v70a # require valid-user
AuthType Basic
AuthName "LICCHECK"
PerlAuthenHandler Apache::AuthenNIS
PerlAuthzHandler Apache::AuthzNIS # for group authentication only
PerlSetVar AllowAlternateAuth no
require group v70a # require valid-user
2011年4月5日 星期二
訂閱:
文章 (Atom)