#208225 - 2013-12-30 06:55 PM
KixForms MenuItems
|
ProjectStoner
Just in Town
Registered: 2013-12-24
Posts: 1
Loc: Minnesota
|
I need help getting the kixforms MenuItems to run programs when clicked. All that I get when run is a black box with the menus in it.
Here is my code:Break On
$System = CreateObject("Kixforms.System")
If Not $System
$nul= MessageBox("KiXforms.Net Not Initiated. This Script Will Now Close.","Error",16)
Quit()
EndIf
$nul = $System.Application.EnableVisualStyles
$Form1 = $System.Form()
$Form1.Left = 31920
$Form1.StartPosition = 0 ;FormStartPosition_Manual
$Form1.Size = $System.Size(763,687) ;(Width,Height)
$Form1.Text = "Form1"
$Form1.Top = 32218
$MainMenu = $System.MainMenu()
$File = $MainMenu.MenuItems.Add($System.MenuItem("File"))
$Exit = $File.MenuItems.Add($System.MenuItem("Exit"))
$Exit.Click = "ExitForm()"
$Install = $MainMenu.MenuItems.Add($System.MenuItem("Install and Configure Software"))
$Improvis = $Install.MenuItems.Add($System.MenuItem("Install Latest Improvis Client"))
$Improvis.Click = "ImprovisInstall()"
$Java = $Install.MenuItems.Add($System.MenuItem("Install Latest Java Client"))
$Java.Click = "InstallJava()"
$Patterson = $Install.MenuItems.Add($System.MenuItem("Install Patterson Software"))
$Patterson.Click = "PattersonInstall()"
$ManagePrinters = $MainMenu.MenuItems.Add($System.MenuItem("Manage Local Printers"))
$HP400 = $ManagePrinters.MenuItems.Add($System.MenuItem("Install HP 400 Printer"))
$HP400.Click = "HP400Install()"
$HP600 = $ManagePrinters.MenuItems.Add($System.MenuItem("Install Latest HP 600 Printer"))
$HP600.Click = "HP600Install()"
$XRAY = $ManagePrinters.MenuItems.Add($System.MenuItem("Install XRAY Printer"))
$XRAY.Click = "XRAYInstall()"
$DelEagle = $ManagePrinters.MenuItems.Add($System.MenuItem("Delete Eagle Soft Printer"))
$DelEagle.Click = "DeleteEaglesoft()"
$Misc = $Misc.MenuItems.Add($System.MenuItem("Misc System Configurations"))
$Keys = $Misc.MenuItems.Add($System.MenuItem("Update Windows/Office Keys and Activate"))
$Keys.Click = "KeysInstall()"
$Shortcut= $Misc.MenuItems.Add($System.MenuItem("Copy Shortcut To Backup Folder"))
$Shortcut.Click = "Shortcut()"
$TagExport = $Misc.MenuItems.Add($System.MenuItem("Export Service Tag and Computer Name"))
$TagExport.Click = "TagExport()"
$Description = $Misc.MenuItems.Add($System.MenuItem("Set Computer Description"))
$Description.Click = "Description()"
$Form1.Menu = $MainMenu
$PictureBox1 = $System.PictureBox()
$PictureBox1.BorderStyle = 1 ;FixedSingle
$PictureBox1.Height = 610
$PictureBox1.Left = 10
$PictureBox1.SizeMode = 1 ;StretchImage
$PictureBox1.Top = 10
$PictureBox1.Width = 730
$nul = $Form1.Controls.Add($PictureBox1)
$PictureBox1.Image = PictureBox1Image()
$Form1.Show ;Displays the Form
While $Form1.Visible
$Nul = Execute($Form1.DoEvents())
Loop
Exit 0
Function PictureBox1Image()
$PictureBox1Image = "
/9j/4AAQSkZJRgABAQEAAAAAAAD/2wBDAAkGBhQSERQUEhQVFBQUFxcUFRcXFxkaFxcYFxcX
FxcXGBcYGyYeFxojGhgYHy8gIycpLC0sFx4xNTAqNSYrLCn/2wBDAQkKCg4MDhgPDxcsHBwc
LCwpLCksKSwsKSwsLCksKSwsLCwpKSkpKSkpLCwpKSwsLCwpLCkpKSwpLCwsLCwpKSn/wAAR
CACxARwDASIAAhEBAxEB/8QAGwAAAwEBAQEBAAAAAAAAAAAAAgMEAQAFBgf/xAA8EAABAwID
BQYFAgUDBQEAAAABAAIRAyExQfAEElFhcYGRobHB0QUTIuHxMlIUQmKisgYzchUjgpLSB//E
ABkBAAMBAQEAAAAAAAAAAAAAAAABAgMEBf/EACgRAQEBAAIBAwIFBQAAAAAAAAABEQIhEgMx
QRTwBDJRYaETIiNicf/aAAwDAQACEQMRAD8A/FgEbWrAEbQo1LoRhqEBMAU0nELWOsuAWtap
J2+uBXQiDNaCBrlxCINXFIaCFyNrERagaVurC1N3FpYnqiC1CGqgsWOpo0yN1Y4JzaZC5zZ9
UaE7guATHNRMYmZcLt1PdR4ZLN1ToJlYmFiJrE9AALIdxVbkYrCVOml+UV3y1SAs3OKehKWr
oTHC+CW4KidKxatAQAFCmEISqgLKxGQhKYPCY1AEbAoqHMbdOiyANVIIUWotIaEW4jLeC6Et
Jwp6si+Vy7oRNw4I2iQp0ALB0Q7mreyfTbr34LtxGjU8cvL2WtaidTRMCrTCKaMUUwBPFLWs
Oqm09RuZqywUtW9lV8ub3hc4Z+aNVpHyEt9NWOaDz1wQGgNTCWqQOYExlDVkzcT2U+qd5GSG
WsOuHshfQgfj2VZ8Eh9MiwNjrtUygmjSWPpwUxzyElzyq7pluZfBaxnGyB9ZxzSyc1eEbWq8
O9aDaYugDExhQAlspZYqNyCue2yNCUMWQn7ixwVaCSEBCaQgIVQiyhhHCyFQNCc1iABMYVnW
dYGpoYhDU4CB5KLU1rAEbQhbTzTekrO0mtZqyMMmfT7IabDJx8Ucxl5/ZSQWU47lobr7Qmg8
j3LgOGvHUI0EFs6t3omUk4jUfdLbiYT1QmM1ZPey3l9kumTOBI6i/grvlfTIBzyOufYlaHnP
aYjLXJZTZbGZw1EFegzZgRJB7o9RoLqgn9OV/Gf3X+yfkqVPT2buzyM9L+CXV2W/NG6m5xEY
Y44X4HBGKRzi3GEvZcINMQcPXLgexaylaB6KqnRERFuh6Lhs5B+nsnh3JaZJoHXrKRXpXxwy
n7XXomm4/tbw55WU1anHE9fylKENShbBTlnTXZCtdBn3Gtc0vdnVlpKaT5OPBKfTgr0H07pF
VmfVVKCNzBc1t8ITi3jgOQSnvGA8vZV7g2AeuFpXBuXst2Z8Hr11+U2qwk/dT7BPUYp3MVjy
JgpNWlCqUkxahcE4tS3haQFEIYRlCVQNaUxhSgEbbLOs6aCnYgSlASjbbLwUVJww5d6JoEY+
S2lTBFzAnp56snbm6YGvBZWkGnSPDzR7nH1TmVJGGuwhD8sk/t1zuo0m4D7AYoGmcL9yskAX
A7Ix7koUpuJ6SDPcZzSlEI1l6LW0Z7By49UVXpruTWUTN7Rxm/eI4+CrVN2YSfqgAf8AER2L
09krNNoAtN93mZwxk6hRUgZwg8hOPYePiFTSZE9oBMx1BmDj4qeXZJ69YyZAjD+XPopHB3Dt
lvcZXq1qe8wREtMGCBI48OC6ls8zZxnHHpiJ0CnOSoSzdgBx/uz7BHNYKcXtyx/+eXmr6Gy7
7bkx2344WxCD+BM/VJjL3G92qdi9T0KYc64E8x7np3qr5NzEePAcoQU2NGA6YCL2nHzT6lfC
xnw44k+mRU03n7QSDbHsiTfO3ip9pdAEtMYHDvtrBewGAwYvymPDDrF0vaQMLgkmZtPefTNE
5G8FwnCe9bs+zXg92fidSvaHwcQDYzzvHhbsS/4Mg58Ljzth3q/PfYPPp0yMpGEX9NYJTtlE
Ejlbn4r0msgie++PQx5JddoHI8rBLyGvGrmd7EZYH8KD5UmPZexVc1wIIvFjGPjqVAWRoeS6
ONDdnpCegk4e+oCppt5zln7ItnECY13cvJTkkOnLXFL3LQ16XDzSsoPcm1zIONlKFc9gx7YU
7lSW60Eh4WkBSEphCBXAcAiJWhq17VkltM8u6F6GzUZ4eCgpBWUHQfHUYLPmmqzTxt4+0qcu
voeRTHbSYx58fWeCS464LOSlIdPDKNXTmuMH74dFMykdT7Kncmxt2ehgJU8H884+p8ZGoWsq
6+nySmsJy136umGhGGPDH/EeqnIMa6kDM9mHsn0YAO8Rha0c8d4C1rnkk0m34eniYVlPZy2L
mDkJJA4gCOeHHFK0YzZ6Y3sBbG1o5/SRxVVRu7fDgJ7/ANOXelNoS6I55yOPHLlkrh8OebQL
ZHeggdkH7KbYSr/TjWPrMbUEy5oLTBBkxBDhhy/K+kNHZgCW0Wh0ZUqePOBhgvn/AIBQIrU5
GFRhmQLzzMn8L6//AE58R3Nj2l/z/wCGh9IfN+WakSYjcFzOHauj0OM5a5/W3Zlz3+/h4Nbb
G/sp8P8AbZ7JdNzXMeQ2mDumN1jQ4RGbAHZcV9L8Q2KntW1bLvuNSlV2V7/nMhjqzqQO84s3
fpN298ZL4vYfibalWoKQe2iaZc2m52+W2bJmwJneOWK258OM43pPCcpym8tT1r2z8f8AL1Ur
WNBvE4gWmbcSSvSw4dLTj/THnlyQbVsm8Abd9v8AIzwXnb8O5INpae3p3XPTIeCZSZvAjMHC
WYd3BD/0+ZOQ4GLcYkZ8OiI0g0RhyuDxsYIzxnqeB18Hqujsn0y0kZm1u+TNzqyVtNEiSY44
AW7Z0Sq6B+kHdM5gDPrPb2qRjTvGcTe8CPHHt4LOam1H/DycLG4j3hL2mgD2KnaAGNIdaTI4
+OPVR1KliY/li/l3rSaWvC2zZjI59fUIKLDh3TbzOu1ejtALmbuJ6jy6GEGybNu4TzifPK66
fLoaxuymBIkTPhx7VLUpXjnbD2XvUqBMWvlqFNX2VoqCxBIzsD4qJz7T5PDbcn73Q1KMTrXc
q6tOHG2aGsNT6Lacla897NWSqrdWVLgM9dqRU6a8lpKepyhRuCGFoapjV1RtkNMJ7xorKglo
tr1VdNvZ2pDYGvun0yNflTyLGszxPWD3raTJP2RjHj3+SVUfBge6k8UC3LXMAKyi36bDr72s
Oql+ZIBwtkAE/Yaom+fIehWXKdHhopkmOfX190bqLhgD4x/jj+EwHibdmvJHSAxsekZ8t70z
WdoxKKZ3vx6X7wrm0ZBuD03SCfDnjyQBnEmJmx8ZDtQrG1SDae2T2H6vLge1WjCqNIiRY3gD
6T0wOpKro1DNhle0T270X9UjeMkGMbzBx658/HNP2eGm36jhl2Y9e5TbpY9j4S4mowlps6Zj
uO9fhmRICHZPjtbZWbuzupkVGh9QVAx12AYSRx4Idk2qCIN5sbTlBxBGRxOJvZekaxAgPd/7
Y3GZqGcRic1p6X4iel1Yz5cNuvlNs/8A0DaBtHznVWGoxrqTRDdxrXWcGtEDt6cF53+ktpD6
5a0g/wDZfFwf2wvtv44g/rdONnOHcDNsLciq/h/xBxe4y79LiPq8ZFx91t9VOf8Abnv0m8PG
eV7zt4P8PA544cbcBHX3Q/qBBIGQgDw45i3Ar7N2zbS9m+ylVLXAFrg4m3ECZMr5yv8AFqgn
63j/AMne6X01/X+GX1P+pA2AvcCbEZiYteIEACcoy5J7vh/1zfiRIAkRYCPDJLPxI1KTgSSW
vp3c6cQ/AOMDDJU0alhMYRAwFpwFpjwXJ63C+nc3W/Hn5TQ02xlHZj0wKi22WiRO6cIx55kk
qza3iIkCeEdwtzU28HWiQPDuwss5+qbXgfEKhI3nCMhywywH3U4YSwMP6jwxgYcMeS9TbNmk
/VAaLgAi/PgOq82k76zMEE8sIwW/G9dFp7KP04meN+7OcfFT7S8Mwk8bSe2/gqDYHhe/04G4
EKAVryRF/wCkn0hPj2WnUmuxA5/zYa80NXbScbR6eSaNsthccvzoLzdoJLhPEW+1lXGbexOw
16wcbDz8kl18zz/GSNzRNr+WuxKqO4LWKlIrN1ip3t1oKp1TWip3gLbjVRO4JZTnhKI1oLSV
UNa5Na7Wip2uRNeZ59iVizXa1K6Y17rg6NBaBxnXVSFVPLXXV1hEuz56y6rBWAGHVEIMHz9v
ZZmooVfpLbcW+RGI8UzZ4JuRiPxc2SRRvImcxnEqh7A4zFybi3YcNSs7h4pLwSYMd2PSOzuS
6e0FhIdu8ZmRfD+XmqPlSIBuMTPOwwSjtAPAkWkYxkLmeHFZSw8MbtEi0Hu68NSip1Tjy/p8
Aphc56zuD5hUMY8n9Lnd8HPG4/BRZIT1RQAAcDfHdcQTPdbDwQNrtDrg2FoiTb/jhbwKt2Sm
G2L4EcTAIwmBxHgpdqe1r7GbEQCY648eX8qwl24HbHW3SC4xMyQ4ejevFeyNvGRF5NyPMt58
cIXzrKo3uIjMn0w4L0mbeeP0gfyzgchB1Itknzmpxaz6iYdbkXRlwEC+sU+i9w35Jsx37r4Y
yI/IUuyNvBjrD+vLL8KkNB3g1u84sMtaDOIkQDOHAYBHp3/JJ+6ec3jf+PsNmqN3fhzjQ2qq
dxkOoz8tn1D/AHItGdzgCvMobE0VNsfUbSqRtfyg80H7QZd9bmNoMI3f1Rvl1jbhPy+3u2lo
Io1NsYxv0tpt/i4gNn6QQABNow8l8/Sq7dS3vlM22nv2d8tldu913Rc8+q9tyz46+8x9P8e2
ZtLa/iFKmA1lOps5a3Ib1NzyBylxTdhbLBgMxB9mr5z4LRruG0O2hlcOe6h9ddtTecQKoJ3q
t3QN0ZwIXuUnxDZs0Y43815f4r8zXMiL4tUJeA0dTcdhOsVtKv8AKaSRJzi5v2QIRVpa44kG
IIGPU4qL4jVI7NZnUrD3mIo67y8wQTwN8I6KKsGtdJM90a7EO/vNm5LfEE2xOrKfbWTabNEn
rz/KuT4IW2VS4W/Sev40F5gEnDC2SbsjyJyv/TfxuFZtLWgb09RPstPy9DcSb0WtfHD3Sdqp
SeGWUeCOm6T+bcsNXXOqfVGOBxHdf0Ve1NPuR56whIe+ea9CoRGI8PZedUdBWnG6coSdeiW5
2tFc52vuUp7tWWsXAvKUXclz3JZK1kXDQjY66FNoBKtDWUySqaNMCxz5eqjLtWWkys7Ap2il
HTxXbKY5Dt9uaYTLZziZm/hfLG6Kk8QAfQd+az3o3o0aXaLYX8CFwsZxyi/PnwUtGpAg4a1K
ppbWCCDlYTmOpJWFlUsG0th0ZGf5r69VENoBxPj34hOpFm9GTs7W8cMPBbU2KATJdnIw6XUz
IDG7WGtndZNoNvINSqm3ucbmL5AKR1Yui+HSO4SuzGBjP2xVeEJfR1aLdxy8kwWxy4jsxhSU
n2iey3vq60vvbyPmD29qnAc2u4Ge+CcFa7aRFoPcfHd1Zeax5A5nWKAO4GNckeOk9ujtpBEx
hxFtT4hVMe43jpwwt9MX4+K8HZNpInMnpaeXFens+3yYIx/4mc8lHLgTnMG9JAHZnngB55Jj
CBgAOm6gq7QLjj2+eghbXExrwRn7IsWOfDSTHK3ovMfXM3z6X71TVJjH06Yx4FIqt+k8/wCa
LeFsNcHxZ0qjtZJiJBjId9u/tTNv2oYW4Ynhwx5KdnG1uAE5dvHw4qGvWJPLKDPqtPHanFuz
PA+o4YHLHkp67IJP4vnOX3UtSuZ3QbDGIx7Mk2nXkAETGFiY5ZQn452mz5NNLke5ZWd9OOHP
2K0VY+/5U9auI+nLv8DqVOWpCGZ68b+WKQ838c0xlYHKOw+esUtxF4/PcAtIZb3dfH3SZWv5
eSAm3LnbzWsi4CoNR9kpx1+Uwnl5JLzqy0ioU4ICOiNxQby0i4MJ9LDklNOrpjRoKa1dCNrO
q2myI+6a2meXiVNoc9xiNeaY13gha1EzH8rOmYDr8KijtQb06e51CmN+SU54nj3eqnNN6prM
Lr4G1yO1WDaGOG6DYCRcW7zqV4THDwgXHfYJ7KkZ4Dj9lny4GoqUZdx4ER32MpDDf7254qtu
0CMJMZx6jUqYiDJMDx7sUSgwUzOUJ1ElxsL8wFODF/b0TKdUseCM+EdqVJZtTBiM8bJTtmiJ
Njyt2qkkTOM3N87Ql1agPHx8brOUqVTplpkT3x14yhG1S73j2Q1NoN8h3a+6VTrXHutYl6DK
3HXgtD9a9lIKhExF+JMd+C2ltIb3xklhPQNYDu5eZOoQVK2Jt3juxupam0DGfTs4qV20Hjru
1dOcWdiurtPMDpGoxSHVoF/Lxkasp2Og3M9o9QgftI1HornFNgXGLjXeio1ZMW9PFLe4e2Hv
6KdrzPRVmwsV1aknp0SgeNu5Y6peZsll/aiQjjHDwjyOoSvmSeWuiU+p0QsCcgw1ztfhY8nh
rpghlY5ychgqCElw7E5z0iFpFQBCWU0pZWkXBhqYxyHdsup4qa0UB+tFUNdNp12qUIxUWdgW
FwiCuLOB12hQnaExlbetgOSjxw1cWjet2x+Ut7ec9D9kJviUYGIUmxlQZg67E+ltjRg2/Xwh
Tux+yA6ufZPJQsO3uOHv5gpVWvxJSA4ctdiW5+vwicYFlPaoxEhOdttpDoyiwPhivMdUWCon
eEJ6A+IuGBkc00bcCMYPYvJ312/4I/pwnpHaJz6LhWnH08lJ8zgjFwjArZXGhZE94OBxxUjT
AMY65IqbuOu/2RiTnvj7fYeqF9XWrpdQjKO77Li8cfGPIIwscXePCUAtr7IXO1dcXKsTg3VL
flK344LpyQPRiWFy4uSTUXbyrBhkrt5LATAgsGCgqBY5yDeRIeOJQa1dYShKvDjHFAVznLAq
WtU7xeyc6QhcFK20CiqHWgkNemF6WdhgditbUsfshKwIB1KrCd/EKZiY1yiyGP5y35vNKB1Z
Hva/KMAHPK7eWO1glyqwDlZvIN5YXJ4QnuWNelkrgngVMqJprd6jDlslLxCttRMY6M+qkFRH
vnilhKHPQ/NPFK3tW9VhKMI3eQGtks30LiniTPmIHVNWQOXMRhYGJTRSQyjFXtRSDvQs3kLl
rAM3R2eyMGOLkLijhv7vCVjmt/d/aU8GFlC5F9P7v7T5rob+7+1UqQkoSU0tEfq7IPmklNT0
auCSzNYuWc9lArYnqjZguXJhjcT2LguXIAinPwXLlNNi0rlyQLrYBKeuXJwmLAuXKwxywLFy
AZTx7UzaMRrNcuS+QFiLNYuTSbR9vNaVq5SAHBaFy5MguQuXLkE12XVMOeuC5ckRL/dDkuXJ
m0ZLsly5OAupihXLkzdklFcuVQ3/2Q=="
$PictureBox1Image = $System.Bitmap.FromBase64String($PictureBox1Image)
EndFunction
Function ExitForm()
Quit ()
EndFunction
Function ImprovisInstall()
$ Shell "\\adpispc-jbsiede\E\Improvis.bat"
EndFunction
Function InstallJava()
$ Shell "\\adpispc-jbsiede\E\JavaUP.bat"
EndFunction
Function InstallPatterson()
$ Shell "\\adpispc-jbsiede\E\Patterson.bat"
EndFunction
Function HP400Install()
$ Shell "\\adpispc-jbsiede\E\Printers\Printer225.bat"
EndFunction
Function HP600Install()
$ Shell "\\adpispc-jbsiede\E\Printers\Printer226.bat"
EndFunction
Function XRAYInstall()
$ Shell "\\Adpispc-jbsiede\E\Printers\6520Printer.bat"
EndFunction
Function DeleteEagleSoft()
$ shell "\\ADPISPC-JBSIEDE\E\DEL-PRINTER.BAT"
EndFunction
Function KeysInstall()
$Form.Messagebox("Please Click OK On Any Boxes That Popup.","Activating Windows/Office",0)
$ Shell "\\adpispc-jbsiede\E\Activate-Windows-Office.bat"
EndFunction
Function Shortcut()
$ Shell "\\adpispc-jbsiede\E\BackupShortcut.bat"
EndFunction
Function TagExport()
Break on
; Date...
$MyDate=@DATE
; Time...
$MyTime=@TIME
; NetBIOS Name...
$MyDomain=AMDPI.LOCAL
$CPUName= @HostName
; IP Address...
$IP1 = LTRIM(SUBSTR(@IPADDRESS0, 1, 3))
$IP2 = LTRIM(SUBSTR(@IPADDRESS0, 5, 3))
$IP3 = LTRIM(SUBSTR(@IPADDRESS0, 9, 3))
$IP4 = LTRIM(SUBSTR(@IPADDRESS0, 13, 3))
; Then we build a valid IP address from the 4 octets, again seperated by dots...
$MyIP=$IP1 + "." + $IP2 + "." + $IP3 + "." + $IP4
; MAC Address...
$MyMAC="@address"
;Service Tag...
? "--> Service Tag Check"
$strComputer = "."
$objWMIService = GetObject("winmgmts:\\"+ $strComputer + "\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_BIOS")
For Each $objItem in $colItems
$ServiceTag = $objItem.SerialNumber
; Operating System Version...
If @INWIN = 1
$OS="@producttype, @csd"
endif
; Operating System Language...
$OSLangCode = LTRIM(SUBSTR(@SYSLANG, 1, 4))
$OSLangName = LTRIM(SUBSTR(@SYSLANG, 5, 15))
; Writing information to Screen...
cls
?
? "[Created]"
? "Date=" + $MyDate
? "Time=" + $MyTime
?
? "[Network]"
? "Domain=" + $MyDomain
? "Computer Name=" + $CPUName
? "IP Address=" + $MyIP
? "MAC Address=" + $MyMAC
? "Service Tag=" + $ServiceTag
?
? "[Windows]"
? "OS Version=" + $OS
? "Language Code=" + $OSLangCode
? "Language Name=" + $OSLangName
?
; Writing information to the ini-file...
WriteProfileString("\\adpispc-jbsiede\e\Computers\$cpuname.txt" , "Created" , "Date" , $MyDate)
WriteProfileString("\\adpispc-jbsiede\e\Computers\$cpuname.txt" , "Created" , "Time" , $MyTime)
WriteProfileString("\\adpispc-jbsiede\e\Computers\$cpuname.txt" , "Network" , "Domain" , $MyDomain)
WriteProfileString("\\adpispc-jbsiede\e\Computers\$cpuname.txt" , "Network" , "Computer Name" , $CPUName)
WriteProfileString("\\adpispc-jbsiede\e\Computers\$cpuname.txt" , "Network" , "IP Address" , $MyIP)
WriteProfileString("\\adpispc-jbsiede\e\Computers\$cpuname.txt" , "Network" , "MAC Address" , $MyMAC)
WriteProfileString("\\adpispc-jbsiede\e\Computers\$cpuname.txt" , "Network" , "Service Tag" , $ServiceTag)
WriteProfileString("\\adpispc-jbsiede\e\Computers\$cpuname.txt" , "Windows" , "OS Version" , $OS)
WriteProfileString("\\adpispc-jbsiede\e\Computers\$cpuname.txt" , "Windows" , "Language Code" , $OSLangCode)
WriteProfileString("\\adpispc-jbsiede\e\Computers\$cpuname.txt" , "Windows" , "Language Name" , $OSLangName)
EndFunction
Function Description()
$ Shell "\\adpispc-jbsiede\E\SET-DESCRIPT.BAT"
EndFunction
Thanks in Advance!!!!
Edited by Glenn Barnas (2013-12-30 08:03 PM)
Edit Reason: Added code tags
|
|
Top
|
|
|
|
|
#208226 - 2013-12-30 08:40 PM
Re: KixForms MenuItems
[Re: ProjectStoner]
|
Glenn Barnas
KiX Supporter
Registered: 2003-01-28
Posts: 4401
Loc: New Jersey
|
Welcome to KORG!
Taking it bit by bit..This is not totally valid - Quit is a command and not a function. Replace these with "Quit 0" or "Quit @ERROR" for an error termination.
Function ImprovisInstall()
$ Shell "\\adpispc-jbsiede\E\Improvis.bat"
EndFunction
You should also add some error checking. Possibly consider using WshPipe to execute the command so you can colllect the STDOUT and STDERR streams, along with a valid error code. There are several of these..
Installing from a UNC path is not generally recommended, and may not even function for some install apps. Using UNC paths embeds the install path in the registry, which could be an issue during feature adds or upgrades if the original server is unavailable. Using a mapped drive is preferred, as the install path can be matched regardless of the install server.
; IP Address...
$IP1 = LTRIM(SUBSTR(@IPADDRESS0, 1, 3))
$IP2 = LTRIM(SUBSTR(@IPADDRESS0, 5, 3))
$IP3 = LTRIM(SUBSTR(@IPADDRESS0, 9, 3))
$IP4 = LTRIM(SUBSTR(@IPADDRESS0, 13, 3))
; Then we build a valid IP address from the 4 octets, again seperated by dots...
$MyIP=$IP1 + "." + $IP2 + "." + $IP3 + "." + $IP4 $MyIP = Join(Split(@IPADDRESS0, ' '), '.')
Then there's the Date, Time, and other lines that assign a macro value to a variable. The variables are not used except to write to an INI file. This isn't efficient.
is not recommended (No Macros or Vars in Strings!). Use $OS = @PRODUCTTYPE + '. ' + @CSD
$colItems = $objWMIService.ExecQuery("Select * from Win32_BIOS")
For Each $objItem in $colItems
$ServiceTag = $objItem.SerialNumber
Finally, why is there a "Breal On" in the TagExport function? This is usually set at the start of the script and will rarely change during processing.
I don't run KF.Net, so can't actually test this further, but these issues should be resolved before moving forward. Better structure (indents, overall formatting, comments) would help, as would moving the data (command strings, UNC paths) out of the commands and into a set or array of vars at the top of the program. Embedding this data in the program becomes unmanagable after a bit.
Glenn
PS - Click Edit on your post to see how CODE tags are used to format your script code.
_________________________
Actually I am a Rocket Scientist! 
|
|
Top
|
|
|
|
|
#208227 - 2013-12-30 11:47 PM
Re: KixForms MenuItems
[Re: Glenn Barnas]
|
Henriques
Fresh Scripter
Registered: 2007-09-13
Posts: 43
|
I think you need to use .OnClick instead of .Click
|
|
Top
|
|
|
|
|
#208229 - 2013-12-30 11:52 PM
Re: KixForms MenuItems
[Re: ShaneEP]
|
ShaneEP
MM club member
Registered: 2002-11-29
Posts: 2127
Loc: Tulsa, OK
|
Also...Change this line...
$Misc = $Misc.MenuItems.Add($System.MenuItem("Misc System Configurations"))
To...
$Misc = $MainMenu.MenuItems.Add($System.MenuItem("Misc System Configurations"))
|
|
Top
|
|
|
|
Moderator: Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 793 anonymous users online.
|
|
|
