Page 1 of 1 1
Topic Options
#77205 - 2003-10-24 09:56 AM My Computer Info - for Help Desk use PART 2
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11623
Loc: CA
Here is a completely updated script based on the one I did over a year ago.
This one no longer has GOTO statements and makes extensive use of published
UDFs (some with minor revisions).
It also adheres to the setoption('NoVarsInStrings','on') setting.

This is designed to be used on a users Desktop via a shortcut that calls
KiXtart which then calls this script for use by Helpdesk personnel.

This script can also be easily modified to send the output to a file as well as
the messagebox. The user can also press CTRL-C when the messagebox is
on screen and the contents of the messagebox will be automatically copied
to the clipboard where it can then be pasted into an email if wanted.

As time permits I'll work on an even more extensive version that will be
based on KiXforms similar to the one Crazy Eddie did.

NOTE: This script is designed mainly for Win2K and XP systems. Much of it
will function correctly on NT but most of it will not work with Windows 9x.
The new one based on KiXforms will probably not support NT 4.0 or Windows 9x.

NOTE: This script only supports screen resolutions of 800x600 or larger

If you find any problems with this script or have suggestions for improvement
please let me know. Due to screen size limits no more information can be
added to the script at this time. If you have pre-canned code for McAfee
Antivirus please let me know and I'll try to incorporate it into the code
here. I don't have McAfee so I was not able to code it.

Special thanks to those whose UDFs I've borrowed as well as others that have
helped me to learn more and more about KiXtart.
Shawn, Lonkero, Howard, Jens, Chris, Les
(not a full list, but the ones I bug the most with questions) [Big Grin]

Here is the link to the old version for those interested.

My Computer Info - for Help Desk use (posted 19. September 2002 05:25)

NOTE: This code requires WMI for a couple functions.

Simply copy ALL of this code as is and run it.

; *** File Name:          mycomputerinfo.kix 
; *** Date Created: 10/23/2003 7:33PM PST - By Ron Lewis
; *** Version: 1.02
; *** Last Date Modified: 10/24/2003 12:34PM PST - By Ron Lewis

debug off
break on
dim $iRC
$iRC=setoption('Explicit','on')
$iRC=setoption('NoVarsInStrings','on')
$iRC=setoption('WrapAtEOL','on')

dim $InfoMessageBox,$UserID,$FullName,$DomainMemberOf,$ProdType,$CSD,$Admin
dim $HKLMSCCS,$HKCUSMWCV,$HKLMSMWCV,$HKLMSMWNTCV,$HKCUSMWNTCV,$HKLMSMWCVAP
dim $CommonAppData,$Desktop,$StartMenu,$Favorites,$AllDesktop,$AllStartMenu
dim $Server,$CurrentIP,$CurrentOS,$FreeSpace,$CPU,$Mhz,$Ram,$ST,$SystemUpTime
dim $NAVInfo,$IE,$2KXP,$DNSHostName,$HostName,$MB,$InstallDate,$SupportNumber
dim $IPresults,$UserComment,$HomeDirectory,$LogonServer,$HomeDrive,$MaxPWAge,$PWAge
dim $PassExpires,$MacAdd,$ADSite,$OfficeApps,$NoNAVFound

$UserID = @USERID
$FullName = @FullName
$UserComment = @COMMENT
$HostName = @WKSTA
$MacAdd = @ADDRESS
$DNSHostName = @HOSTNAME
$DomainMemberOf = @DOMAIN
$ADSite = @SITE
$HomeDirectory = @HOMEDIR
$HomeDrive = @HOMEDRIVE
$LogonServer = @LDRIVE
$MaxPWAge = @MaxPWAge
$PWAge = @PWAge
$PassExpires = @maxpwage-@pwage
$ProdType = @ProductType
$CSD = val(right(@csd,1))
$HKLMSCCS = 'HKLM\SYSTEM\CurrentControlSet'
$HKCUSMWCV = 'HKCU\Software\Microsoft\Windows\CurrentVersion'
$HKLMSMWCV = 'HKLM\Software\Microsoft\Windows\CurrentVersion'
$HKLMSMWNTCV = 'HKLM\Software\Microsoft\Windows NT\CurrentVersion'
$HKCUSMWNTCV = 'HKCU\Software\Microsoft\Windows NT\CurrentVersion'
$HKLMSMWCVAP = 'HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths'
$CommonAppData = readvalue($HKLMSMWCV+'\Explorer\Shell Folders', 'Common AppData')
$Desktop = readvalue($HKCUSMWCV+'\Explorer\Shell Folders','Desktop')
$StartMenu = readvalue($HKCUSMWCV+'\Explorer\Shell Folders','Start Menu')
$Favorites = readvalue($HKCUSMWCV+'\Explorer\Shell Folders','Favorites')
$AllDesktop = expandenvironmentvars(readvalue($HKLMSMWCV+'\Explorer\User Shell Folders','Common Desktop'))
$AllStartMenu = expandenvironmentvars(readvalue($HKLMSMWCV+'\Explorer\User Shell Folders','Common Start Menu'))
$Server = readvalue($HKLMSCCS+'\Control\ProductOptions', 'ProductType')
$Admin = iif(ingroup($HostName+'\'+sidtoname('S-1-5-32-544'))-1+@INWIN=1,'Yes','No')
$NoNAVFound = existkey('HKLM\SOFTWARE\INTEL\LANDesk\VirusProtect6\CurrentVersion\Quarantine')
$CurrentIP = GetCurrentIP()
$CurrentOS = OSID()
$InstallDate = CTime($CurrentOS[9])
$FreeSpace = DiskSpace(,1)
$CPU = trim(@CPU)
$Mhz = formatnumber(val(@MHZ),0)
$Ram = formatnumber((memorysize()),0)
$ST = SystemType()
$SystemUpTime = Uptime()
$NAVInfo = GetNavAntiVirusInfo(,,1,1)
$IE = GetIEVersion()
$OfficeApps = GetOfficeDetails()
$SupportNumber = '123-555-555 Tie-Line: 4444-5555'


$MB='Help Desk Support Number : '+$SupportNumber+@CRLF
$MB=$MB+'**************************************************************************'+@CRLF
$MB=$MB+'[USER - INFORMATION] _____________________________________________'+@CRLF
$MB=$MB+'My User Logon ID '+$UserID+' ('+$FullName+')'+@CRLF
$MB=$MB+'Member of Local Admin Group ' +$Admin+@CRLF
$MB=$MB+'Maximum Password Age '+$MaxPWAge+' Days'+@CRLF
$MB=$MB+'Current Password Age '+$PWAge+' Days'+@CRLF
$MB=$MB+'Password Expires in '+$PassExpires+' Days'+@CRLF
$MB=$MB+'User Account Comment '+$UserComment+@CRLF
$MB=$MB+'Home Drive '+$HomeDrive+@CRLF
$MB=$MB+'Home Directory '+$HomeDirectory+@CRLF
$MB=$MB+'Logon Server '+$LogonServer+@CRLF
$MB=$MB+'[COMPUTER - INFORMATION] _____________________________________________'+@CRLF
$MB=$MB+'My Computer Name '+$HostName+@CRLF
$MB=$MB+'Computer Type ' +$ST[1]+@CRLF
$MB=$MB+'Computer is a member of ' +$DomainMemberOf+' Domain'+@CRLF
if $ADSite<>""$MB=$MB+'Computer AD Site Location ' +$ADSite+@CRLF endif
$MB=$MB+'Computer DNS Name '+$DNSHostName+@CRLF
$MB=$MB+'My Current IP Address '+$CurrentIP+@CRLF
$MB=$MB+'Network Card MAC Address '+$MacAdd+@CRLF
$MB=$MB+'Operating System '+$CurrentOS[12]
$MB=$MB+' (Service Pack '+$CurrentOS[3]+ ' )'+@CRLF
$MB=$MB+'Operating System Install Date '+$InstallDate+@CRLF
$MB=$MB+'CPU Type '+$CPU+@CRLF
$MB=$MB+'CPU Speed '+$Mhz+' Mhz'+@CRLF
$MB=$MB+'Memory Size '+$Ram+' MB'+@CRLF
$MB=$MB+'Drive Space on System Drive '+$FreeSpace+' MB'+@CRLF
$MB=$MB+'Computer Uptime ' +$SystemUpTime+@CRLF
$MB=$MB+'Current Workstation Time '+@DATE+' '+@TIME+@CRLF
$MB=$MB+'[MICROSOFT OFFICE] _____________________________________________'+@CRLF
$MB=$MB+'Access '+$OfficeApps[3]+@CRLF
$MB=$MB+'Excel '+$OfficeApps[0]+@CRLF
$MB=$MB+'Internet Explorer '+$IE[4]+@CRLF
$MB=$MB+'Outlook '+$OfficeApps[7]+@CRLF
$MB=$MB+'PowerPoint '+$OfficeApps[2]+@CRLF
$MB=$MB+'Project '+$OfficeApps[5]+@CRLF
$MB=$MB+'Publisher '+$OfficeApps[4]+@CRLF
$MB=$MB+'Visio '+$OfficeApps[6]+@CRLF
$MB=$MB+'Word '+$OfficeApps[1]+@CRLF+@CRLF
if not $NoNAVFound $MB=$MB+'Antivirus Def Date '+$NAVInfo[1]+@CRLF endif
if not $NoNAVFound $MB=$MB+'Age of Def Files '+$NAVInfo[8]+' Day(s) old'+@CRLF endif
if not $NoNAVFound $MB=$MB+'Symantec Antivirus Parent Server '+$NAVInfo[2] endif
$InfoMessageBox = MessageBox($MB,'My Computer Information',262208,0)

;********************************************
;******* User Defined Functions *************
;********************************************
function GetCurrentIP()
dim $IP, $TempFile, $Line, $cf
$TempFile = "%TEMP%\PING.TXT"
If exist($TempFile)
del $TempFile
endif
shell '%COMSPEC% /C PING -n 1 @WKSTA >'+$TempFile
$IP = ""
if open(1, $TempFile) = 0
$Line = readline(1)
while @ERROR = 0
if instr($Line,@WKSTA)
$Line = substr($Line,instr($Line,"[")+1)
$GetCurrentIP = substr($Line,1,instr($Line,"]")-1)
endif
$Line = readline(1)
loop
$cf = close(1)
endif
if exist($TempFile)
del $TempFile
endif
endfunction

;RETURNS array of thirteen identifiers
; OSID[0] full operating system description
; OSID[1] kernel description (Win9x, WinNT, Win2K, WinXP, Win2K3)
; OSID[2] operating system role (workstation, member server, domain controller)
; OSID[3] operating system service pack level
; OSID[4] operating system build level
; OSID[5] uni/multi-processor type
; OSID[6] registered owner
; OSID[7] registered organization
; OSID[8] Product key
; OSID[9] Install Date (use CTime() UDF to convert to date-time-string)
; OSID[10] OEM Duplicator string (can be set during SYSPREP unattended installs)
; OSID[11] OS Language
; OSID[12] @PRODUCTTYPE macro value (local and remote)
function osid(optional $sComp)
dim $osidarray[13]
dim $iINWIN, $sDOS, $iBUILD, $sCSD, $iPRODUCTSUITE, $sPRODUCTTYPE
dim $operating_system, $sp_level, $os_suite, $os_short, $productsuite
dim $os_type, $os_role, $os_flavor, $os_subver, $regkey
dim $os_build, $os_proc, $os_owner, $os_org, $os_key, $os_date, $os_oem
dim $os_lang, $os_producttype
$sComp=trim($sComp)
select
case $sComp=@WKSTA
$sComp=''
case $sComp and not keyexist('\\'+$sComp+'\HKLM')
exit 2
case $sComp
$sComp='\\'+$sComp+'\'
endselect
; fetch all macro info depending on whether it's remote or local
if $sComp
if keyexist($sComp+'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList')
$iINWIN=1
$sDOS=readvalue($sComp+'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion','CurrentVersion')
$iBUILD=readvalue($sComp+'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion','CurrentBuildNumber')
$sCSD=readvalue($sComp+'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion','CSDVersion')
if $sDOS='4.0' and readvalue($sComp+'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Hotfix\Q246009','Installed')
$sCSD=$sCSD+'a'
endif
$sPRODUCTTYPE=readvalue($sComp+'HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions','ProductType')
select
case $sPRODUCTTYPE='WinNT'
if $sDOS='4.0'
$sPRODUCTTYPE='Workstation'
else
$sPRODUCTTYPE='Professional'
endif
case $sPRODUCTTYPE='ServerNT'
if $sDOS='5.2'
$sPRODUCTTYPE=''
else
$sPRODUCTTYPE='Server'
endif
case $sPRODUCTTYPE='LANManNT'
$sPRODUCTTYPE='Domain Controller'
case 1
$sPRODUCTTYPE='Home Edition'
endselect
$sPRODUCTTYPE=readvalue($sComp+'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion','ProductName')+' '+$sPRODUCTTYPE
$sPRODUCTTYPE=join(split($sPRODUCTTYPE,'Microsoft'),'')
$iPRODUCTSUITE=''
$os_lang=$sComp+join(split(readvalue($sComp+'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion','SystemRoot'),':\'),'$\')+'\system32\shell32.dll'
$os_lang=getfileversion($os_lang,'Language')
else
$iINWIN=2
$dDOS=readvalue($sComp+'HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion','VersionNumber')
$dDOS=split($dDOS,'.')
$iBUILD=$dDOS[ubound($dDOS)]
redim preserve $dDOS[1]
$sDOS=join($dDOS,'.')
$sCSD=''
$iPRODUCTSUITE=''
$sPRODUCTTYPE=readvalue($sComp+'HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion','Version')
$os_lang=right(''+readvalue($sComp+'HKLM\SYSTEM\CurrentControlSet\Control\Nls\Locale',''),4)
endif
else
$iINWIN=@INWIN
$sDOS=@DOS
$iBUILD=@BUILD
$sCSD=@CSD
$iPRODUCTSUITE=@PRODUCTSUITE
$sPRODUCTTYPE=@PRODUCTTYPE
$os_lang=@SYSLANG
endif
; set the correct registry key
if $iINWIN=1
$regkey='HKLM\Software\Microsoft\Windows NT\CurrentVersion'
else
$regkey='HKLM\Software\Microsoft\Windows\CurrentVersion'
endif
if $sComp
$regkey=$sComp+$regkey
endif
; retrieve registered owner, organization, build, type
$os_owner=readvalue($regkey,'RegisteredOwner')
$os_org=readvalue($regkey,'RegisteredOrganization')
$os_proc=readvalue($regkey,'CurrentType')
$os_build=val($iBUILD)
select
case $iINWIN=1
; determine the operating system kernel
select
Case $sDOS='6.0'
$operating_system='Windows Longhorn'
select
case $os_build=4015
$operating_system=$operating_system+' (Alpha Preview 3)'
case $os_build=4008
$operating_system=$operating_system+' (Alpha Preview 2)'
case 1
$operating_system=$operating_system+' (Alpha/Beta/RC)'
endselect
$os_short='WinLonghorn'
$os_key=readvalue($regkey,'ProductID')
Case $sDOS='5.2'
$operating_system='Windows Server 2003'
$os_short='Win2K3'
$os_key=readvalue($regkey,'ProductID')
select
case $os_build=3714
$operating_system=$operating_system+' (RC1)'
case $os_build<3790
$operating_system=$operating_system+' (Alpha/Beta/RC)'
endselect
Case $sDOS='5.1'
$operating_system='Windows XP'
select
case $os_build=2250
$operating_system=$operating_system+' (Alpha)'
case $os_build=2257
$operating_system=$operating_system+' (Alpha)'
case $os_build=2410
$operating_system=$operating_system+' (Beta 1)'
case $os_build=2416
$operating_system=$operating_system+' (Beta 1)'
case $os_build=2462
$operating_system=$operating_system+' (Beta 2)'
case $os_build=2465
$operating_system=$operating_system+' (Beta 2)'
case $os_build=2496
$operating_system=$operating_system+' (RC1)'
case $os_build=2505
$operating_system=$operating_system+' (RC1)'
case $os_build=2526
$operating_system=$operating_system+' (RC2)'
case $os_build=2542
$operating_system=$operating_system+' (RC3)'
endselect
$os_short='WinXP'
$os_key=readvalue($regkey,'ProductID')
Case $sDOS='5.0'
$operating_system='Windows 2000'
select
case $os_build=1515
$operating_system=$operating_system+' (Beta 2)'
case $os_build=2031
$operating_system=$operating_system+' (Beta 3)'
case $os_build=2128
$operating_system=$operating_system+' (Beta 3 RC2)'
case $os_build=2183
$operating_system=$operating_system+' (Beta 3)'
endselect
$os_short='Win2k'
$os_key=readvalue($regkey,'ProductID')
Case $sDOS='4.0'
$operating_system='Windows NT 4.0'
$os_short='WinNT'
$os_key=readvalue($regkey,'ProductID')
$os_key=left($os_key,5)+'-'+substr($os_key,6,3)+'-'+substr($os_key,10,7)+'-'+right($os_key,5)
Case 1
$operating_system='unknown'
$os_short='unknown'
endselect
; determine the service pack level
$sp_level=$sCSD
if instr($sp_level,'Service Pack')
$sp_level=split($sp_level,'Service Pack')
$sp_level=trim($sp_level[ubound($sp_level)])
else
$sp_level=0
endif
; determine the product suite
$productsuite=val($iPRODUCTSUITE)
$os_suite=''
if $productsuite
if $productsuite & 1
$os_suite=$os_suite+'Small Business |'
endif
if $productsuite & 2
$os_suite=$os_suite+'Enterprise |'
endif
if $productsuite & 4
$os_suite=$os_suite+'BackOffice |'
endif
if $productsuite & 8
$os_suite=$os_suite+'Communication Server |'
endif
if $productsuite & 16
$os_suite=$os_suite+'Terminal Server |'
endif
if $productsuite & 32
$os_suite=$os_suite+'Small Business (Restricted) |'
endif
if $productsuite & 64
$os_suite=$os_suite+'Embedded NT |'
endif
if $productsuite & 128
$os_suite=$os_suite+'DataCenter |'
endif
if $productsuite & 256
$os_suite=$os_suite+'Single User Terminal Server |'
endif
if $productsuite & 512
$os_suite=$os_suite+'Home Edition |'
endif
if $productsuite & 1024
$os_suite=$os_suite+'Blade Server |'
endif
if instr($os_suite,'|')
$os_suite=left($os_suite,len($os_suite)-2)
endif
endif
; determine the producy type
$os_type=$sPRODUCTTYPE
select
Case instr($os_type,'Domain Controller')
$os_type='Domain Controller'
$os_role='Domain Controller'
$os_flavor='Server'
Case instr($os_type,'Server')
$os_type='Server'
$os_role='Member Server'
$os_flavor='Server'
Case instr($os_type,'Workstation')
$os_type='Workstation'
$os_role='Workstation'
$os_flavor='Workstation'
case instr($os_type,'Professional')
$os_type='Professional'
$os_role='Workstation'
$os_flavor='Workstation'
Case instr($os_type,'Tablet PC')
$os_type='Tablet PC'
$os_role='Workstation'
$os_flavor='Tablet PC'
Case instr($os_type,'Home Edition')
$os_type='Home Edition'
$os_role='Workstation'
$os_flavor='Workstation'
case 1
$os_type='unknown'
$os_role='unknown'
$os_flavor='unknown'
endselect
; create the @PRODUCTTYPE macro
$os_producttype=join(split($operating_system+' '+$os_type,'4.0 '),'')
$operating_system=$os_producttype+' Service Pack '+$sp_level
if $os_suite<>''
$operating_system=$operating_system+' ['+$os_suite+']'
endif
; determine the installation date
$os_date=readvalue('HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion','Installdate')
; determine the OEM Duplicator String
$os_oem=readvalue('HKLM\System\Setup','OemDuplicatorString')
Case $iINWIN=2
$os_short='Win9x'
$os_role='Workstation'
$sp_level=0
$os_subver=lcase(ReadValue($regkey,'SubVersionNumber'))
select
Case $sDOS='4.90'
$operating_system='Windows ME'
$os_key=readvalue($regkey,'ProductKey')
$os_flavor=''
Case $sDOS='4.10'
$operating_system='Windows 98'
$os_key=readvalue($regkey,'ProductKey')
select
Case instr($os_subver,'c')
$os_flavor='SE'
case instr($os_subver,'b')
$os_flavor='B'
case $os_subver=' a '
$os_flavor='Second Edition'
Case 1
$os_flavor='OEM'
endselect
case $sDOS='4.0'
$operating_system='Windows 95'
$os_key=readvalue($regkey,'ProductID')
select
Case instr($os_subver,'c')
$os_flavor='OSR 2.5'
case instr($os_subver,'b')
$os_flavor='OSR 2.0'
case instr($os_subver,'a')
$os_flavor=' Service Pack 1'
Case 1
$os_flavor=' OEM'
endselect
Case 1
$operating_system='unknown'
$os_short='unknown'
endselect
$os_producttype=$operating_system
if $os_flavor
$operating_system=$operating_system+' '+$os_flavor
endif
endselect
$osidarray[0]=$operating_system
$osidarray[1]=$os_short
$osidarray[2]=$os_role
$osidarray[3]=$sp_level
$osidarray[4]=$os_build
$osidarray[5]=$os_proc
$osidarray[6]=$os_owner
$osidarray[7]=$os_org
$osidarray[8]=$os_key
$osidarray[9]=$os_date
$osidarray[10]=$os_oem
$osidarray[11]=$os_lang
$osidarray[12]=$os_producttype
$osid=$osidarray
endfunction


;SYNTAX DISKSPACE([DRIVE, FORMAT])
;PARAMETERS DRIVE
; optional driveletter, directory, or UNC (defaults to system drive)
; FORMAT
; optional parameter indicating the units to be used when returning the
; available disk space
; 0 = KB (KiloByte, default)
; 1 = MB (MegaByte)
; 2 = GB (GigaByte)
; 3 = TB (TeraByte)
; 4 = PB (PetaByte)
; 5 = % (percentage total diskspace, does not support UNCs)
function diskspace(optional $drive, optional $format)
dim $objWMIService, $sWQL, $colDrives, $objDrive
if not $drive
$drive='%WINDIR%'
endif
$format=val
Top
#77206 - 2003-10-24 02:00 PM Re: My Computer Info - for Help Desk use PART 2
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
Doc..

Here is the McAfee Check -

McAfee Antivirus 7.0 Information check

HTH,

Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
#77207 - 2003-10-24 02:16 PM Re: My Computer Info - for Help Desk use PART 2
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
Doc,

Trying out your code.

Missing an ENDSELECT on the second to last line. Missing an ENDFUNCTION on the last line.

Commented out lines as they do not work -
62
97
98
99
100
101
102
103
104
105

Additionally, it would be kind of neat to be able to run this and have it e-mail you as the admin the results.

Another idea just popped in my mind. Maybe incorporate an account checking process. Is the employee a temp and if so, when does their account expire? Is the employee's account locked out? I know this is going a bit off tangent, but maybe helpful in diagnosing calls to the Support Desk.

Kent

Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
#77208 - 2003-10-24 02:21 PM Re: My Computer Info - for Help Desk use PART 2
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
OK..

Found your GETOFFICEDETAILS() UDF..

http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=12;t=000482

Still need to comment out lines 62 and 97..

System Uptime is in the script, but not used?

Kent

[ 24. October 2003, 14:24: Message edited by: kdyer ]
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
#77209 - 2003-10-24 07:17 PM Re: My Computer Info - for Help Desk use PART 2
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11623
Loc: CA
Sorry Kent...

Was a busy night last night with a lot of distractions at home.
I did not copy all the correct code to the board. I have reposted the code above.

This is not a LEAN/MEAN/Golf script, if you really want to trim it down that is okay with me.
Hopefully though it should work pretty much as is by those with less experience with KiXtart.

I have also run this entire script through MCA's kixstrip422.exe program and it does not
find any errors with the code.

If you don't have Symantec AV it should not show, you don't need to rem out the code, it is
coded not to show on purpose. The same with the Active Directory call, if you're not on
an AD it should not show either.

Top
#77210 - 2003-10-24 07:22 PM Re: My Computer Info - for Help Desk use PART 2
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
Was not intending to Golf the code. I was trying to report what was going on with it.

Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
#77211 - 2003-10-24 07:28 PM Re: My Computer Info - for Help Desk use PART 2
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11623
Loc: CA
Thanks for letting me know Kent. I totally missed it, and posted incorrect code.

Please let me know if you still have any problems with this current code.

Top
#77212 - 2003-10-24 07:34 PM Re: My Computer Info - for Help Desk use PART 2
Shawn Administrator Offline
Administrator
*****

Registered: 1999-08-13
Posts: 8611
Doc, are you looking for testers with older OS's or have you pretty much covered them off ?
Top
#77213 - 2003-10-24 07:47 PM Re: My Computer Info - for Help Desk use PART 2
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11623
Loc: CA
Shawn,

This current script should work with NT/2000/XP/2003 as long as NT has WMI installed.

As for Windows 9x, some of it may work, but some of it will not work I'm sure.

Please test and provide feedback. Thanks.

Top
#77214 - 2003-10-24 08:28 PM Re: My Computer Info - for Help Desk use PART 2
mrwumpus Offline
Fresh Scripter

Registered: 2003-09-04
Posts: 14
Loc: California, USA
Hi, it appears the script was clipped at the end; maybe you ran out of space in the post. Can you provide a link to download it?

Thanks
_________________________
Jason

Top
#77215 - 2003-10-24 09:21 PM Re: My Computer Info - for Help Desk use PART 2
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11623
Loc: CA
[Eek!]

What the heck is up with that. Never noticed there was a limit to the post size like that before.

Thanks mrwumpus I'll see if I can get it posted to my site today and then I'll provide a link.

For the most part you could locate the correct UDFs and use it as well.

I'll see if I can get that done today and post an update.

Top
#77216 - 2003-10-24 09:40 PM Re: My Computer Info - for Help Desk use PART 2
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11623
Loc: CA
Found the problem... It's not the board, it's KiXforms. Appears I've hit the size limit of the amount of data that can be converted by KiXforms with the current method being used.
Top
#77217 - 2003-10-24 10:35 PM Re: My Computer Info - for Help Desk use PART 2
Shawn Administrator Offline
Administrator
*****

Registered: 1999-08-13
Posts: 8611
Doc,

In postprep, locate the following two TextBoxes and add the following line for each (just after the create) ...

$txtSource.MaxLength = 0

; ...

$txtTarget.MaxLength = 0

Top
#77218 - 2003-10-24 10:58 PM Re: My Computer Info - for Help Desk use PART 2
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11623
Loc: CA
Thanks Shawn.

That did the trick. Now the COMPLETE script with UDFs included are in the post.

Copy all and run it. Let me know if there are still any issues.

Kent,
Too many different methods to send email, etc... I'll leave that option up to the user to include or modify.

Top
#77219 - 2003-10-24 11:14 PM Re: My Computer Info - for Help Desk use PART 2
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
Error on line 97..

Unexpected command..

Kent=
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
#77220 - 2003-10-24 11:19 PM Re: My Computer Info - for Help Desk use PART 2
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11623
Loc: CA
This is what I show on line 97

quote:
$MB=$MB+'Access '+$OfficeApps[3]+@CRLF
What do you show on line 97 and what OS and KiXtart version and what Office is installed?

Top
#77221 - 2003-10-24 11:20 PM Re: My Computer Info - for Help Desk use PART 2
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11623
Loc: CA
If you can, turn on MSN or AOL and I'll try to debug it with you.
Top
#77222 - 2006-07-04 08:40 AM Re: My Computer Info - for Help Desk use PART 2
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11623
Loc: CA
Unable to modify the top post correctly at this point but for those in seach of this type of script there is a newer one located here.


My Computer Info - for Help Desk use PART 4
http://www.kixtart.org/ubbthreads/showflat.php?Cat=0&Number=138538
 

My Computer Info - for Help Desk use - 09/18/02 08:25 PM


Edited by NTDOC (2011-02-17 09:25 AM)

Top
Page 1 of 1 1


Moderator:  Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart 
Hop to:
Shout Box

Who's Online
1 registered (Allen) and 466 anonymous users online.
Newest Members
gespanntleuchten, DaveatAdvanced, Paulo_Alves, UsTaaa, xxJJxx
17864 Registered Users

Generated in 0.07 seconds in which 0.024 seconds were spent on a total of 12 queries. Zlib compression enabled.

Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org