PC Professionell 2006 May

home *** CD-ROM | disk | FTP | other *** search

/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / msshared / Shared_Computer_Toolkit_ENU.msi / FileScripts012 < prev next >

Wrap

Extensible Markup Language | 2005-09-02 | 42.4 KB | 563 lines

■<?xml version="1.0" ?> <package> <comment> ' *** ' *** ------------------------------------------------------------------------------ ' *** Filename: SCTReport.wsf ' *** ------------------------------------------------------------------------------ ' *** Description: Consolidates Tookit info/files for troubleshooting ' *** ------------------------------------------------------------------------------ ' *** Version: 1.0 ' *** Notes: ' *** ------------------------------------------------------------------------------ ' *** Copyright (C) Microsoft Corporation 2005, All Rights Reserved ' *** ------------------------------------------------------------------------------ ' *** </comment> <job> <runtime> <description>SCT Report</description> <named name="Create" required="false" many="false" helpstring="Creates Shared Computer Toolkit Report in C:\SCTReport Directory" /> <example>Example: SCTReport.wsf /Create</example> </runtime> <resource id="CScriptMessage">Restarting script in command-line mode. Run CmdOn.BAT to set command-line mode as the default mode.</resource> <resource id="CScriptTitle">Shared Computer Toolkit: Windows Script Mode Detected</resource> <?job error="True" debug="False" ?> <script language="VBScript" src="../include/Common.vbs"></script> <script language="VBScript" src="../include/libWSF.vbs"></script> <script language="VBScript" src="../include/clsDiskProtect.vbs"></script> <script language="VBScript" src="../include/clsLogging.vbs"></script> <script language="VBScript"> <![CDATA[ ' ~~~ ' ~~~ Force variables to be declared ' ~~~ Option Explicit ' ~~~ Call the Main Sub Call Main("NoSCT.hta") ' ~~~ ' ~~~ Declare variables and constants ' ~~~ Dim sAppDir, oDiskProtect Dim colItems, oItem Dim oOS, colOperatingSystems Dim oComputer, colComputers, sDomainJoined Dim dtmConvertedDate, dtmInstallDate Dim colDrives, oDrive, oText, dateTime Dim iPartID, IDiskID, oDisk, oDiskDrives, iTempPart Dim oPartition, oDiskPartitions, oLogicalDisk, oLogicalDisks, CalcOVSize, iWDPcmdVer Dim sPType, bFoundExtended, iPartitionCount, iPartitions, bUnformattedPartition Dim iUnallocated, iMaxUnallocated, iExtSize, iUsedSpace, iExtFree, sWindowsDrive, sEscapedDeviceID, iEnd ' ~~~ Set the WDP.CMD tool version number for SCTReport.WSF iWDPcmdVer = 6 ' ~~~ Create Objects Set oDiskProtect = New DiskProtect Set dateTime = CreateObject("WbemScripting.SWbemDateTime") sAppDir = RegRead(TOOLKITKEY & "TargetDir") If WScript.Arguments.Named.Exists("Create") Then Call DeleteOldProblemDirectory Call CreateNewProblemDirectory Set oText= ofso.OpenTextFile(oShell.ExpandEnvironmentStrings("%SystemDrive%") & "\SCTReport" & "\SCTReport.txt",2,true,-1) Call GetSCTLogs Call GetWindowsInfo Call GetWDPInfo Call GetRestrictionsInfo Call DoDirList Else WScript.Arguments.ShowUsage QuitScript() End If WScript.echo "Report Complete!" WScript.echo "Look in " & oShell.ExpandEnvironmentStrings("%SystemDrive%") & "\SCTReport" oText.Close Set oText= Nothing ' ~~~ Destroy objects Set oDiskProtect = Nothing UnLoadObjects() ' *** ' *** ------------------------------------------------------------------------------ ' *** Name: DeleteOldProblemDirectory ' *** ------------------------------------------------------------------------------ ' *** Purpose: Deletes old report directory ' *** ------------------------------------------------------------------------------ ' *** Sub DeleteOldProblemDirectory Call oShell.Run("CMD /C RD /S /Q %SystemDrive%\SCTReport", 0, True) End Sub ' *** ' *** ------------------------------------------------------------------------------ ' *** Name: CreateNewProblemDirectory ' *** ------------------------------------------------------------------------------ ' *** Purpose: Creates new report directory ' *** ------------------------------------------------------------------------------ ' *** Sub CreateNewProblemDirectory Call oShell.Run("CMD /C MD %SystemDrive%\SCTReport", 0, True) Call oShell.Run("CMD /C MD %SystemDrive%\SCTReport\Logs", 0, True) Call oShell.Run("CMD /C MD %SystemDrive%\SCTReport\WDP", 0, True) Call oShell.Run("CMD /C MD %SystemDrive%\SCTReport\Restrictions", 0, True) End Sub ' *** ' *** ------------------------------------------------------------------------------ ' *** Name: GetSCTLogs & SCTRegistry ' *** ------------------------------------------------------------------------------ ' *** Purpose: Gets SCT logs and Registry, and puts them in %SystemDrive%\SCTReport\Logs ' *** ------------------------------------------------------------------------------ ' *** Sub GetSCTLogs Call oShell.Run("CMD /C COPY %WinDir%\System32\Shared_Computer_Toolkit.log %SystemDrive%\SCTReport\Logs", 0, True) Call oShell.Run("CMD /C COPY " & chr(34) & sAppDir & "Log\*.*" & chr(34) & " %SystemDrive%\SCTReport\Logs", 0, True) Call oShell.Run("REG EXPORT " & chr(34) & Left(TOOLKITKEY,Len(TOOLKITKEY)-1) & chr(34) & " %SystemDrive%\SCTReport\SCTReg.reg.txt", 0, True) End Sub ' *** ' *** ------------------------------------------------------------------------------ ' *** Name: GetWDPInfo ' *** ------------------------------------------------------------------------------ ' *** Purpose: Gets WDP relevant info and status ' *** Records status in %SystemDrive%\SCTReport\SCTReport.txt ' *** Copies relevant registry settings to %SystemDrive%\SCTReport\WDP ' *** ------------------------------------------------------------------------------ ' *** Sub GetWDPInfo Call oShell.Run("REG EXPORT HKLM\SYSTEM\CurrentControlSet\Services\ewf %SystemDrive%\SCTReport\WDP\WDPReg.reg.txt", 0, True) oText.WriteLine " " oText.WriteLine "***********************" oText.WriteLine "Windows Disk Protection Report" oText.WriteLine "***********************" oText.WriteLine " " If oDiskProtect.Enabled Then oText.WriteLine "WDP: Enabled" oText.WriteLine " " oText.WriteLine " " Else oText.WriteLine "WDP: Disabled" oText.WriteLine " " oText.WriteLine " " End If oText.WriteLine "All Logical Drive Information:" oText.WriteLine " " Set colDrives = oWMIService.ExecQuery _ ("Select * from Win32_LogicalDisk where DriveType =3") For Each oDrive in colDrives oText.WriteLine "Drive letter: " & oDrive.Name oText.WriteLine "Volume name: " & oDrive.VolumeName oText.WriteLine "File system: " & oDrive.FileSystem oText.WriteLine "Total size: " & oDrive.Size oText.WriteLine "Available space: " & oDrive.FreeSpace oText.WriteLine " " oText.WriteLine " " oText.WriteLine " " Next ' ~~~ Determines what physical disk and physical partition contains %WinDir% iDiskID = 0 iPartID = 1 Set oDiskDrives = oWMIService.ExecQuery("Select * from Win32_DiskDrive") For Each oDisk in oDiskDrives sEscapedDeviceID = Replace(oDisk.DeviceID, "\", "\\", 1, -1, vbTextCompare) Set oDiskPartitions = oWMIService.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & sEscapedDeviceID & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition") For Each oPartition in oDiskPartitions iTempPart = Right(oPartition.DeviceID,1) + 1 Set oLogicalDisks = oWMIService.ExecQuery("ASSOCIATORS OF" & "{Win32_DiskPartition.DeviceID=""" & oPartition.DeviceID & """} WHERE AssocClass = Win32_LogicalDiskToPartition") ' ~~~ Collection of logical drives defined on the disk For Each oLogicalDisk In oLogicalDisks If oLogicalDisk.Name = sWindowsDrive then If IsNumeric(Right(oDisk.Name, 1)) then iDiskID = Int(Right(oDisk.Name, 1)) iPartID = iTempPart End If End If Next Next Next ' ~~~ Initialize all variables... Critical! CalcOVSize = 0 iUnallocated = 0 iMaxUnallocated = 0 iExtFree = 0 iExtSize = 0 iUsedSpace = 0 iPartitionCount = 0 bFoundExtended = False ' ~~~ Loop through all the disk drives For Each oDisk in oDiskDrives If oDisk.Index = iDiskID Then oText.WriteLine "Windows Disk Info: " oText.WriteLine "Size: " & VBTab & VBTab & oDisk.Size oText.WriteLine "Drive Letter: " & VBTab & VBTab & sWindowsDrive oText.WriteLine "Disk #: " & VBTab & VBTab & oDisk.Index oText.WriteLine "Partition : " & VBTab & VBTab & iPartID oText.WriteLine oText.WriteLine "Partition Information: " oText.WriteLine iPartitions = oDisk.Partitions ' ~~~ New disk, reset the end pointer iEnd = 0 sPType = "" ' ~~~ Get partitions associated with this disk, we need to escape the device id for the query to work sEscapedDeviceID = Replace(oDisk.DeviceID, "\", "\\", 1, -1, vbTextCompare) Set oDiskPartitions = oWMIService.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & sEscapedDeviceID & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition") ' ~~~ Loop through all the partitions on this disk For Each oPartition in oDiskPartitions '~~~ Count partitions on disk iPartitionCount = iPartitionCount + 1 oText.WriteLine "Partition Name: " & VBTab & oPartition.Name oText.WriteLine "Size: " & VBTab & VBTab & oPartition.Size oText.WriteLine "Type: " & VBTab & VBTab & oPartition.Type oText.WriteLine If sPType <> "Extended w/Extended Int 13" and sPType <> "Extended Partition" Then If oPartition.Index <> 0 Then ' ~~~ Calculate the unallocated space before this partition iUnallocated = CDbl(oPartition.StartingOffset) - iEnd If iMaxUnallocated < iUnallocated Then iMaxUnallocated = iUnallocated End If Else bFoundExtended = True End If ' ~~~ Notes partition type (Primary or Extended)... do *NOT* move this up! ' ~~~ Moving this line up will affect functionality when last partition is extended. sPType = oPartition.Type iEnd = CDbl(oPartition.StartingOffset) + CDbl(oPartition.Size) Next ' ~~~ Determines if last partition is an Extended Partition If sPType = "Extended w/Extended Int 13" or sPType = "Extended Partition" Then bFoundExtended = True End If Next oText.WriteLine oText.WriteLine "Largest Unallocated Space: " & VBTab & iMaxUnallocated ' ~~~ Calculate Free Space in Extended Partition If bfoundExtended = True then oText.WriteLine oText.WriteLine "Extended Partition Info: " iPartitionCount = 0 bUnformattedPartition = False For Each oPartition in oDiskPartitions iPartitionCount = iPartitionCount + 1 ' ~~~ Enter only if the partition is extended partition If oPartition.type = "Extended w/Extended Int 13" or oPartition.type = "Extended Partition" Then iPartitionCount = iPartitionCount - 1 ' ~~~ Store the total size of the extended partition iExtsize = oPartition.size ' ~~~ Use partition device id to find logical disk Set oLogicalDisks = oWMIService.ExecQuery("ASSOCIATORS OF" & "{Win32_DiskPartition.DeviceID=""" & oPartition.DeviceID & """} WHERE AssocClass = Win32_LogicalDiskToPartition") ' ~~~ Collection of logical drives in the extended partition For Each oLogicalDisk In oLogicalDisks oText.WriteLine oText.WriteLine "Logical Disk: " & VBTab & oLogicalDisk.Name oText.WriteLine "Size: " & VBTab & VBTab & oLogicalDisk.Size iPartitionCount = iPartitionCount + 1 If Not(IsNull(oLogicalDisk.size)) then iUsedSpace = iUsedSpace + oLogicalDisk.size Else bUnformattedPartition = True End If Next End If iExtFree = iExtsize - iUsedSpace Next oText.WriteLine oText.WriteLine "Free Space: " & VBTab & iExtFree If iPartitionCount < iPartitions or bUnformattedPartition then iMaxUnallocated = 0 iExtFree = 0 End If If iMaxUnallocated > iExtFree then CalcOVSize = Int(iMaxUnallocated/1024)-1024 Else CalcOVSize = Int(iExtFree/1024)-1024 End If ' ~~~ Set to 0 if size req not met If (CalcOVSize < 1047552) or (IsNull(CalcOVSize)) then CalcOVSize = 0 If CalcOVSize = 0 Then oText.WriteLine oText.WriteLine "This disk does not appear to support Windows Disk Protection! " End If oText.WriteLine End If End Sub ' *** ' *** ------------------------------------------------------------------------------ ' *** Name: GetRestrictionsInfo ' *** ------------------------------------------------------------------------------ ' *** Purpose: Records local computer account list in %SystemDrive%\SCTReport\SCTReport.txt ' *** Copies restriction xml files to %SystemDrive%\SCTReport\Restrictions ' *** ------------------------------------------------------------------------------ ' *** Sub GetRestrictionsInfo oText.WriteLine "***********************" oText.WriteLine "Local Account Report" oText.WriteLine "***********************" Set colItems = oWMIService.ExecQuery _ ("Select * from Win32_UserAccount Where LocalAccount = True") For Each oItem in colItems oText.WriteLine "Account Type: " & oItem.AccountType oText.WriteLine "Caption: " & oItem.Caption oText.WriteLine "Description: " & oItem.Description oText.WriteLine "Disabled: " & oItem.Disabled oText.WriteLine "Domain: " & oItem.Domain oText.WriteLine "Full Name: " & oItem.FullName oText.WriteLine "Local Account: " & oItem.LocalAccount oText.WriteLine "Lockout: " & oItem.Lockout oText.WriteLine "Name: " & oItem.Name oText.WriteLine "Password Changeable: " & oItem.PasswordChangeable oText.WriteLine "Password Expires: " & oItem.PasswordExpires oText.WriteLine "Password Required: " & oItem.PasswordRequired oText.WriteLine "SID: " & oItem.SID oText.WriteLine "SID Type: " & oItem.SIDType oText.WriteLine "Status: " & oItem.Status oText.WriteLine " " oText.WriteLine " " oText.WriteLine " " Next Call oShell.Run("CMD /C COPY " & chr(34) & sAppDir & "xml\User*.xml" & chr(34) & " %SystemDrive%\SCTReport\Restrictions", 0, True) End Sub ' *** ' *** ------------------------------------------------------------------------------ ' *** Name: GetWindowsInfo ' *** ------------------------------------------------------------------------------ ' *** Purpose: Records pertinent system info in %SystemDrive%\SCTReport\SCTReport.txt ' *** ------------------------------------------------------------------------------ ' *** Sub GetWindowsInfo oText.WriteLine "***********************" oText.WriteLine "Windows Information" oText.WriteLine "***********************" Set colComputers = oWMIService.ExecQuery _ ("Select DomainRole from Win32_ComputerSystem") For Each oComputer in colComputers oText.WriteLine " " oText.WriteLine "Computer Name: " & oComputer.Name Select Case oComputer.DomainRole Case 0 sDomainJoined = "No" Case 1 sDomainJoined = "Yes" End Select oText.WriteLine " " oText.WriteLine "Domain Joined: " & sDomainJoined oText.WriteLine " " Next Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime") Set colOperatingSystems = oWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each oOS in colOperatingSystems oText.WriteLine "Boot Device: " & oOS.BootDevice oText.WriteLine "Build Number: " & oOS.BuildNumber oText.WriteLine "Build Type: " & oOS.BuildType oText.WriteLine "Caption: " & oOS.Caption oText.WriteLine "Code Set: " & oOS.CodeSet oText.WriteLine "Country Code: " & oOS.CountryCode oText.WriteLine "Debug: " & oOS.Debug oText.WriteLine "Encryption Level: " & oOS.EncryptionLevel dtmConvertedDate.Value = oOS.InstallDate dtmInstallDate = dtmConvertedDate.GetVarDate oText.WriteLine "Install Date: " & dtmInstallDate oText.WriteLine "Licensed Users: " & _ oOS.NumberOfLicensedUsers oText.WriteLine "Organization: " & oOS.Organization oText.WriteLine "OS Language: " & oOS.OSLanguage oText.WriteLine "OS Product Suite: " & oOS.OSProductSuite oText.WriteLine "OS Type: " & oOS.OSType oText.WriteLine "Primary: " & oOS.Primary oText.WriteLine "Registered User: " & oOS.RegisteredUser oText.WriteLine "Serial Number: " & oOS.SerialNumber oText.WriteLine "Version: " & oOS.Version oText.WriteLine " " oText.WriteLine " " oText.WriteLine " " Next End Sub ' *** ' *** ------------------------------------------------------------------------------ ' *** Name: DoDirList ' *** ------------------------------------------------------------------------------ ' *** Purpose: Directory listing of Toolkit install location ' *** ------------------------------------------------------------------------------ ' *** Sub DoDirList oText.WriteLine "******************************" oText.WriteLine "Installation Directory Listing" oText.WriteLine "******************************" oText.WriteLine " " oText.WriteLine "Toolkit Install Directory: " & sAppDir oText.WriteLine " " Dim arrSysFiles, strSysFile oText.WriteLine "Creation date Last accessed Last modified Writeable Size File" ListFolders sAppdir ' ~~~ ' ~~~ Iterate through all system32 files. ' ~~~ ' ~~~ Create an array of all files in System32 arrSysFiles = Array("ewf.sys") For Each strSysFile in arrSysFiles ListFolder oshell.ExpandEnvironmentStrings("%WinDir%") & "\system32\drivers\" & strSysFile, FALSE Next ' ~~~ End Main End Sub Sub ListFolders(strAppFolder) Dim oSubFolder, oSubSubFolder ListFolder strAppFolder, TRUE For Each oSubFolder in oFSO.GetFolder(strAppFolder).SubFolders ListFolder oSubFolder.Path, TRUE For Each oSubSubFolder in oSubFolder.SubFolders ListFolder oSubSubFolder.Path, TRUE Next Next End Sub ' ~~~ List all of the files in strAppFolder, or the single file named by strAppFolder Sub ListFolder(strAppFolder, bFolder) Dim colFiles, MyArray, strDrive, strPath, i, oFile ' ~~~ Split strAppFolder into individual folders MyArray = Split(strAppFolder, "\", -1, 1) ' ~~~ Surround strDrive and strPath with single quotes for the WMI select statement below strDrive = "'" & MyArray(0) & "'" If bFolder Then strPath = "'\\" Else strPath = "'" & MyArray(0) & "\\" End If ' ~~~ Create strPath with double back-slashes in place of each single back-slash in strAppFolder For i = 1 to UBound(MyArray) strPath = strPath & MyArray(i) If i < UBound(MyArray) Then strPath = strPath & "\\" Next ' ~~~ End strPath with two back-slashes and a single quote for folders, and just a single quote for files. If bFolder Then strPath = strPath & "\\'" Else strPath = strPath & "'" End If If bFolder Then Set colFiles = oWMIService.ExecQuery("Select * from CIM_DataFile where Drive = " & strDrive & " and Path = " & strPath) Else Set colFiles = oWMIService.ExecQuery("Select * from CIM_DataFile where Name = " & strPath) End If For Each oFile in colFiles DisplayFile(oFile) Next End Sub ' ~~~ Display the properties of a single file Sub DisplayFile(oFile) Dim strCreationDate, strLastAccessed, strLastModified strCreationDate = DateFormat(oFile.CreationDate) strLastAccessed = DateFormat(oFile.LastAccessed) strLastModified = DateFormat(oFile.LastModified) oText.WriteLine strCreationDate & " " & strLastAccessed & " " & strLastModified & " " & oFile.Writeable & " " & oFile.FileSize & Space(10 - Len(oFile.FileSize)) & oFile.Drive & oFile.Path & oFile.FileName & "." & oFile.Extension End Sub Function DateFormat(lDate) dateTime.Value = lDate DateFormat = dateTime.Year & "-" & TwoLong(dateTime.Month) & "-" & TwoLong(dateTime.Day) & " " & TwoLong(dateTime.Hours) & ":" & TwoLong(dateTime.Minutes) & ":" & TwoLong(dateTime.Seconds) End Function Function TwoLong(iNumber) If iNumber < 10 Then TwoLong = "0" & iNumber ElseIf iNumber = 0 Then TwoLong = "00" Else TwoLong = "" & iNumber End If End Function ]]> </script> </job> </package>