Dim UserAccount
 
If WScript.Arguments.Count = 1 Then
   UserAccount = WScript.Arguments.Item(0)
Else
   WScript.Echo "Usage: del_user.vbs <user_name>"
   WScript.Quit
End If

strComputer = "."
Set objComputer = GetObject("WinNT://" & strComputer & ",computer")
objComputer.Delete "user", UserAccount

WScript.sleep 1000