; *** 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
|
![[Big Grin]](images/icons/grin.gif){kind=icon}
![[Eek!]](images/icons/shocked.gif){kind=icon}
