Mart
KiX Supporter
Registered: 2002-03-27
Posts: 4673
Loc: The Netherlands
|
Barclay:
Check your mail. It's in there somewhere.
As promised. Our logon script based on kixforms. The example I based it on seems to be deleted accidentally ![[Roll Eyes]](images/icons/rolleyes.gif) (cleaned up my desktop and crap drive this week and forgot to give the example a logical name) but as I recall correctly I got it from www.kixforms.org. Thanx to the original editor, whoever that might be.
We have almost each function (lower part of the script) calling an external script to keep the code readable and not get a script with 50.000 lines of code. Sort of difficult to find errors in that ![[Embarrassed]](images/icons/blush.gif) . I used the kixforms dll v2.3.0
Beta 3.
It's not that fast at startup because of the massive amount of info displayed but this is done at managements demand ![[Frown]](images/icons/frown.gif) .
Files available for download here , including the screenshot. I removed all output info from the screenshot for privacy reasons.
Sorry Doc little to busy to post prep it. More time on Monday, will post a post prepped version then. Download the package or wait until Monday.
[edit]
Added post prepped script.
[/edit]
;===============================================================================================
;**** Created with KiXscripts Editor | http://KiXscripts.com ****
;**** Last Modified on 06-09-2003 at 15:24:46 ****
;===============================================================================================
;$nul=SetConsole("Hide")
;
;Settting some variables
$txtBoxBackColor = 192,192,192
$txtBoxTxtColor = DarkBlue
$txtLblTxtColor = Black
$fontname = Verdana
$fontsize = 8
$labelfontbold = True
$outputfontbold = False
$datainfolabelfontbold = True
$datainfolabelfontcolor = Maroon
;
;Get kix and kixforms versions
$kix = @KIX
$kixforms = "2.3.0.41"
;
;---------------------------------------------------------------------------
; Determine if computer is a server or workstation. Assign script functions to execute.
;---------------------------------------------------------------------------
Select
Case @PRODUCTTYPE = 'Windows 95'
$FuncToExecute=Split("fnScrFunc1,fnScrFunc2,fnScrFunc3,fnScrFunc4,fnScrFunc5,fnScrFunc6,fnScrFunc7,fnScrFunc8,fnScrFunc9",",")
;
Case @PRODUCTTYPE = 'Windows 98'
$FuncToExecute=Split("fnScrFunc1,fnScrFunc2,fnScrFunc3,fnScrFunc4,fnScrFunc5,fnScrFunc6,fnScrFunc7,fnScrFunc8,fnScrFunc9",",")
;
Case @PRODUCTTYPE = 'Windows NT Workstation'
$FuncToExecute=Split("fnScrFunc1,fnScrFunc2,fnScrFunc3,fnScrFunc4,fnScrFunc5,fnScrFunc6,fnScrFunc7,fnScrFunc8,fnScrFunc9",",")
;
Case @PRODUCTTYPE = 'Windows NT Server'
$FuncToExecute=Split("fnScrFunc1,fnScrFunc2,fnScrFunc3,fnScrFunc4,fnScrFunc6,fnScrFunc7,fnScrFunc8,fnScrFunc9",",")
;
Case @PRODUCTTYPE = 'Windows NT Domain Controller'
$FuncToExecute=Split("fnScrFunc1,fnScrFunc2,fnScrFunc3,fnScrFunc4,fnScrFunc6,fnScrFunc7,fnScrFunc8,fnScrFunc9",",")
;
Case @PRODUCTTYPE = 'Windows 2000 Professional'
$FuncToExecute=Split("fnScrFunc1,fnScrFunc2,fnScrFunc3,fnScrFunc4,fnScrFunc5,fnScrFunc6,fnScrFunc7,fnScrFunc8,fnScrFunc9",",")
;
Case @PRODUCTTYPE = 'Windows 2000 Server'
$FuncToExecute=Split("fnScrFunc1,fnScrFunc2,fnScrFunc3,fnScrFunc4,fnScrFunc6,fnScrFunc7,fnScrFunc8,fnScrFunc9",",")
;
Case @PRODUCTTYPE = 'Windows 2000 Domain Controller'
$FuncToExecute=Split("fnScrFunc1,fnScrFunc2,fnScrFunc3,fnScrFunc4,fnScrFunc6,fnScrFunc7,fnScrFunc8,fnScrFunc9",",")
EndSelect
;
;---------------------------------------------------------------------------
; Initiate KiXforms.
;---------------------------------------------------------------------------
; Creating a 'Root' form that is never made visible allows us to hide the
; other forms from the taskbar.
$frmRoot = CreateObject("Kixtart.Form")
If @ERROR
$nul=SetConsole("Show")
?"KiXforms.dll not installed/registered"
Exit(1)
EndIf
;---------------------------------------------------------------------------
; Main Form
;---------------------------------------------------------------------------
$frmMain = CreateObject("Kixtart.Form")
$frmMain.Size = 660,550
$frmMain.SysMenu = 0 ; Disable the sysmenu. Prevents users from closing forms
$frmMain.Text = "Network logonscript running on Kix @kix and Kixforms $kixforms"
$frmMain.Center
;---------------------------------------------------------------------------
; User Information
;---------------------------------------------------------------------------
$fraUser = $frmMain.Frame
$fraUser.Size = 640,400
$fraUser.center
$fraUser.Top = 10
$fraUser.Text = "Logon Information... "
$fraUser.fontsize = $fontsize
;Logo and general information
$PictureBox = $fraUser.PictureBox
$PictureBox.Picture = @LDRIVE + "\logo.bmp"
$PictureBox.Left = 360
$PictureBox.BorderStyle = 0
$PictureBox.Height = 85
$PictureBox.Width = 272
$PictureBox.Top = 13
;5(px from left),20(px from top),355(px lenght),40(px height))
$lblGeneral1 = $fraUser.Label("@FULLNAME, welcome @@ <company name>.",5,20,355,20)
$lblGeneral1.Alignment = 0
$lblGeneral1.FontName = $fontname
$lblGeneral1.FontSize = $fontsize
$lblGeneral2 = $fraUser.Label("Please wait while the logon scripts are being executed.",5,40,355,40)
$lblGeneral2.Alignment = 0
$lblGeneral2.FontName = $fontname
$lblGeneral2.FontSize = $fontsize
;Place data inormation label
$lblDataInfo1 = $fraUser.Label("------ User Information ------",5,102,215,20)
$lblDataInfo1.Alignment = 2
$lblDataInfo1.FontBold = $datainfolabelfontbold
$lblDataInfo1.ForeColor = $datainfolabelfontcolor
$lblDataInfo1.FontName = $fontname
$lblDataInfo1.FontSize = $fontsize
;Get fullname
$lblFName = $fraUser.Label("Fullname:",5,122,105,20)
$lblFName.Alignment = 0
$lblFName.ForeColor = $txtLblTxtColor
$lblFName.FontBold = $labelfontbold
$lblFName.Fontname = $fontname
$lblFName.FontSize = $fontsize
$txtFName = $fraUser.TextBox(@FULLNAME,115,120,185,20)
$txtFname.Backcolor = $txtBoxBackColor
$txtFName.ForeColor = $txtBoxTxtColor
$txtFname.FontBold = $outputfontbold
$txtFname.BorderStyle = 0
$txtFname.FontName = $fontname
$txtFname.FontSize = $fontsize
;Get username
$lblUserID = $fraUser.Label("Username:",5,142,105,20)
$lblUserID.Alignment = 0
$lblUserID.ForeColor = $txtLblTxtColor
$lblUserID.FontBold = $labelfontbold
$lblUserID.Fontname = $fontname
$lblUserID.FontSize = $fontsize
$txtUserID = $fraUser.TextBox(@USERID,115,140,185,20)
$txtUserID.Backcolor = $txtBoxBackColor
$txtUserID.ForeColor = $txtBoxTxtColor
$txtUserID.FontBold = $outputfontbold
$txtUserID.BorderStyle = 0
$txtUserID.FontName = $fontname
$txtUserID.FontSize = $fontsize
;Get logonserver
$lblLServer = $fraUser.Label("Logon Server:",5,162,105,20)
$lblLServer.Alignment = 0
$lblLServer.ForeColor = $txtLblTxtColor
$lblLServer.FontBold = $labelfontbold
$lblLServer.Fontname = $fontname
$lblLServer.FontSize = $fontsize
$txtLServer = $fraUser.TextBox(@LSERVER,115,160,185,20)
$txtLServer.Backcolor = $txtBoxBackColor
$txtLServer.ForeColor = $txtBoxTxtColor
$txtLServer.FontBold = $outputfontbold
$txtLServer.BorderStyle = 0
$txtLServer.FontName = $fontname
$txtLServer.FontSize = $fontsize
;Get logon domain
$lblLDom = $fraUser.Label("Logon Domain:",5,182,105,20)
$lblLDom.Alignment = 0
$lblLDom.ForeColor = $txtLblTxtColor
$lblLDom.FontBold = $labelfontbold
$lblLDom.Fontname = $fontname
$lblLDom.FontSize = $fontsize
$txtLDom = $fraUser.TextBox(@LDOMAIN,115,180,185,20)
$txtLDom.Backcolor = $txtBoxBackColor
$txtLDom.ForeColor = $txtBoxTxtColor
$txtLDom.FontBold = $outputfontbold
$txtLDom.BorderStyle = 0
$txtLDom.FontName = $fontname
$txtLDom.FontSize = $fontsize
;Get time and date
$lblTimeDate = $fraUser.Label("Time and date:",5,202,105,20)
$lblTimeDate.Alignment = 0
$lblTimeDate.ForeColor = $txtLblTxtColor
$lblTimeDate.FontBold = $labelfontbold
$lblTimeDate.Fontname = $fontname
$lblTimeDate.FontSize = $fontsize
$txtTimeDate = $fraUser.TextBox(@DAY + "-" + @MDAYNO + "-" + @MONTH + "-" + @YEAR + " " +@time,115,200,215,20)
$txtTimeDate.Backcolor = $txtBoxBackColor
$txtTimeDate.ForeColor = $txtBoxTxtColor
$txtTimeDate.FontBold = $outputfontbold
$txtTimeDate.BorderStyle = 0
$txtTimeDate.FontName = $fontname
$txtTimeDate.FontSize = $fontsize
;Get department info
$lblDep = $fraUser.Label("Department:",5,222,105,20)
$lblDep.Alignment = 0
$lblDep.ForeColor = $txtLblTxtColor
$lblDep.FontBold = $labelfontbold
$lblDep.Fontname = $fontname
$lblDep.FontSize = $fontsize
$txtDep = $fraUser.TextBox(@COMMENT,115,220,185,20)
$txtDep.Backcolor = $txtBoxBackColor
$txtDep.ForeColor = $txtBoxTxtColor
$txtDep.FontBold = $outputfontbold
$txtDep.BorderStyle = 0
$txtDep.FontName = $fontname
$txtDep.FontSize = $fontsize
;Get privileges
$priv = @PRIV
Select
Case $priv = 'Admin'
$priv = 'Domain Administrator'
Case $priv <> 'Admin'
$priv = 'Domain Users'
EndSelect
$lblPriv = $fraUser.Label("Privileges:",5,242,105,20)
$lblPriv.Alignment = 0
$lblPriv.ForeColor = $txtLblTxtColor
$lblPriv.FontBold = $labelfontbold
$lblPriv.Fontname = $fontname
$lblPriv.FontSize = $fontsize
$txtPriv = $fraUser.TextBox($priv,115,240,150,20)
$txtPriv.Backcolor = $txtBoxBackColor
$txtPriv.ForeColor = $txtBoxTxtColor
$txtPriv.FontBold = $outputfontbold
$txtPriv.BorderStyle = 0
$txtPriv.FontName = $fontname
$txtPriv.FontSize = $fontsize
;Get primary group
$lblPrigr = $fraUser.Label("Primary Group:",5,262,105,20)
$lblPrigr.Alignment = 0
$lblPrigr.ForeColor = $txtLblTxtColor
$lblPrigr.FontBold = $labelfontbold
$lblPrigr.Fontname = $fontname
$lblPrigr.FontSize = $fontsize
$txtPrigr = $fraUser.TextBox(@PRIMARYGROUP,115,260,150,20)
$txtPrigr.Backcolor = $txtBoxBackColor
$txtPrigr.ForeColor = $txtBoxTxtColor
$txtPrigr.FontBold = $outputfontbold
$txtPrigr.BorderStyle = 0
$txtPrigr.FontName = $fontname
$txtPrigr.FontSize = $fontsize
;Get homedir
$lblHomedir = $fraUser.Label("User Folder",5,282,105,20)
$lblHomedir.Alignment = 0
$lblHomedir.ForeColor = $txtLblTxtColor
$lblHomedir.FontBold = $labelfontbold
$lblHomedir.Fontname = $fontname
$lblHomedir.FontSize = $fontsize
$txtHomedir = $fraUser.TextBox(@HOMESHR + "\" + @USERID,115,280,185,20)
$txtHomedir.Backcolor = $txtBoxBackColor
$txtHomedir.ForeColor = $txtBoxTxtColor
$txtHomedir.FontBold = $outputfontbold
$txtHomedir.BorderStyle = 0
$txtHomedir.FontName = $fontname
$txtHomedir.FontSize = $fontsize
;Get user location
Select
Case @HOMESHR = '\\servername\share'
$loc = 'Locationname'
Case @HOMESHR = '\\servername\share'
$loc = 'Locationname'
EndSelect
$lblUloc = $fraUser.Label("Location:",5,302,105,20)
$lblUloc.Alignment = 0
$lblUloc.ForeColor = $txtLblTxtColor
$lblUloc.FontBold = $labelfontbold
$lblUloc.Fontname = $fontname
$lblUloc.FontSize = $fontsize
$txtUloc = $fraUser.TextBox($loc,115,300,185,20)
$txtUloc.Backcolor = $txtBoxBackColor
$txtUloc.ForeColor = $txtBoxTxtColor
$txtUloc.FontBold = $outputfontbold
$txtUloc.BorderStyle = 0
$txtUloc.FontName = $fontname
$txtUloc.FontSize = $fontsize
;Get password age
$lblPwage = $fraUser.Label("Password Age:",5,322,105,20)
$lblPwage.Alignment = 0
$lblPwage.ForeColor = $txtLblTxtColor
$lblPwage.FontBold = $labelfontbold
$lblPwage.Fontname = $fontname
$lblPwage.FontSize = $fontsize
$txtPwage = $fraUser.TextBox(@PWAGE,115,320,130,20)
$txtPwage.Backcolor = $txtBoxBackColor
$txtPwage.ForeColor = $txtBoxTxtColor
$txtPwage.FontBold = $outputfontbold
$txtPwage.BorderStyle = 0
$txtPwage.FontName = $fontname
$txtpwage.FontSize = $fontsize
;Get max password age
$lblMpwage = $fraUser.Label("Max Pw. Age:",5,342,105,20)
$lblMpwage.Alignment = 0
$lblMpwage.ForeColor = $txtLblTxtColor
$lblMpwage.FontBold = $labelfontbold
$lblMpwage.Fontname = $fontname
$lblMpwage.FontSize = $fontsize
$txtMpwage = $fraUser.TextBox(@MAXPWAGE,115,340,130,20)
$txtMpwage.Backcolor = $txtBoxBackColor
$txtMpwage.ForeColor = $txtBoxTxtColor
$txtMpwage.FontBold = $outputfontbold
$txtMpwage.BorderStyle = 0
$txtMpwage.FontName = $fontname
$txtMpwage.FontSize = $fontsize
;Get password days left
$pweol = (@MAXPWAGE - @PWAGE)
$lblPweol = $fraUser.Label("Password e.o.l.:",5,362,105,20)
$lblPweol.Alignment = 0
$lblPweol.ForeColor = $txtLblTxtColor
$lblPweol.FontBold = $labelfontbold
$lblPweol.Fontname = $fontname
$lblPweol.FontSize = $fontsize
$txtPweol = $fraUser.TextBox($pweol,115,360,130,20)
$txtPweol.Backcolor = $txtBoxBackColor
$txtPweol.ForeColor = $txtBoxTxtColor
$txtPweol.FontBold = $outputfontbold
$txtPweol.BorderStyle = 0
$txtPweol.FontName = $fontname
$txtPweol.FontSize = $fontsize
;Place data inormation label
$lblDataInfo3 = $fraUser.Label("---- Software Information ----",350,102,215,20)
$lblDataInfo3.Alignment = 2
$lblDataInfo3.FontBold = $datainfolabelfontbold
$lblDataInfo3.ForeColor = $datainfolabelfontcolor
$lblDataInfo3.FontName = $fontname
$lblDataInfo3.FontSize = $fontsize
;Get Windows version
Select
Case @PRODUCTTYPE = 'Windows 95'
$winver = 'Windows 95'
Case @PRODUCTTYPE = 'Windows 98'
$winver = 'Windows 98'
Case @PRODUCTTYPE = 'Windows ME'
$winver = 'Windows ME'
Case @PRODUCTTYPE = 'Windows NT Workstation'
$winver = 'Windows NT4 Wkst'
Case @PRODUCTTYPE = 'Windows NT Server'
$winver = 'Windows NT Svr'
Case @PRODUCTTYPE = 'Windows NT Domain Controller'
$winver = 'Windows NT DC'
Case @PRODUCTTYPE = 'Windows 2000 Professional'
$winver = 'Windows 2000 Pro'
Case @PRODUCTTYPE = 'Windows 2000 Server'
$winver = 'Windows 2000 SVr'
Case @PRODUCTTYPE = 'Windows 2000 Domain Controller'
$winver = 'Windows 2000 DC'
Case @PRODUCTTYPE = 'Windows XP Professional'
$winver = 'Windows XP Pro'
Case @PRODUCTTYPE = 'Windows Server 2003'
$winver = 'Windows 2003 Svr'
Case @PRODUCTTYPE = 'Windows Server 2003 Domain Controller'
$winver = 'Windows 2003 DC'
EndSelect
$lblOs = $fraUser.Label("Windows version:",340,122,120,20)
$lblOs.Alignment = 0
$lblOs.ForeColor = $txtLblTxtColor
$lblOs.FontBold = $labelfontbold
$lblOs.Fontname = $fontname
$lblOs.FontSize = $fontsize
$txtOs = $fraUser.TextBox($winver,485,120,130,20)
$txtOs.Backcolor = $txtBoxBackColor
$txtOS.ForeColor = $txtBoxTxtColor
$txtOs.FontBold = $outputfontbold
$txtOs.BorderStyle = 0
$txtOs.FontName = $fontname
$txtOs.FontSize = $fontsize
;Get Windows version
$lblOscsd = $fraUser.Label("Servicepack version:",340,142,140,20)
$lblOscsd.Alignment = 0
$lblOscsd.ForeColor = $txtLblTxtColor
$lblOscsd.FontBold = $labelfontbold
$lblOscsd.Fontname = $fontname
$lblOscsd.FontSize = $fontsize
$txtOscsd = $fraUser.TextBox(@CSD,485,140,130,20)
$txtOscsd.Backcolor = $txtBoxBackColor
$txtOscsd.ForeColor = $txtBoxTxtColor
$txtOscsd.FontBold = $outputfontbold
$txtOscsd.BorderStyle = 0
$txtOscsd.FontName = $fontname
$txtOscsd.FontSize = $fontsize
;Get Windows version
$lblKix = $fraUser.Label("Kix version:",340,162,120,20)
$lblKix.Alignment = 0
$lblKix.ForeColor = $txtLblTxtColor
$lblKix.FontBold = $labelfontbold
$lblKix.Fontname = $fontname
$lblKix.FontSize = $fontsize
$txtKix = $fraUser.TextBox(@KIX,485,160,130,20)
$txtKix.Backcolor = $txtBoxBackColor
$txtKix.ForeColor = $txtBoxTxtColor
$txtKix.FontBold = $outputfontbold
$txtKix.BorderStyle = 0
$txtKix.FontName = $fontname
$txtKix.FontSize = $fontsize
;Get Windows language
$lblLang = $fraUser.Label("Windows Language:",340,182,140,20)
$lblLang.Alignment = 0
$lblLang.ForeColor = $txtLblTxtColor
$lblLang.FontBold = $labelfontbold
$lblLang.Fontname = $fontname
$lblLang.FontSize = $fontsize
$txtLang = $fraUser.TextBox(@SYSLANG,485,180,130,20)
$txtLang.Backcolor = $txtBoxBackColor
$txtLang.ForeColor = $txtBoxTxtColor
$txtLang.FontBold = $outputfontbold
$txtLang.BorderStyle = 0
$txtLang.FontName = $fontname
$txtLang.FontSize = $fontsize
;Get antivirus engine version
$antivirus = ReadValue("HKLM\SOFTWARE\Network Associates\TVD\Shared Components\VirusScan Engine\4.0.xx", "szEngineVer")
$lblAvirus = $fraUser.Label("Antivirus Engine:",340,202,140,20)
$lblAvirus.Alignment = 0
$lblAvirus.ForeColor = $txtLblTxtColor
$lblAvirus.FontBold = $labelfontbold
$lblAvirus.Fontname = $fontname
$lblAvirus.FontSize = $fontsize
$txtAvirus = $fraUser.TextBox($antivirus,485,200,130,20)
$txtAvirus.Backcolor = $txtBoxBackColor
$txtAvirus.ForeColor = $txtBoxTxtColor
$txtAvirus.FontBold = $outputfontbold
$txtAvirus.BorderStyle = 0
$txtAvirus.FontName = $fontname
$txtAvirus.FontSize = $fontsize
;Get antivirus Dat-file version
$Sdat = ReadValue("HKLM\SOFTWARE\Network Associates\TVD\Shared Components\VirusScan Engine\4.0.xx", "szDatVersion")
$Sdatdate = ReadValue("HKLM\SOFTWARE\Network Associates\TVD\Shared Components\VirusScan Engine\4.0.xx", "szDatdate")
$lblSdatDate = $fraUser.Label("Antivirus Definitions:",340,222,140,20)
$lblSdatDate.Alignment = 0
$lblSdatDate.ForeColor = $txtLblTxtColor
$lblSdatDate.FontBold = $labelfontbold
$lblSdatDate.Fontname = $fontname
$lblSdatDate.FontSize = $fontsize
$txtSdatDate = $fraUser.TextBox($Sdat + "-" + $SdatDate,485,220,140,20)
$txtSdatDate.Backcolor = $txtBoxBackColor
$txtSdatDate.ForeColor = $txtBoxTxtColor
$txtSdatDate.FontBold = $outputfontbold
$txtSdatDate.BorderStyle = 0
$txtSdatDate.FontName = $fontname
$txtSdatDate.FontSize = $fontsize
;Place data inormation label
$lblDataInfo2 = $fraUser.Label("---- Workstation information ----",350,282,215,20)
$lblDataInfo2.Alignment = 2
$lblDataInfo2.FontBold = $datainfolabelfontbold
$lblDataInfo2.ForeColor = $datainfolabelfontcolor
$lblDataInfo2.FontName = $fontname
$lblDataInfo2.FontSize = $fontsize
;Get workstation name
$lblwksta = $fraUser.Label("Workstation:",340,302,140,20)
$lblwksta.Alignment = 0
$lblwksta.ForeColor = $txtLblTxtColor
$lblwksta.FontBold = $labelfontbold
$lblwksta.Fontname = $fontname
$lblwksta.FontSize = $fontsize
$txtwksta = $fraUser.TextBox(@WKSTA,485,300,130,20)
$txtwksta.Backcolor = $txtBoxBackColor
$txtwksta.ForeColor = $txtBoxTxtColor
$txtwksta.FontBold = $outputfontbold
$txtwksta.BorderStyle = 0
$txtwksta.FontName = $fontname
$txtwksta.FontSize = $fontsize
;Get IP address
$lblIP = $fraUser.Label("IP Address:",340,322,140,20)
$lblIP.Alignment = 0
$lblIP.ForeColor = $txtLblTxtColor
$lblIP.FontBold = $labelfontbold
$lblIP.Fontname = $fontname
$lblIP.FontSize = $fontsize
$txtIP = $fraUser.TextBox(@IPADDRESS0,485,320,120,20)
$txtIP.Backcolor = $txtBoxBackColor
$txtIP.ForeColor = $txtBoxTxtColor
$txtIP.FontBold = $outputfontbold
$txtIP.BorderStyle = 0
$txtIP.FontName = $fontname
$txtIP.FontSize = $fontsize
;Get MAC address
$lblMac = $fraUser.Label("MAC Address:",340,342,140,20)
$lblMac.Alignment = 0
$lblMac.ForeColor = $txtLblTxtColor
$lblMac.FontBold = $labelfontbold
$lblMac.Fontname = $fontname
$lblMac.FontSize = $fontsize
$txtMac = $fraUser.TextBox(@ADDRESS,485,340,140,20)
$txtMac.Backcolor = $txtBoxBackColor
$txtMac.ForeColor = $txtBoxTxtColor
$txtMac.FontBold = $outputfontbold
$txtMac.BorderStyle = 0
$txtMac.FontName = $fontname
$txtMac.FontSize = $fontsize
;Get DHCP status
;Find active NIC.
$ActiveNic1=ReadValue("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Linkage", "Route")
;Clean-up aquired value.
$ActiveNic2= SubStr($ActiveNic1, Len($ActiveNic1) -51, 38)
;
$dhcp = ReadValue("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\$ActiveNic2","EnableDHCP")
Select
Case $dhcp = '1'
$dhcp = 'Yes'
Case $dhcp = '0'
$dhcp = 'No'
Case $dhcc <> '0' AND $dhcp <> '1'
$dhcp = '??'
EndSelect
$lbldhcp = $fraUser.Label("DHCP enabled:",340,362,140,20)
$lbldhcp.Alignment = 0
$lbldhcp.ForeColor = $txtLblTxtColor
$lbldhcp.FontBold = $labelfontbold
$lbldhcp.Fontname = $fontname
$lbldhcp.FontSize = $fontsize
$txtdhcp = $fraUser.TextBox($dhcp,485,360,140,20)
$txtdhcp.Backcolor = $txtBoxBackColor
$txtdhcp.ForeColor = $txtBoxTxtColor
$txtdhcp.FontBold = $outputfontbold
$txtdhcp.BorderStyle = 0
$txtdhcp.FontName = $fontname
$txtdhcp.FontSize = $fontsize
;--------------
_________________________
Mart
- Chuck Norris once sold ebay to ebay on ebay.
|
