$strProfReg = "\\" + $strWks + "\HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList" $arrProfs = ArrayEnumKey($strProfReg) For Each $strProf In $arrProfs If Len($strProf) > 8 $strSID = Right($strProf,Len($strProf)-InStrRev($strProf,"-")) If $strSID <> "500" $strPath = ExpandEnvironmentVars(ReadValue($strProfReg + "\" + $strProf,"ProfileImagePath")) DelDir($strPath) $intRetCode = DelKey($strProfReg + "\" + $strProf) ? @SERROR If $intRetCode <> 0 ? "There was a problem deleting the registry key:" ? $strProfReg + "\" + $strProf ? "The error code is: " + $intRetCode EndIf EndIf EndIf Next

OK, what I'm trying to do is write a script to delete all the roaming profiles from a remote computer. Retrieving the list of users and determining the correct ones to delete works. I'm now to the point where I am trying to do the file and registry deletions. That is where I am running into problems. Here is the script so far:

Code:

Break On
Dim $SO
$SO = SetOption('Explicit',          'On')
$SO = SetOption('NoMacrosInStrings', 'On')
DIM $strWks, $strProfReg, $arrProfs, $strProf
DIM $strSID, $strPath, $strUser, $strFile, $intRetCode
$strWks = ""
While $strWks == ""
   ? "Please enter the name of the workstation you wish to delete profiles from: "
   Gets $strWks
Loop
$strWks  = Trim($strWks)
$strFile = "C:\Documents and Settings\" + @userid + "\Desktop\" + $strWks + "_profiles.ini"
; Enumerate the keys under:
; \\$strWks\HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList
; The local administrator key ends with "-500"
$strProfReg = "\\" + $strWks + "\HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList"
$arrProfs   = ArrayEnumKey($strProfReg)
For Each $strProf In $arrProfs
   If Len($strProf) > 8
      ; Local accounts are short.  System is S-1-5-18, etc.
      ; Grab the last portion of the SID (after the last hyphen).
      $strSID = Right($strProf,Len($strProf)-InStrRev($strProf,"-"))
      If $strSid <> "500"
         $strPath = ExpandEnvironmentVars(ReadValue($strProfReg + "\" + $strProf, "ProfileImagePath"))
         $strUser = Right($strPath,Len($strPath)-InStrRev($strPath,"\"))
         If Left($strUser,4) <> "SMSC"
            ; Don't want to delete the SMS accounts.
            ; Which should leave us with the accounts we do want to delete.
            $intRetCode = WriteProfileStrin($strFile,SIDtoName($strProf),"Path",$strPath)
            ? "Deleting files for " + SIDtoName($strProf)
            ? "Deleting path " + $strPath
            DelDir($strPath)
            ; The directory is now gone, delete the registry key.
            $intRetCode = DelKey($strProfReg + "\" + $strProf)
            ? @SERROR
            If $intRetCode <> 0
               ? There was a problem deleting the regsitry key:
               ? $strProfReg + "\" + $strProf
               ? "The error code is: " + $intRetCode
            EndIf
         EndIf
      EndIf
   EndIf
Next
;
Function ArrayEnumKey($strRegKey)
   Dim $intIndex, $arrOfKeys[0], $strKey
   If KeyExist($strRegKey)
      $intIndex = 0
      $strKey   = EnumKey($strRegKey,$intIndex)
      While @Error = 0
         ReDim Preserve $arrOfKeys[$intIndex]
         $arrOfKeys[$intIndex] = $strKey
         $intIndex             = $intIndex + 1
         $strKey               = EnumKey($strRegKey,$intIndex)
      Loop
      $ArrayEnumKey = $arrOfKeys
   Else
      $ArrayEnumKey = ""
   EndIf
EndFunction
;
Function DelDir($strPath)
   Dim $strFilename
   $strFilename = Dir($strPath + "\*.*")
   While $strFilename <> "" And @Error = 0
      If $strFilename <> "." And $strFilename <> ".."
         If (GetFileAttr($strPath + "\" + $strFilename) & 16)
            DelDir($strPath + "\" + $strFilename)
            SetFileAttr($strPath + "\" + $strFilename, 128)
            Rd $strPath + "\" + $strFilename
         Else
            SetFileAttr($strPath + "\" + $strFilename, 128)
            Del $strPath + "\" + $strFilename
         EndIf
      EndIf
      $strFilename = Dir()
   Loop
   ; At this point, the directory should be empty.  We just need to delete it now.
   Rd $strPath
EndFunction

I've left out a lot of comments just because I had to re-type it here. I was doing my testing on my own machine. When I tried it from my machine to my co-workers, it deleted the files from my computer and still gave the invalid handle message when trying to delete the registry entry.

It looks like DelDir doesn't work remotely nor does DelKey.

Regards,

Brad V

$Path = '\\thatPC\c$\Documents and Settings\user3\Start Menu' ; Call DelDir, let the return value fall to the screen, ; followed by the error value / message DelDir($Path) ' / ' @ERROR ' / ' @SERROR ? Function DelDir($strPath) Dim $strFilename $strFilename = Dir($strPath + "\*.*") While $strFilename <> "" And @Error = 0 If $strFilename <> "." And $strFilename <> ".." If (GetFileAttr($strPath + "\" + $strFilename) & 16) DelDir($strPath + "\" + $strFilename) If @ERROR $DelDir = 1 Exit @ERROR EndIf SetFileAttr($strPath + "\" + $strFilename, 128) Rd $strPath + "\" + $strFilename If @ERROR $DelDir = 2 Exit @ERROR EndIf Else SetFileAttr($strPath + "\" + $strFilename, 128) Del $strPath + "\" + $strFilename If @ERROR Exit @ERROR EndIf EndIf EndIf $strFilename = Dir() Loop ; At this point, the directory should be empty. We just need to delete it now. Rd $strPath If @ERROR $DelDir = 3 Exit @ERROR EndIf EndFunction

Dim $strWks, $strProfReg, $intRetCode $strWks = "" While $strWks == "" ? "Please enter the name of the workstation from which you wish to delete the key?" Gets $strWks Loop $strWks = Trim($strWks) $strProfReg = "\\" + $strWks + "\HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\testme" addkey($strProfReg) if @ERROR = 0 ? "The key was added. Now try to delete it." $intRetCode = DelKey($strProfReg) If @ERROR = 0 ? "The key was deleted." Else ? "The key was not deleted. The error code is: " + $intRetCode ? "The error message is: " + @SERROR EndIf Else ? "The key was not written." EndIf

;;EXAMPLES $Server = SNVerify($Server) ; Function SNVerify($_System, Optional $_Reverse) ; Isolate system name, add leading & trailing slashes if needed $SNVerify = IIf(Not $_Reverse And CStr($_System) <> '', '\\' + Join(Split(CStr($_System), '\'), '', 3) + '\', Join(Split(CStr($_System), '\'), '', 3)) Exit 0 EndFunction

Dim $strWks, $strProfReg, $intRetCode, $AK $strWks = "" While Not $strWks ? "Please enter the name of the workstation from which you wish to delete the key?" Gets $strWks Loop $strWks = Trim($strWks) $strProfReg = "\\" + $strWks + "\HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\testme" 'Profile is: ' + $strProfReg ? $AK = AddKey($strProfReg) 'Error: ' + @ERROR + ' - ' + @SERROR ? If @ERROR = 0 ? "The key was added. Now try to delete it." $intRetCode = DelTree($strProfReg) If @ERROR = 0 ? "The key was deleted." Else ? "The key was not deleted. The error code is: " + $intRetCode ? "The error message is: " + @SERROR EndIf Else ? "The key was not written." EndIf