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
