Pages

MOF Example - END - END

 

Client_UserProfileSize.MOF :-----

 

#pragma namespace ("\\\\.\\root\\cimv2")
#pragma deleteclass("Win32Reg_UserProfileSize",NOFAIL)
[ dynamic,
  provider("RegProv"),
  ClassContext("local|HKEY_LOCAL_MACHINE\\SOFTWARE\\DesktopOptimization\\UserProf")
]
class Win32Reg_UserProfileSize
{
    [key]
    string    Profile;
    [PropertyContext("Application Data")]       
        string    ApplicationData;
    [PropertyContext("Desktop")]       
        string    Desktop;
    [PropertyContext("My Documents")]       
        string    MyDocuments;
    [PropertyContext("Local Settings")]       
        string    LocalSettings;
     [PropertyContext("ScriptRunOn")]  
        string    ScriptRunOn;
     [PropertyContext("TotalSize")]
        string    TotalSize;
    [PropertyContext("RECYCLER")]
        string    RECYCLER;
};

 

 

Server_side_sms_MOF .MOF :---

 

[ SMS_Report     (TRUE),
  SMS_Group_Name ("DiskActivity"),
  SMS_Class_ID   ("MICROSOFT|Disk_Activity|1.0") ]

class Win32Reg_DiskActivity : SMS_Class_Template

   [SMS_Report (TRUE) ]  
        string   Activity;
    [SMS_Report (TRUE) ]  
        string   CleanDate;
    [SMS_Report (TRUE) ]
        string    DefragAnalysis;
    [SMS_Report (TRUE)]
        string    DefragDate;
    [SMS_Report (TRUE)]
        string    DefragStatus;
    [SMS_Report (TRUE)]
        string    DiskClean_status;
    [SMS_Report (TRUE)]
        string    DiskCleanLast_CleanDate;
    [SMS_Report (TRUE)]
        string    DiskSpace;
    [SMS_Report (TRUE)]
        string    Last_DefragDate;
};

[ SMS_Report     (TRUE),
  SMS_Group_Name ("UserProfile"),
  SMS_Class_ID   ("MICROSOFT|UserProfileSize|1.0") ]

class Win32Reg_UserProfileSize : SMS_Class_Template

   [SMS_Report (TRUE) ]  
        string   Profile;
    [SMS_Report (TRUE) ]  
        string   ApplicationData;
    [SMS_Report (TRUE) ]
        string    Desktop;
    [SMS_Report (TRUE)]
        string    MyDocuments;
    [SMS_Report (TRUE)]
        string    LocalSettings;
    [SMS_Report (TRUE)]
        string    ScriptRunOn;
    [SMS_Report (TRUE)]
        string    TotalSize;
    [SMS_Report (TRUE)]
        string    RECYCLER;
};

 

VBSCRIPT :-- UserProfileSize_Recycler.vbs

 

 

sNode = "."
Const MBCONVERSION= 1048576
Const HKEY_LOCAL_MACHINE = &H80000002
dim oFS, oFolder

Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
           & sNode & "/root/default:StdRegProv")

sPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"
sValueName = "DefaultUserName"

If oReg.GetStringValue(HKEY_LOCAL_MACHINE, sPath, sValueName, sValue) = 0 Then
  'WScript.Echo "DefaultUserName from Registry Retrieved Remotely: " & sValue
End If

ScriptRunOn=Replace(Now(),"#","")

strKeyPath = "SOFTWARE\DesktopOptimization\UserProf\"
              oReg.CreateKey HKEY_LOCAL_MACHINE ,strKeyPath
strKeyPath1 = "SOFTWARE\DesktopOptimization\UserProf\"&sValue
              oReg.CreateKey HKEY_LOCAL_MACHINE ,strKeyPath1            

path="C:\Documents and Settings\"& sValue       
Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder(Path)
    TotalSize=FormatNumber(Folder.Size/MBCONVERSION,0)
    'MsgBox (TotalSize)
    strValueName ="TotalSize"
    strValue = TotalSize
    oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath1,strValueName,strValue
    strValueName ="ScriptRunOn"
    strValue = ScriptRunOn
    oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath1,strValueName,strValue
Set colSubFolders = Folder.SubFolders
For Each subFolder In colSubFolders
                     FolderName = subFolder.Name
                       FolderSize = FormatNumber(subFolder.Size/MBCONVERSION,0)
                     'MsgBox(FolderName)
                     'MsgBox(FolderSize)
                     strValueName = FolderName
                     strValue = FolderSize
                     oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath1,strValueName,strValue
Next 

GetRecycleBinSize()

Function GetRecycleBinSize

        dim oFS, oFolder

        set oFS = WScript.CreateObject("Scripting.FileSystemObject")
        If oFS.FolderExists("C:\Recycler")Then
           Set oFolder = oFS.GetFolder("C:\Recycler")
           'wscript.echo oFolder.Name & ":Size=" & oFolder.Size
           RecycleBinSize=FormatNumber(oFolder.Size/MBCONVERSION,0)
           'wscript.echo RecycleBinSize
           strValueName = oFolder.Name
           strValue = RecycleBinSize
           oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath1,strValueName,strValue
        Else
           strValueName = "RECYCLER"
           strValue = "Folder C:\RECYCLER Not Found"
           oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath1,strValueName,strValue
        End If
End Function

0 comments:

Post a Comment