#44794 - 2003-09-04 10:08 PM
Dos Window Size
|
Barclay
Fresh Scripter
Registered: 2001-07-25
Posts: 36
Loc: Houston
|
Can you size the dos window that comes up when you run kix using a script? Would like to make mine smaller and without the scrollbar? Thanks
|
Top
|
|
|
|
#44798 - 2003-09-04 10:52 PM
Re: Dos Window Size
|
Barclay
Fresh Scripter
Registered: 2001-07-25
Posts: 36
Loc: Houston
|
I had been using it do display information about the user and connection progress. See link... www.fusionxstudio.com/images/login.jpg
I don't necessarily have to have it show this but it looked good.
|
Top
|
|
|
|
#44802 - 2003-09-04 11:03 PM
Re: Dos Window Size
|
Barclay
Fresh Scripter
Registered: 2001-07-25
Posts: 36
Loc: Houston
|
I'll look into them, don't mess with kix a bunch but I had found that script a long time ago and stuck with it and haven't touched much. I'll read up on the forms, hopefully that will be better for me. Thanks!
|
Top
|
|
|
|
#44805 - 2003-09-04 11:22 PM
Re: Dos Window Size
|
NTDOC
Administrator
Registered: 2000-07-28
Posts: 11624
Loc: CA
|
r2d2,
Go ahead and post your script here (POST PREPPED) of course.
|
Top
|
|
|
|
#44807 - 2003-09-04 11:24 PM
Re: Dos Window Size
|
Barclay
Fresh Scripter
Registered: 2001-07-25
Posts: 36
Loc: Houston
|
Wow, why haven't I looked at kix forms before??? Awesome, I have a VB guy that would love this and could build some sweeet stuff. I would love to see your login script R2D2 please email to me.
One question I used the wkix32 but still have the dos window that pops up while form is open. Is there a way to eliminate the dos window opening?
Thanks
|
Top
|
|
|
|
#44811 - 2003-09-06 03:29 PM
Re: Dos Window Size
|
Mart
KiX Supporter
Registered: 2002-03-27
Posts: 4672
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 (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 . 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 .
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.
|
Top
|
|
|
|
#44812 - 2003-09-06 03:41 PM
Re: Dos Window Size
|
Kdyer
KiX Supporter
Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
|
R2D2,
RegShot and some other "cool" Registry tool are in the - KiXtart FAQ & How to's Forum
Right here - Registry Tools
Kent
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
0 registered
and 242 anonymous users online.
|
|
|