Comments for Innovative Technology Weblog

Comment on How to integrate App-V with SCCM without losing the features you care about by coach bags - Silkroad Online Forum - Silkroad Bot - Silkroad Loader - SRO

coach bags - Silkroad Online Forum - Silkroad Bot - Silkroad Loader - SRO — Fri, 03 Feb 2012 20:57:54 +0000

[...] [...]

Comment on SCVMM, choose your CPU Type wisely by Auto Clean Doheem

Auto Clean Doheem — Thu, 26 Jan 2012 06:12:34 +0000

Auto Clean Doheem…

[...]Innovative Technology Weblog » SCVMM, choose your CPU Type wisely[...]…

Comment on HOWTO: Bitlocker Status Reporting in SCCM 2007 by BPODFW

BPODFW — Wed, 25 Jan 2012 22:43:34 +0000

if drive “” then
if drive “” and trim(line) “” then
Do While trim(line) “”

are not equals before “”

Comment on HOWTO: Bitlocker Status Reporting in SCCM 2007 by BPODFW

BPODFW — Wed, 25 Jan 2012 22:33:48 +0000

The script below will use the microsoft security namespace to talk to the BIOS through the TPM management provider in windows and give you TPM info for the pc. You can even enable TPM with the proper commands in the MicrosoftTpm class.

Set WshShell = CreateObject(“Wscript.Shell”)
‘—- this error resume stops issues with the class not existing and erroring script
on error resume next
dim strComputer , objWMIService, colItems
dim strObjects(8)

‘—- set WMI path
strComputer = “.”

Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\CIMV2\Security\MicrosoftTpm”)

Set colItems = objWMIService.ExecQuery(“Select * from Win32_TPM”,,48)

For each objitem in colItems

strObjects(0) = objitem.IsActivated_InitialValue

strObjects(1) = objitem.IsEnabled_InitialValue

strObjects(2) = objitem.IsOwned_InitialValue

strObjects(3) = objitem.ManufacturerId

strObjects(4) = objitem.ManufacturerVersion

strObjects(5) = objitem.ManufacturerVersionInfo

strObjects(6) =objitem.PhysicalPresenceVersionInfo

strObjects(7) = objitem.SpecVersion

WScript.Echo “TPM enabled in BIOS”
‘Uncomment the following lines to for troubleshooting interactively
WScript.Echo strObjects(0) & “, ” &_
strObjects(1) & “, ” &_
strObjects(2) & “, ” &_
strObjects(3) & “, ” &_
strObjects(4) & “, ” &_
strObjects(5) & “, ” &_
strObjects(6) & “, ” &_
strObjects(7)

IF (strObjects(1) = “”) Then

WScript.Echo “TPM disabled in BIOS”

End if

Comment on HOWTO: Bitlocker Status Reporting in SCCM 2007 by BPODFW

BPODFW — Wed, 25 Jan 2012 22:20:39 +0000

Set WshShell = CreateObject(“Wscript.Shell”)
‘—– this error resume stops issues with the class not existing and erroring script
on error resume next
dim strObjects(26,12) , Noenable

Dim wbemCimtypeSint16
Dim wbemCimtypeSint32
Dim wbemCimtypeReal32
Dim wbemCimtypeReal64
Dim wbemCimtypeString
Dim wbemCimtypeBoolean
Dim wbemCimtypeObject
Dim wbemCimtypeSint8
Dim wbemCimtypeUint8
Dim wbemCimtypeUint16
Dim wbemCimtypeUint32
Dim wbemCimtypeSint64
Dim wbemCimtypeUint64
Dim wbemCimtypeDateTime
Dim wbemCimtypeReference
Dim wbemCimtypeChar16

wbemCimtypeSint16 = 2
wbemCimtypeSint32 = 3
wbemCimtypeReal32 = 4
wbemCimtypeReal64 = 5
wbemCimtypeString = 8
wbemCimtypeBoolean = 11
wbemCimtypeObject = 13
wbemCimtypeSint8 = 16
wbemCimtypeUint8 = 17
wbemCimtypeUint16 = 18
wbemCimtypeUint32 = 19
wbemCimtypeSint64 = 20
wbemCimtypeUint64 = 21
wbemCimtypeDateTime = 101
wbemCimtypeReference = 102
wbemCimtypeChar16 = 103

‘————————–
‘Run the Manage-bde.wsf, and put all the information into oExec to pull out later
‘————————–
Set oExec = WshShell.Exec(“cscript //Nologo c:\windows\system32\manage-bde.wsf -status”)

drive = “”
drivename = “”
Bitlocker_Status = “Disabled”

Set oLocation = CreateObject(“WbemScripting.SWbemLocator”)

‘——Remove classes
Set oServices = oLocation.ConnectServer(, “root\cimv2″)

set oNewObject = oServices.Get(“SCCM_BitLocker”)
oNewObject.Delete_

Set oServices = oLocation.ConnectServer(, “root\cimv2\SMS”)
set oNewObject = oServices.Get(“SCCM_BitLocker”)
oNewObject.Delete_

‘—–Create data class structure
Set oServices = oLocation.ConnectServer(, “root\cimv2″)
Set oDataObject = oServices.Get
oDataObject.Path_.Class = “SCCM_BitLocker”
oDataObject.Properties_.add “Drive”, wbemCimtypeString
oDataObject.Properties_.add “DriveLabel”, wbemCimtypeString
oDataObject.Properties_.add “Size”, wbemCimtypeString
oDataObject.Properties_.add “BitLocker_Version”, wbemCimtypeString
oDataObject.Properties_.add “Conversion_Status”, wbemCimtypeString
oDataObject.Properties_.add “Percentage_Encrypted”, wbemCimtypeString
oDataObject.Properties_.add “Encryption_Method”, wbemCimtypeString
oDataObject.Properties_.add “Protection_Status”, wbemCimtypeString
oDataObject.Properties_.add “Lock_Status”, wbemCimtypeString
oDataObject.Properties_.add “Identification_Field”, wbemCimtypeString
oDataObject.Properties_.add “Bitlocker_Status”, wbemCimtypeString
oDataObject.Properties_.add “Key_Protectors”, wbemCimtypeString
oDataObject.Properties_.add “ScriptLastRun”, wbemCimtypeString
oDataObject.Properties_(“Bitlocker_Status”).Qualifiers_.add “key”, True
oDataObject.Put_

Set oServices = oLocation.ConnectServer(, “root\cimv2″)

Set oNewObject = oServices.Get(“SCCM_BitLocker”).SpawnInstance_
oNewObject.Drive = “Disabled”
oNewObject.DriveLabel = “Disabled”
oNewObject.Size = “Disabled”
oNewObject.BitLocker_Version = “Disabled”
oNewObject.Conversion_Status = “Disabled”
oNewObject.Percentage_Encrypted = “Disabled”
oNewObject.Encryption_Method = “Disabled”
oNewObject.Protection_Status = “Disabled”
oNewObject.Lock_Status = “Disabled”
oNewObject.Identification_Field = “Disabled”
oNewObject.Key_Protectors = “Disabled”
oNewObject.Bitlocker_Status = “Disabled”
oNewObject.ScriptLastRun = Now
oNewObject.Put_

Exit DO

Else
if ucase(left(line,6)) = “VOLUME” then
if drive “” then
targetmif.writeline(” End Group”)
end if
i = i + 1
drive = mid(line,8,2)

drivename = mid(line,12,len(line)-12)
line = “”
strObjects(i,0) = drive
strObjects(i,1) = drivename
strObjects(i,11) = Now
if drive = “C:” Then
Bitlocker_Status = “Enabled”
strObjects(i,12) = “Enabled”
Else
strObjects(i,12) = “Disabled”
end if
end if
End if

if drive “” and trim(line) “” then
parts = split(line,”:”)
Select Case replace(trim(parts(0)),” “,”_”)
Case “Size”
strobjects(i,2) = trim(parts(1))

Case “BitLocker_Version”
strobjects(i,3) = trim(parts(1))
Case “Conversion_Status”
strobjects(i,4) = trim(parts(1))
Case “Percentage_Encrypted”
strObjects(i,5) = trim(parts(1))
Case “Encryption_Method”
strObjects(i,6) = trim(parts(1))
Case “Protection_Status”
strObjects(i,7) = trim(parts(1))
Case “Lock_Status”
strObjects(i,8) = trim(parts(1))
Case “Identification_Field”
strObjects(i,9) = trim(parts(1))
Case “Key_Protectors”

If len(line) = 26 then
line = oExec.StdOut.Readline()

j=1
Do While trim(line) “”
If j=1 then
strObjects(i,10) = trim(line)
j=j+1
Else
strObjects(i,10) = trim(line) + “, ” + strObjects(i,10)
end if
line = oExec.StdOut.Readline()

loop
else
strObjects(i,10) = trim(parts(1))
end if

end select
end if
loop

If Noenable “True” Then

‘——————
‘Create the WMI Namespace
‘——————

Set oLocation = CreateObject(“WbemScripting.SWbemLocator”)

‘—Remove classes
Set oServices = oLocation.ConnectServer(, “root\cimv2″)
set oNewObject = oServices.Get(“SCCM_BitLocker”)
oNewObject.Delete_

Set oServices = oLocation.ConnectServer(, “root\cimv2\SMS”)
set oNewObject = oServices.Get(“SCCM_BitLocker”)
oNewObject.Delete_

‘—Create data class structure
Set oServices = oLocation.ConnectServer(, “root\cimv2″)
Set oDataObject = oServices.Get
oDataObject.Path_.Class = “SCCM_BitLocker”
oDataObject.Properties_.add “Drive”, wbemCimtypeString
oDataObject.Properties_.add “DriveLabel”, wbemCimtypeString
oDataObject.Properties_.add “Size”, wbemCimtypeString
oDataObject.Properties_.add “BitLocker_Version”, wbemCimtypeString
oDataObject.Properties_.add “Conversion_Status”, wbemCimtypeString
oDataObject.Properties_.add “Percentage_Encrypted”, wbemCimtypeString
oDataObject.Properties_.add “Encryption_Method”, wbemCimtypeString
oDataObject.Properties_.add “Protection_Status”, wbemCimtypeString
oDataObject.Properties_.add “Lock_Status”, wbemCimtypeString
oDataObject.Properties_.add “Identification_Field”, wbemCimtypeString
oDataObject.Properties_.add “Bitlocker_Status”, wbemCimtypeString
oDataObject.Properties_.add “Key_Protectors”, wbemCimtypeString
oDataObject.Properties_.add “ScriptLastRun”, wbemCimtypeString
oDataObject.Properties_(“Drive”).Qualifiers_.add “key”, True
oDataObject.Put_

‘——————————
‘Add Instances to data class
Set oServices = oLocation.ConnectServer(, “root\cimv2″)

For j=1 To i
Set oNewObject = oServices.Get(“SCCM_BitLocker”).SpawnInstance_
oNewObject.Drive = strObjects(j,0)
oNewObject.DriveLabel = strObjects(j,1)
oNewObject.Size = strObjects(j,2)
oNewObject.BitLocker_Version = strObjects(j,3)
oNewObject.Conversion_Status = strObjects(j,4)
oNewObject.Percentage_Encrypted = strObjects(j,5)
oNewObject.Encryption_Method = strObjects(j,6)
oNewObject.Protection_Status = strObjects(j,7)
oNewObject.Lock_Status = strObjects(j,8)
oNewObject.Identification_Field = strObjects(j,9)
oNewObject.Key_Protectors = strObjects(j,10)
oNewObject.Bitlocker_Status = strObjects(j,12)
oNewObject.ScriptLastRun = strObjects(j,11)
oNewObject.Put_
‘Uncomment the following lines to for troubleshooting interactively
‘WScript.Echo strObjects(j,0) & “, ” &_
‘ strObjects(j,1) & “, ” &_
‘ strObjects(j,2) & “, ” &_
‘ strObjects(j,3) & “, ” &_
‘ strObjects(j,4) & “, ” &_
‘ strObjects(j,5) & “, ” &_
‘ strObjects(j,6) & “, ” &_
‘ strObjects(j,7) & “, ” &_
‘ strObjects(j,8) & “, ” &_
‘ strObjects(j,9) & “, ” &_
‘ strObjects(j,10) & “, ” &_
‘ strObjects(j,11) & “, ” &_
‘ strObjects(j,12)
Next
Else
End If

Comment on HOWTO: Bitlocker Status Reporting in SCCM 2007 by Kiwifulla

Kiwifulla — Wed, 25 Jan 2012 01:31:59 +0000

Sorry BPODFW, I realise now that your script IS the entire script, however the format on this web page converts characters incorrectly (e.g. ‘ instead of ‘) and I can’t run the script without errors (even when replacing the illegal characters). It also appears to be missing characters in some areas that the original script had?

Do you have a complete script that you can share rather than as text on this web page?

Thanks

Comment on HOWTO: Bitlocker Status Reporting in SCCM 2007 by Kiwifulla

Kiwifulla — Tue, 24 Jan 2012 22:59:44 +0000

Hi BPODFW

Your changes are exactly what I have found too (and have been putting up with in regards to disabled TPM).

Do you have a complete copy of your updated script rather than just the changes?

What about in PowerShell – I don’t suppose anyone has created a new master PS script with the changes that BPODFW has kindly done?

Regards

Comment on Outlook Anywhere is ‘broken’ on IPv6 in Windows Server 2008 by Fix Error 0x80070438 With Our Easy Windows Tool

Fix Error 0x80070438 With Our Easy Windows Tool — Sun, 22 Jan 2012 04:29:27 +0000

Fix Error 0×80070438 With Our Easy Windows Tool…

[...]Innovative Technology Weblog » Outlook Anywhere is ‘broken’ on IPv6 in Windows Server 2008[...]…

Comment on HOWTO: Bitlocker Status Reporting in SCCM 2007 by BPODFW

BPODFW — Wed, 18 Jan 2012 19:08:28 +0000

The information here is very good but when I ran the two scripts I has issues with them. The VB script uses ScriptLastRan and the PS uses ScriptLastRun which is in the bitlocker.mof also. The inclusion of the Automatic_Unlock attribute in the VB script is not needed nor in the mof file either unless you want to find USB or non C: drives that are encrypted or encryptable. It is not in the PS script as an attribute as well. It really only shows for removable drives on your system. The issue will cause the script to run and populate the WMI class but the SCCM hardware inventory will fail if the Automatic_Unlock attribute is in the MOF or if the ScriptLastRan is not changed to ScriptLastRun. Once you get SCCM inventory to pull in a record it will create the tables using the MOF attributes. The VB script as downloaded does not pick up the Key_Protectors, could be SP1 issue on Win7. I enhanced the VB script to catch the attributes and to work with non TPM enabled systems, picks the error up and fills fields with “Disabled” except for time stamp.

Set WshShell = CreateObject(“Wscript.Shell”)
‘ this error resume stops issues with the class not existing and erroring script
on error resume next
dim strObjects(26,12) , Noenable

drive = “”
drivename = “”
Bitlocker_Status = “Disabled”

i = 0
Do While Not oExec.StdOut.AtEndOfStream
‘——————-
‘For each line returned from oExec, check what’s in it, and add to an array
‘——————-
line = oExec.StdOut.Readline()
if ucase(left(line,5)) = “ERROR” then
Noenable = “True”
‘ WScript.Echo ucase(left(line,5))
‘ WScript.Echo “1″
Set oLocation = CreateObject(“WbemScripting.SWbemLocator”)
‘ WScript.Echo “2″
‘Remove classes
Set oServices = oLocation.ConnectServer(, “root\cimv2″)
‘WScript.Echo “3.1″
set oNewObject = oServices.Get(“SCCM_BitLocker”)
oNewObject.Delete_

‘WScript.Echo “3″

Set oServices = oLocation.ConnectServer(, “root\cimv2\SMS”)
set oNewObject = oServices.Get(“SCCM_BitLocker”)
oNewObject.Delete_

‘WScript.Echo “4″

‘Create data class structure
Set oServices = oLocation.ConnectServer(, “root\cimv2″)
Set oDataObject = oServices.Get
oDataObject.Path_.Class = “SCCM_BitLocker”
oDataObject.Properties_.add “Drive”, wbemCimtypeString
oDataObject.Properties_.add “DriveLabel”, wbemCimtypeString
oDataObject.Properties_.add “Size”, wbemCimtypeString
oDataObject.Properties_.add “BitLocker_Version”, wbemCimtypeString
oDataObject.Properties_.add “Conversion_Status”, wbemCimtypeString
oDataObject.Properties_.add “Percentage_Encrypted”, wbemCimtypeString
oDataObject.Properties_.add “Encryption_Method”, wbemCimtypeString
oDataObject.Properties_.add “Protection_Status”, wbemCimtypeString
oDataObject.Properties_.add “Lock_Status”, wbemCimtypeString
oDataObject.Properties_.add “Identification_Field”, wbemCimtypeString
oDataObject.Properties_.add “Bitlocker_Status”, wbemCimtypeString
oDataObject.Properties_.add “Key_Protectors”, wbemCimtypeString
oDataObject.Properties_.add “ScriptLastRun”, wbemCimtypeString
oDataObject.Properties_(“Bitlocker_Status”).Qualifiers_.add “key”, True
oDataObject.Put_
‘ WScript.Echo “5″
Set oServices = oLocation.ConnectServer(, “root\cimv2″)
‘ WScript.Echo “6″
Set oNewObject = oServices.Get(“SCCM_BitLocker”).SpawnInstance_
oNewObject.Drive = “Disabled”
oNewObject.DriveLabel = “Disabled”
oNewObject.Size = “Disabled”
oNewObject.BitLocker_Version = “Disabled”
oNewObject.Conversion_Status = “Disabled”
oNewObject.Percentage_Encrypted = “Disabled”
oNewObject.Encryption_Method = “Disabled”
oNewObject.Protection_Status = “Disabled”
oNewObject.Lock_Status = “Disabled”
oNewObject.Identification_Field = “Disabled”
oNewObject.Key_Protectors = “Disabled”
oNewObject.Bitlocker_Status = “Disabled”
oNewObject.ScriptLastRun = Now
oNewObject.Put_
‘ WScript.Echo “7″
Exit DO
‘ WScript.Echo “8″
Else
if ucase(left(line,6)) = “VOLUME” then
if drive “” then
targetmif.writeline(” End Group”)
end if
i = i + 1
drive = mid(line,8,2)

‘ line = oExec.StdOut.Readline()
drivename = mid(line,12,len(line)-12)
line = “”
strObjects(i,0) = drive
strObjects(i,1) = drivename
strObjects(i,11) = Now
if drive = “C:” Then
Bitlocker_Status = “Enabled”
strObjects(i,12) = Bitlocker_Status
Else
strObjects(i,12) = Bitlocker_Status
end if
end if
End if

if drive “” and trim(line) “” then
parts = split(line,”:”)
Select Case replace(trim(parts(0)),” “,”_”)
Case “Size”
strobjects(i,2) = trim(parts(1))
‘ WScript.Echo len(parts(1))
‘ WScript.Echo parts(1)
‘ WScript.Echo strobjects(i,2)
‘ WScript.Echo len(strobjects(i,2))
Case “BitLocker_Version”
strobjects(i,3) = trim(parts(1))
Case “Conversion_Status”
strobjects(i,4) = trim(parts(1))
Case “Percentage_Encrypted”
strObjects(i,5) = trim(parts(1))
Case “Encryption_Method”
strObjects(i,6) = trim(parts(1))
Case “Protection_Status”
strObjects(i,7) = trim(parts(1))
Case “Lock_Status”
strObjects(i,8) = trim(parts(1))
Case “Identification_Field”
strObjects(i,9) = trim(parts(1))
Case “Key_Protectors”
‘ WScript.Echo line
‘ WScript.Echo parts(1)
‘ WScript.Echo len(line)
If len(line) = 26 then
line = oExec.StdOut.Readline()
‘ WScript.Echo line
j=1
Do While trim(line) “”
If j=1 then
strObjects(i,10) = trim(line)
j=j+1
Else
strObjects(i,10) = trim(line) + “, ” + strObjects(i,10)
end if
line = oExec.StdOut.Readline()
‘ WScript.Echo strObjects(i,10)
‘ WScript.Echo (i)
loop
else
strObjects(i,10) = trim(parts(1))
end if
‘ Case “Automatic_Unlock”
‘ strObjects(i,11) = trim(parts(1))
end select
end if
loop

If Noenable “True” Then

‘——————
‘Create the WMI Namespace
‘——————

Set oLocation = CreateObject(“WbemScripting.SWbemLocator”)

‘Remove classes
Set oServices = oLocation.ConnectServer(, “root\cimv2″)
set oNewObject = oServices.Get(“SCCM_BitLocker”)
oNewObject.Delete_

Set oServices = oLocation.ConnectServer(, “root\cimv2\SMS”)
set oNewObject = oServices.Get(“SCCM_BitLocker”)
oNewObject.Delete_

‘——————————
‘Add Instances to data class
Set oServices = oLocation.ConnectServer(, “root\cimv2″)

Hope this helps. Check attribute names in scripts and number of attributes in mof and the issues will go away (no errors in WMI query in the hardware inventory). You can also use the \root\cimvs\security\microsofttpm wmi namespace with the win32_tpm class to get status and even turn on/off TPM in the bios.

Comment on Installing SCCM 2007 SP1/R2 in Native Mode on Windows Server 2008 by is 7 zip free

is 7 zip free — Mon, 16 Jan 2012 21:22:05 +0000

is 7 zip free…

[...]Innovative Technology Weblog » Installing SCCM 2007 SP1/R2 in Native Mode on Windows Server 2008[...]…