IF WKSTA <> name

Dim $RC
;$RC = SetOption("Explicit", "On")
$RC = SetOption("NoMacrosInStrings", "On")
$RC = SetOption("NoVarsInStrings", "On")
If @SCRIPTEXE = "KIX32.EXE"
    $RC = SetOption("WrapAtEOL", "On")
EndIf

;Declare variables
Dim $UninstallKey, $Count, $Key, $Value

;Initialize variables
$UninstallKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
$Count = 0

;Code
$Key = EnumKey($Uninstallkey, $Count)
While @ERROR = 0
    ;? $Key
    $DispName = ReadValue($Uninstallkey+'\'+$Key,"DisplayName")
    $DispVer = ReadValue($Uninstallkey+'\'+$Key,"DisplayVersion")
    If InSTR($DispName, "Microsoft Office")
        $rc = Open (9, "\\irvineefa01\kixtart_log\Office_Versions.csv", 5)
        $rc = writeline (9, @TIME + "," + @DATE + "," + @WKSTA + "," + @USERID + "," + @fullname + "," + $DispName + "," + $DispVer + "," + $item + @CRLF)
        $rc = close(9)
    EndIf
    $Count = $Count + 1
    $Key = EnumKey($Uninstallkey, $Count)
Loop
ENDIF

$CSVarray = @TIME, @DATE, @WKSTA, @USERID, @fullname, $DispName, $DispVer, $item
$Rc = WriteLine(9, CSV($CSVarray) + @CRLF)

IF @WKSTA <> "DWF5Q8101C20"

Dim $RC
;$RC = SetOption("Explicit", "On")
$RC = SetOption("NoMacrosInStrings", "On")
$RC = SetOption("NoVarsInStrings", "On")
If @SCRIPTEXE = "KIX32.EXE"
    $RC = SetOption("WrapAtEOL", "On")
EndIf

;Declare variables
Dim $UninstallKey, $Count, $Key, $Value

;Initialize variables
$UninstallKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
$Count = 0

;Code
$Key = EnumKey($Uninstallkey, $Count)
While @ERROR = 0
    ;? $Key
    $DispName = ReadValue($Uninstallkey+'\'+$Key,"DisplayName")
    $DispVer = ReadValue($Uninstallkey+'\'+$Key,"DisplayVersion")
    If InSTR($DispName, "Microsoft Office")
        $rc = Open (9, "\\irvineefa01\kixtart_log\Office_Versions.csv", 5)
        $rc = writeline (9, @TIME + "," + @DATE + "," + @WKSTA + "," + @USERID + "," + @fullname + "," + $DispName + "," + $DispVer + "," + $item + @CRLF)
        $rc = close(9)
    EndIf
    $Count = $Count + 1
    $Key = EnumKey($Uninstallkey, $Count)
Loop

;;;;;;;;;;;;;
;	    ;
;    End    ;
;	    ;
;;;;;;;;;;;;;

ENDIF

$objWMI = GetObject("winmgmts:\\.\root\CIMV2")
$colItems = $objWMI.ExecQuery("SELECT * FROM Win32_Product WHERE Name Like 'Microsoft Office%'")
        
For Each $objItem In $colItems
        ? '1 '+ $objItem.Name
        ? '2 '+ $objItem.InstallLocation
        ? '3 '+ $objItem.Version
        ? '4 '+ $objItem.IdentifyingNumber
	?
    Next

$objWMI = GetObject("winmgmts:\\.\root\CIMV2")

$colItems = $objWMI.ExecQuery("SELECT * FROM Win32_Product"
	+" WHERE Name Like 'Microsoft Office Visio Professional%'"
	+" OR Name Like 'Microsoft Office Professional%'"
	)
        
For Each $objItem In $colItems
	'1 '+ $objItem.Name+@CRLF
	'2 '+ $objItem.InstallLocation+@CRLF
	'3 '+ $objItem.Version+@CRLF
	'4 '+ $objItem.IdentifyingNumber+@CRLF
	@CRLF
Next

? @time

$objWMI = GetObject("winmgmts:\\.\root\CIMV2")
$colItems = $objWMI.ExecQuery("SELECT * FROM Win32_Product WHERE Name='Microsoft Office Enterprise 2007' or Name='Microsoft Office Professional Plus 2007'")
        
For Each $objItem In $colItems
        ? '1 '+ $objItem.Name
        ? '2 '+ $objItem.InstallLocation
        ? '3 '+ $objItem.Version
        ? '4 '+ $objItem.IdentifyingNumber
	?
    Next

? @time

	$MSOKey  = iif(keyexist("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{90120000-0030-0000-0000-0000000FF1CE}"),'{90120000-0030-0000-0000-0000000FF1CE}','{90120000-0011-0000-0000-0000000FF1CE}') 
	$MSOType = readvalue("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"+$MSOKey,"DisplayName")
	$MSOdir	 = readvalue("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"+$MSOKey,"InstallLocation")
	$MSOVer  = readvalue("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"+$MSOKey,"DisplayVersion")
	$MSOMajor= Split($MSOVer,'.')[0]
	$MSOMinor= Split($MSOVer,'.')[2]
?
? $MSOType 
? $MSOdir	 
? $MSOver
? $MSOMajor
? $MSOMinor
?
? @time
?
? 'press enter to end'
gets $k

$COMPUTERNAME=@HOSTNAME

IF $COMPUTERNAME="BURRITO" OR $COMPUTERNAME="BURRITO.DOMAIN.DOM"
	$MSINTERNETEXPLORERSPSTATUS="VALID"
ENDIF