A little help with an old script - PST migration - Part Two: Changing the file name output

• Wednesday, December 05, 2012 1:56 PM

   

   
  

  0

  So I have the script working the way I want mostly but it was brought to my attention that realistically we should probably make the file name something shorter, simpler, and easier to use. 

  Ideal File name would be something like: <current user>_<driveletter>_archive<#>.pst
  i.e.: ddonowitz_c_archive1.pst

  Right now the file name that is being output by the script is very ... long and while it includes a machine name it would be much better to grab a username. 

  I found Set WshNetwork = WScript.CreateObject("WScript.Network") which seems to work and grab the username properly but I can't figure out where/how to place that to make it part of the file name or if that is even possible.

  Is there a way to make this happen?

  Current Code:

  dim fso
  set fso = CreateObject("Scripting.FileSystemObject")
  dim wshShell
  Set wshShell = WScript.CreateObject("WScript.Shell")
  Dim strDestinationFolder, strDestinationPath
  '***** Edit here ******
  strDestinationFolder = "\\<SERVERNAME>\<SHARED FOLDER NAME>\"
  If Not fso.FolderExists(strDestinationFolder) Then
   MsgBox strDestinationFolder & " not found!",vbCritical + vbOKOnly,"Error!"
   WScript.Quit
  End If
  'Get computer name
  strComputer = wshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
  strComputer = UCase(strComputer)
  'use WMI to find PST files.  Really slow...
  Set objWMIService = GetObject("winmgmts:" _
     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  Set colFiles = objWMIService. _
     ExecQuery("Select * from CIM_DataFile" _
         & " WHERE (Drive='C:') AND Extension='pst'")
  i = 0
  For Each file in colFiles
   i = i + 1
      strFile = File.Name
   'CompName + UserName + archive (count).pst
   'strOwner = FileOwner(strFile)
   'StrOwner = Replace(strOwner,"\","_")
   'strDestinationPath = strDestinationFolder & "\" &  strComputer & "_" & strOwner & "_archive" & i & ".pst"
   'or
   'CompName + Domain + OriginalPathName + archive.pst (count +1), i.e. JOHNNYSPC_JOHNNYSDOMAIN_JOHNNNYSFOLDER_archive1.pst.
   Dim tArray: tArray=array(":",".","\",space(1))
   strFixedName = strFile
   For iC = 0 To UBound(tArray)
    strFixedName= Replace(strFixedName,tArray(iC),"_")
   Next
  
   strDestinationPath = strDestinationFolder & "\" &  strComputer &   "_" & _
   wshShell.ExpandEnvironmentStrings("%UserDomain%") &  "_" & strFixedName & "_archive" & i & ".pst"
  
   fso.CopyFile strFile,strDestinationPath
  Next
  
  Set colFiles = objWMIService. _
     ExecQuery("Select * from CIM_DataFile" _
         & " WHERE (Drive='X:') AND Extension='pst'")
  i = 0
  For Each file in colFiles
   i = i + 1
      strFile = File.Name
   'CompName + UserName + archive (count).pst
   'strOwner = FileOwner(strFile)
   'StrOwner = Replace(strOwner,"\","_")
   'strDestinationPath = strDestinationFolder & "\" &  strComputer & "_" & strOwner & "_archive" & i & ".pst"
   'or
   'CompName + Domain + OriginalPathName + archive.pst (count +1), i.e. JOHNNYSPC_JOHNNYSDOMAIN_JOHNNNYSFOLDER_archive1.pst.
   Dim yArray: yArray=array(":",".","\",space(1))
   strFixedName = strFile
   For iC = 0 To UBound(yArray)
    strFixedName= Replace(strFixedName,yArray(iC),"_")
   Next
  
   strDestinationPath = strDestinationFolder & "\" &  strComputer &   "_" & _
   wshShell.ExpandEnvironmentStrings("%UserDomain%") &  "_" & strFixedName & "_archive" & i & ".pst"
  
   fso.CopyFile strFile,strDestinationPath
  Next
  
  Function FileOwner(strFile)
   'see http://msdn.microsoft.com/en-us/library/bb787870(VS.85).aspx
   Dim strFolder,strFileName
   Dim objShell
   dim objFolder
   dim objFolderItem
   Dim objInfo
   strFolder = fso.GetParentFolderName(strFile)
   strFileName = fso.GetFileName(strFile)
  
   set objShell = CreateObject("Shell.Application")
   Set objFolder = objShell.NameSpace(strFolder)
   Set objFolderItem = objFolder.ParseName(strFileName)
      FileOwner = objFolder.GetDetailsOf(objFolderItem, 8)
   Set objFolderItem = Nothing
   set objFolder = Nothing
   set objShell = Nothing
  End Function

  
  

  • Reply
  • Quote