Monday, December 17, 2007
iso tools
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
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("
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
VBScript Classes
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
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 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