There is no script engine for file extension ".vbs

There is not nearly enough info to help you there. What are you doing and how?

i use this script
https://www.experts-exchange.com/articles/4115/How-to-automatically-delete-ALL-user-profiles-on-Windows-Server-2008.html

What was the exact command you used? Did it definitely have a valid server name at the end of it?

run  delete_all_profiles.bat
i am sure about servername

Hang on - what does (did) profile_delete.txt contain exactly?

Microsoft (R) Windows Script Host Version 5.8
Copyright (C) Microsoft Corporation. All rights reserved.

Input Error: There is no script engine for file extension ".vbs Java".

So how can you possibly use that file as the basis for further processing? You need to find out why it's filled with an error instead of the proper content

delete_all_profiles.bat file contain this line
cscript.exe "D:\Scripts\delete_profiles.vbs servername" > "D:\Scripts\profile_delete.txt"


delete_profiles.vbs file contain
On Error Resume Next

args = WScript.Arguments.Count

If args <> 1 Then
  WScript.Echo "usage: delete_profiles SVRNAME"
  WScript.Echo "example (for remote profiles): cscript.exe delete_profiles SOMESERVER  "
  WScript.Echo "example (for local profiles): cscript.exe delete_profiles .  "
  WScript.Quit
End If

strComputer = WScript.Arguments.Item(0)
Set objWMIService = GetObject("winmgmts:\\" & strComputer &"\root\cimv2")
Set colProfiles = objWMIService.ExecQuery("Select * from Win32_UserProfile")
Wscript.Echo "==" & WScript.Arguments.Item(0) & "==" & vbNewLine

For Each objProfile in colProfiles
  Set objSID = objWMIService.Get("Win32_SID.SID='" & objProfile.SID &"'")
      If (objSID.ReferencedDomainName = "Domainname") Then
      If Not ((objSID.AccountName = "administrator TO EXCLUDE") Or (Left (objSID.AccountName,2) = "administrator")) Then
          Set objUserProfile = GetObject("winmgmts:{impersonationlevel=impersonate}!\\" _
        & strComputer &"\root\cimv2:Win32_UserProfile." _
          &"SID='" & objProfile.Sid &"'")
          objUserProfile.Delete_
     Wscript.Echo objSID.AccountName & ";" & objSID.ReferencedDomainName & ";" & objProfile.LocalPath & " - " & "DELETED"
     End If
End If
Next

delete_all_profiles.bat file contain this line
cscript.exe "D:\Scripts\delete_profiles.vbs servername" > "D:\Scripts\profile_delete.txt"

So, your server name is actually 'servername'?

i replace servername with server which i run script on it , and replace domainname with domain witch server join to it

I'm sorry but i'm not willing to continue with this unless you state the actual literal values in your file(s)
It's wasting my time as there's too much room for error

delete_all_profiles.bat file contain this line
cscript.exe "D:\Scripts\delete_profiles.vbs javam" > "D:\Scripts\profile_delete.txt"


delete_profiles.vbs file contain
On Error Resume Next

args = WScript.Arguments.Count

If args <> 1 Then
  WScript.Echo "usage: delete_profiles SVRNAME"
  WScript.Echo "example (for remote profiles): cscript.exe delete_profiles SOMESERVER  "
  WScript.Echo "example (for local profiles): cscript.exe delete_profiles .  "
  WScript.Quit
End If

strComputer = WScript.Arguments.Item(0)
Set objWMIService = GetObject("winmgmts:\\" & strComputer &"\root\cimv2")
Set colProfiles = objWMIService.ExecQuery("Select * from Win32_UserProfile")
Wscript.Echo "==" & WScript.Arguments.Item(0) & "==" & vbNewLine

For Each objProfile in colProfiles
  Set objSID = objWMIService.Get("Win32_SID.SID='" & objProfile.SID &"'")
      If (objSID.ReferencedDomainName = "manGoPol.com") Then
      If Not ((objSID.AccountName = "administrator TO EXCLUDE") Or (Left (objSID.AccountName,2) = "administrator")) Then
          Set objUserProfile = GetObject("winmgmts:{impersonationlevel=impersonate}!\\" _
        & strComputer &"\root\cimv2:Win32_UserProfile." _
          &"SID='" & objProfile.Sid &"'")
          objUserProfile.Delete_
     Wscript.Echo objSID.AccountName & ";" & objSID.ReferencedDomainName & ";" & objProfile.LocalPath & " - " & "DELETED"
     End If
End If
Next

Not going to work - the second file contains placeholders instead of real values