On Error Resume Next Computers = Array("Servername1","Servername2",......) For Each Computer In Computers Set objWMIService = GetObject _ ("winmgmts:\\" & Computer & "\root\cimv2:Win32_Process") errReturn = objWMIService.Create _ ("cmd.exe /c md c:\Foldername", Null, Null, intProcessID) Next