69 lines
1.6 KiB
Plaintext
69 lines
1.6 KiB
Plaintext
'
|
|
' Test IConfigureYourServer::ValidateName
|
|
'
|
|
|
|
option explicit
|
|
|
|
|
|
|
|
// this is a Visual Basic Script "Template", used in conjunction with the
|
|
// MS Visual C++ Preprocessor to overcome some of the source management
|
|
// limitations of VBScript. Not perfect, but better than a stick in the eye.
|
|
//
|
|
// use cl /EP foo.vbt > foo.vbs to expand the template
|
|
|
|
const SCRIPT_FILENAME = "test-ValidateName.vbs"
|
|
const SCRIPT_SOURCE_NAME = __FILE__
|
|
const SCRIPT_DATE = __DATE__
|
|
const SCRIPT_TIME = __TIME__
|
|
|
|
|
|
// this is all our common code.
|
|
|
|
#include "common.vbi"
|
|
|
|
|
|
|
|
Main
|
|
wscript.quit(0)
|
|
|
|
|
|
sub Main
|
|
On Error Resume Next
|
|
|
|
if wscript.arguments.count <> 1 then
|
|
Echo "supply a name to validate"
|
|
Exit sub
|
|
end if
|
|
|
|
Echo "Validating " & wscript.arguments.item(0)
|
|
|
|
Dim srvwiz
|
|
Set srvwiz = CreateObject("ServerAdmin.ConfigureYourServer")
|
|
|
|
Dim nameTypes(1)
|
|
nameTypes(0) = "DNS"
|
|
nameTypes(1) = "NetBios"
|
|
|
|
Dim resultCodes(6)
|
|
resultCodes(0) = "Illegal Input"
|
|
resultCodes(1) = "Name Too Long"
|
|
resultCodes(2) = "Numeric Name"
|
|
resultCodes(3) = "Name Contains Bad Characters"
|
|
resultCodes(4) = "Malformed Name"
|
|
resultCodes(5) = "Name Valid, In Use"
|
|
resultCodes(6) = "Name Valid, Available"
|
|
|
|
Dim i
|
|
Dim j
|
|
For i = 0 to Ubound(nameTypes)
|
|
Err.Clear
|
|
Echo "Validating " & wscript.arguments.item(0) & " as " & nameTypes(i)
|
|
j = srvWiz.ValidateName(nameTypes(i), wscript.arguments.item(0))
|
|
If Err.Number then DumpErrAndQuit
|
|
|
|
Echo j
|
|
Echo resultCodes(j)
|
|
Next
|
|
End sub
|