Monday, December 17, 2007

iso tools

Virtual Clone Drive. This utility will let you mount .ISO, .CCD, .DVD, .IMG, .UDF and .BIN files. Download the utility and start the setup process
MagicDisk - This is a nice, free utility with more features, but it's not quite as simple to use.


ImgBurn is a lightweight CD / DVD / HD DVD / Blu-ray burning application that everyone should have in their toolkit!

LC ISO Creator creates ISO files from CD/DVD-ROM.

download (LCISOCreator.zip - 14 kB)

from http://desktopengineer.com/home/all_articles/free_lucersoft_iso_creator

CD / DVD Data Recovery & Rescue software, featuring BD and HD DVD isobuster

Saturday, December 15, 2007

lmHosta file

from

http://www.svrops.com/svrops/documents/hostsdoc.htm#Setting%20Up%20LMHOSTS%20Files
====================

The following example shows how all of these keywords are used:
102.54.94.98 localsrv #PRE

102.54.94.97 trey #PRE #DOM:networking #net group's PDC

102.54.94.102 "appname \0x14" #special app server

102.54.94.123 popular #PRE #source server

#BEGIN_ALTERNATE

#INCLUDE \\localsrv\public\lmhosts #adds LMHOSTS from this server

#INCLUDE \\trey\public\lmhosts #adds LMHOSTS from this server

#END_ALTERNATE


In the preceding example:
The servers named localsrv and trey are preloaded so they can be used later in an #INCLUDE statement in a centrally maintained LMHOSTS file.
The server named "appname \0x14" contains a special character after the 15 characters in its name (including blanks), so its name is enclosed in quotation marks.
The server named popular is preloaded, based on the #PRE keyword.
Additional Comments
LMHOSTS example:

IP Address PDCName #PRE #DOM:domainname
IP Address "domainname,,,,,\0x1b" #PRE

Where IP Address is the address of your PDC.
PDCName is the name of your PDC
domainname is the name of your Domain
and
domainname,,,,, is also the name of your Domain. However, the commas represent spaces, and in this line, your domainname must be 15 characters. If it isn't, pad it with the appropriate number of spaces to reach 15 characters.
And...use the quotes

Your PDC acts as the Domain Master Browser, and as such, should have the browse lists of all Segment Master Browsers (if you have a multi-segment network), thus a list of all network devices.

The above LMHosts file tells your PC the name of the logon domain controller (your PDC), and the second line says use the PDC as your browse master.

If you can ping your PDC and net use a share to the PDC, then the above should work.

ad auth in vba

Sorry for delayed reply.

You should still be able to use the code in your first message in VB6, for example, following code works on my side in a VB6 program:

Function AuthCheck(ByVal sUser As String, ByVal sPassword As String) As Boolean
On Error GoTo E

Dim RootDSE
Dim DSObject
Dim Auth
Dim NamingContext
Const ADS_SECURE_AUTHENTICATION = 1

Set RootDSE = GetObject("GC://rootDSE")
NamingContext = RootDSE.Get("defaultNamingContext")

Set DSObject = GetObject("GC:")

Set Auth = DSObject.OpenDSObject("GC://" & NamingContext, sUser, sPassword, ADS_SECURE_AUTHENTICATION)

Set Auth = Nothing
Set DSObject = Nothing
Set RootDSE = Nothing

AuthCheck = True
Exit Function
E:
AuthCheck = False
' log the err.Description if needed
End Function


Calling AuthCheck("", "") will return True if the user/password is correct and return False if not.

If you need to use strong-typed objects, you need to reference "Active DS Type Library" in your VB6 project and use those objects accordingly. For example, OpenDSObject is a method of the interface IADsOpenDSObject.

Best regards,
Walter Wang
Microsoft Online Community Support

Thursday, December 13, 2007

excel user forms

Excel-VBA userforms 101 and FAQ - Xtreme Visual Basic Talk
X Factor user forms
SplashScrn
Create User Forms in Microsoft Excel
Excel VBA Code For Excel UserForms & Controls
ExcelUser -- Programming Excel

VBScript Classes

Creating Classes with VBScript
ASP 101 - Articles
DevGuru VBScript Object Class
VBScript in a Nutshell Chapter 2 Program Structure use find 2 search 4 Class Modules
Inside Microsoft Using VBScript Classes in ASP Applications
Creating Classes with VBScript 5.0

misc
JSWare - VBScripts and Components Topic and Function Index
JSWare - MSI - Windows Installer - Code and Utilities

vbscript error numbers w/ try catch class exmpl

try catch class

vbscript error ms page
==============================
Select Case Err
Case 61
sErrMsg = "Disk Full"
Case 71
sErrMsg = "Disk Not Ready"
Case 76
sErrMsg = "Path not found"
Case 70
sErrMsg = "Permission denied"

case else

sErrMsg = Err & " Undefined"

End Select

http://blogs.msdn.com/ericlippert/archive/2004/09/09/227461.aspx

=============================

5 Invalid procedure call or argument 6 Overflow 7 Out of memory 9 Subscript out of range 10 This array is fixed or temporarily locked 11 Division by zero 13 Type mismatch 14 Out of string space 17 Can't perform requested operation 28 Out of stack space 35 Sub or Function not defined 48 Error in loading DLL 51 Internal error 52 Bad file name or number 53 File not found 54 Bad file mode 55 File already open 57 Device I/O error 58 File already exists 61 Disk full 62 Input past end of file 67 Too many files 68 Device unavailable 70 Permission denied 71 Disk not ready 74 Can't rename with different drive 75 Path/File access error 76 Path not found 91 Object variable not set 92 For loop not initialized 94 Invalid use of Null 322 Can't create necessary temporary file 424 Object required 429 ActiveX component can't create object 430 Class doesn't support Automation 432 File name or class name not found during Automation operation 438 Object doesn't support this property or method 440 Automation error 445 Object doesn't support this action 446 Object doesn't support named arguments 447 Object doesn't support current locale setting 448 Named argument not found 449 Argument not optional 450 Wrong number of arguments or invalid property assignment 451 Object not a collection 453 Specified DLL function not found 455 Code resource lock error 457 This key is already associated with an element of this collection 458 Variable uses an Automation type not supported in VBScript 462 The remote server machine does not exist or is unavailable 481 Invalid picture 500 Variable is undefined 501 Illegal assignment 502 Object not safe for scripting 503 Object not safe for initializing 504 Object not safe for creating 505 Invalid or unqualified reference 506 Class not defined 507 An exception occurred32811 Element not found32812 The specified date is not available in the current locale's calendar

Tuesday, December 11, 2007

more vba

Excel’s VLOOKUP Function How to Use It and How to Nest It

Excel VBA: No Experience Necessary - Lesson 1
Excel VBA: No Experience Necessary - Lesson 2
Excel VBA: No Experience Necessary - Lesson 3
Excel VBA: No Experience Necessary - Lesson 4
Excel VBA–No Experience Necessary: Lesson 5



Sub TestPings() Dim cell As Range Dim astr() As String
Excel FAQ - Excel 101 - Xtreme Visual Basic Talk
Excel - My Excel Pages
Examples
Getting Started with Macros and User Defined Functions
VB(A) functions
Excel for Windows Visual Basic for Applications 101
Regular Expressions
regexp Patterns
VB(A) functions
Excel - Xtreme Visual Basic Talk
Excel FAQ - Excel 101 - Xtreme Visual Basic Talk
Kickbutt VBA Find Function - Excel Help & VBA Help
excel-vba-findall-method


=========================================================
Sub Comp()
Dim rSource As Range, rTarget As Range, SourceRow%, TargetRow%

Set rSource = ActiveWorkbook.Sheets(2).Range("A2").CurrentRegion
Set rTarget = ActiveWorkbook.Sheets(1).Range("A2").CurrentRegion

For SourceRow = 2 To rSource.Rows.Count
For TargetRow = 2 To rTarget.Rows.Count
If rSource.Cells(SourceRow, 8).Value = rTarget.Cells(TargetRow, 8).Value And _
rSource.Cells(SourceRow, 3).Value = rTarget.Cells(TargetRow, 3).Value And _
rSource.Cells(SourceRow, 6).Value = rTarget.Cells(TargetRow, 6).Value Then
rTarget.Cells(TargetRow, 4).Value = rSource.Cells(SourceRow, 4).Value
rTarget.Cells(TargetRow, 5).Value = rSource.Cells(SourceRow, 5).Value
rTarget.Cells(TargetRow, 7).Value = rSource.Cells(SourceRow, 7).Value
End If
Next TargetRow
Next SourceRow
End Sub