สร้าง user name ใหม่ด้วย autoit

autoitมีคำสั่งที่ใช้จัดการเกี่ยวกับ user ในเครื่อง
เช่นสร้าง user ใหม่ ลบ user แปลกปลอม เปลี่ยน password ใหม่
หรือเปล่าครับ
แบบคำสั่ง DOS
@echo off
net user monaliza 123456 /add
แบบนี้เป็นต้นเคยใช้คำสั่งดอสเขียนเป็น batchfile
ขอบคุณครับ

ก็เอาดอส เขียนลงใน autoit เลยสิครับ ได้นะ รอคนเก่งกว่านี้มาบอก ส่วนผมชอบแบบส่ง packet เข้าเซิฟเกมมากกว่า อิอิ

ต้องเรียกใช้ดอสผ่าน autoit เท่านั้นหรือครับ
มีวิธีอื่นไหมครับ("คำสั่งจัดการ user")
ขอบคุณครับ

Code:

$colAccounts = ObjGet("WinNT://" &@ComputerName & "")
$objUser = $colAccounts.Create("user", "PSsix");ชื่อ
$objUser.Put ("Fullname", "PSsix User")
$objUser.Put ("Description", "test create")
$objUser.SetInfo
$objGroup = ObjGet("WinNT://" & @ComputerName& "/Administrators,group");กรุ๊ปที่แอดลงไป
$objGroup.Add($objUser.ADsPath)

คุร pos ครับมันขึ้น error autoit line5 objxxอะไรไม่รู้ครับ
ไม่รู้ว่าเป็นที่เครื่องหรือเปล่า ครับ
ลองadd user ในcontropanal ก้ไม่ได้
ลองในดอส ก็ไม่ได้ net user monaliza /add
ทั้งที่ userที่ผมใช้ มีสิทธเท่า administrator(เป็น userในเครื่อง)= user owner
(เครื่องที่ใช้ทดสอบเป็นเครื่องในวงแลน)

Monaliza พิมพ์ว่า:autoitมีคำสั่งที่ใช้จัดการเกี่ยวกับ user ในเครื่อง
เช่นสร้าง user ใหม่ ลบ user แปลกปลอม เปลี่ยน password ใหม่
หรือเปล่าครับ
แบบคำสั่ง DOS
@echo off
net user monaliza 123456 /add
แบบนี้เป็นต้นเคยใช้คำสั่งดอสเขียนเป็น batchfile
ขอบคุณครับ

---------------------------------------------------------
การใช้งานคำสั่ง Dos command ใน AutoIt ไม่ใช่เรื่องยาก ลองค้นคว้าศึกษาและลองเขียนดูครับ

หลักการเขียนคำสั่งภาษาต่างๆ ท่านไม่ต้องไปยึดติดอะไรมาก เอาแบบเขียนง่ายๆ แต่ใช้ได้เข้าไว้

สั้นยาวไม่สำคัญ ถ้าไม่ทำแบบนี้ ท่านก็ไม่ได้ใช้งานคำสั่ง และไม่รู้ว่าความสำเร็จมันอยู่ตรงไหน

เรื่องอื่นค่อยศึกษาเพิ่มเติมในภายหลังได้ เขียนเป็นและเข้าใจในคำสั่งอย่างเดียวยังไม่พอ

ท่านต้องรู้จักออกแบบคำสั่งและประยุกต์ใช้งานด้วยตนเอง.

-----------------------------------------------------------------
คำสั่งที่เกี่ยวกับการใช้งาน Dos command ใน AutoIt
-------------------------------------------------------

Code:

#includ <Process.au3>

_RunDos(sCommand)

-------------------------------------------------------

Code:

Run(@ComSpec & " /k help | more")

-------------------------------------------------------

#includ <Process.au3>
$sCommand = InputBox("test","กรุณาใส่คำสั่งดอสที่ต้องการเรียกใช้งาน","","", 250, 120)
If ($sCommand) <> "" Then
_RunDos($sCommand)
EndIf

ผมเขียนปรับปรุงโค๊ดของท่านให้ใหม่ ลองนำไปเป็นตัวอย่างหัดเขียน

Code:


#include <Process.au3>

While 1
    $sCommand = InputBox("test","กรุณาใส่คำสั่งดอสที่ต้องการเรียกใช้งาน","","", 250, 120)
    If @error = 1 Then Exit
   If $sCommand <> "" Then
        _RunDos($sCommand)
        ExitLoop
   Else
        MsgBox(4096, "", "กรุณาใส่คำสั่งดอสลงในช่อง.")
   EndIf
    Sleep(1)
WEnd


Auto Login

Code:

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Process.au3>

$Form1 = GUICreate("Auto Login", 242, 71, -1, -1)
$Input1 = GUICtrlCreateInput("", 16, 32, 209, 21)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Enter:Login Dos Command", 56, 15, 130, 17)
GUISetState(@SW_SHOW)
WinWaitActive("Auto Login", "", 1)
Sleep(500)
Send("C")
WinWait("Auto Login", "", 1)
Sleep(500)
Send("a")
WinWait("Auto Login", "", 1)
Sleep(500)
Send("l")
WinWait("Auto Login", "", 1)
Sleep(500)
Send("c")
WinWait("Auto Login", "", 1)
Sleep(500)
_RunDOS(GUICtrlRead($Input1))
Do
Sleep(1)
Until GUIGetMsg() = $GUI_EVENT_CLOSE