Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

47 lines
907 B

'
' Test IConfigureYourServer::IsDhcpConfigured
'
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-IsDhcpConfigured.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
Dim srvwiz
Set srvwiz = CreateObject("ServerAdmin.ConfigureYourServer")
dim i
i = srvwiz.IsDhcpConfigured
if Err.Number then DumpErrAndQuit
echo i
if i Then
Echo "dhcp configured"
else
Echo "dhcp NOT configured"
end if
End sub