ผมไปเจอบทความนี้จาก https://www2.thaiadmin.org/board/index.php?topic=74825.0 โดย User: s_worachat
ซึ่งพอรู้คราวๆจากการโต้ตอบกันบ้างนิดหน่อย แต่ไม่ค่อยเข้าใจมีใครพออธิบายให้แบบละเอียดได้ไหมครับ พอดีจะดูว่าพอจะเอาไปปรับใช้บ้างได้ไหม

*****
คือส่วนของผมคือ ๊ เครื่องคอม Domian จะต้ง ID ให้พนักงานเป็นแค่ User ทุกคน แต่จะมี ID ผมในเครื่องเป็นสิทธิ Admin อยู่ทุกเครื่อง
แล้วคอมพิวเตอร์ Print spooler มันชอบตาย ต้อง Restart Service บ่อบๆ ซึ่งเวลาจะ Install หรือ Run อะไรสักอย่างที่เกี่ยวกับการอนุญาต มันจะเด่งมาให้ใส่ Username & Password ก่อนตลอด ผมเลยจะเขียน Script Batch file ให้มัน Run ในสิทธิของผมที่เป็น Admin เลยได้ไหมครับ แล้วข้อความข้าล่างพอจะปรับแก้ให้เข้ากับผมได้ไหม

---------------------------------------------------------------------------------------------------------------------------------
setupFile = "\\server\share\setup.exe"   '<-----application to runas [!]

hardcodedUsername = "domain\user"        '<----not nessesary,  can be used if no scriptparameters were provided
hardcodedPassword =  "password"       '<----not nessesary,  can be used if no scriptparameters were provided



'Read arguments...
'------------------------------------------------------
                               sUsername = Null
                               sPassword = Null
Set Named = WScript.Arguments.Named
     If Named.Exists("u") Then
               sUsername = Named.Item("u")
        Else sUsername = hardcodedUsername
       End If
     If Named.Exists("p") Then
               sPassword = Named.Item("p")
        Else sPassword = hardcodedPassword
       End If

set objShell = CreateObject("Wscript.Shell")

objShell.run("runas.exe /noprofile /u:" & sUsername & " "&Chr(34)&"\"&Chr(34)& _
             setupFile &"\" &Chr(34)&Chr(34))

WScript.Sleep 600   '<----must be the max. amount of second it takes to to open the Runas: "enter password" window

objShell.AppActivate "runas.exe"
If objShell.AppActivate("runas.exe") then _
objShell.Sendkeys sPassword&"~"  '<--- auto fill-in the password, and continues

set objShell = Nothing
Wscript.Quit