| 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 |