“PowerShell का उपयोग करके Excel, Word आदि से मेटाडेटा (व्यक्तिगत जानकारी) को बैच में कैसे निकालें”

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19

# Excel एप्लिकेशन को अदृश्य रूप से प्रारंभ करें
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false
$excel.DisplayAlerts = $false

# फ़ाइल खोलें (*कृपया पूर्ण पथ निर्दिष्ट करें)
$filePath = "C:\Path\To\Your\File.xlsx"
$wb = $excel.Workbooks.Open($filePath)

# मेटाडेटा (व्यक्तिगत जानकारी) हटाने के लिए सेटिंग सक्षम करें
$wb.RemovePersonalInformation = $true

# ओवरराइट करें और बंद करें
$wb.Save()
$wb.Close($false)

# Excel से बाहर निकलें और मेमोरी खाली करें
$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

$targetFolder = "C:\Path\To\Your\Folder"

# फ़ोल्डर में सभी .xlsx और .xls फ़ाइलें प्राप्त करें
$excelFiles = Get-ChildItem -Path $targetFolder -Include "*.xlsx", "*.xls" -Recurse

if ($excelFiles.Count -eq 0) {
    Write-Host "कोई Excel फ़ाइल नहीं मिली।"
    exit
}

$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false
$excel.DisplayAlerts = $false

foreach ($file in $excelFiles) {
    Write-Host "$($file.Name) का मेटाडेटा हटाया जा रहा है..."
    
    # फ़ाइल खोलें
    $wb = $excel.Workbooks.Open($file.FullName)
    
    # मेटाडेटा निकालें और सहेजें
    $wb.RemovePersonalInformation = $true
    $wb.Save()
    $wb.Close($false)
}

$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null

Write-Host "सभी प्रसंस्करण पूर्ण हो गया है!"

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

$word = New-Object -ComObject Word.Application
$word.Visible = $false
$word.DisplayAlerts = 0

$doc = $word.Documents.Open("C:\Path\To\Your\File.docx")
$doc.RemovePersonalInformation = $true
$doc.Save()
$doc.Close()

$word.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($word) | Out-Null

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

$ppt = New-Object -ComObject PowerPoint.Application

# दूसरे से चौथे तर्कों के साथ छिपे हुए मोड (msoFalse) को निर्दिष्ट करके खोलें
$presentation = $ppt.Presentations.Open("C:\Path\To\Your\File.pptx", $false, $false, $false)
$presentation.RemovePersonalInformation = $true
$presentation.Save()
$presentation.Close()

$ppt.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($ppt) | Out-Null