Làm sao để thực hiện câu lệnh Run Cmd as Administrator (1 người xem)

[Quang_Hải]

Mình có viết code thử đăng ký cho FlashShockWave bằng code này nhưng không thể Load được file vào hệ thống.
Khi đăng ký thủ công:
1. Nếu khi chạy lệnh cmd mà ta chọn Run as administrator thì mọi thứ ok
2. Nếu không chọn Run as administrator khi khởi động cmd thì không load được file.

******
Cho nên mình đoán là code này chạy theo kiểu không có quyền admin nên không load file được
Không biết là có cách nào khắc phục hay không

Sub RegFlash()
Dim sComm As String
  sComm = "Regsvr32 C:\Windows\System32\Macromed\Flash\Flash11c.ocx"
  CreateObject("Wscript.Shell").Run "cmd /c " & sComm, 0, True
End Sub

 

[hungpecc1]

Mình có viết code thử đăng ký cho FlashShockWave bằng code này nhưng không thể Load được file vào hệ thống.
Khi đăng ký thủ công:
1. Nếu khi chạy lệnh cmd mà ta chọn Run as administrator thì mọi thứ ok
2. Nếu không chọn Run as administrator khi khởi động cmd thì không load được file.

******
Cho nên mình đoán là code này chạy theo kiểu không có quyền admin nên không load file được
Không biết là có cách nào khắc phục hay không

Sub RegFlash()
Dim sComm As String
  sComm = "Regsvr32 C:\Windows\System32\Macromed\Flash\Flash11c.ocx"
  CreateObject("Wscript.Shell").Run "cmd /c " & sComm, 0, True
End Sub

thử mấy hàm API xem thế nào anh :

Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
                ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Public Const SW_SHOW = 5
'________________________________________________________________________________________
Sub tst()
    ShellExecute Handle, "runas", "cmd.exe", nil, nil, SW_SHOW
End Sub

 

[hungpecc1]

Mình có viết code thử đăng ký cho FlashShockWave bằng code này nhưng không thể Load được file vào hệ thống.
Khi đăng ký thủ công:
1. Nếu khi chạy lệnh cmd mà ta chọn Run as administrator thì mọi thứ ok
2. Nếu không chọn Run as administrator khi khởi động cmd thì không load được file.

******
Cho nên mình đoán là code này chạy theo kiểu không có quyền admin nên không load file được
Không biết là có cách nào khắc phục hay không

Sub RegFlash()
Dim sComm As String
  sComm = "Regsvr32 C:\Windows\System32\Macromed\Flash\Flash11c.ocx"
  CreateObject("Wscript.Shell").Run "cmd /c " & sComm, 0, True
End Sub

hình như cú pháp để chạy run as admin như vậy:

Sub RegFlash()
Dim sComm As String
  sComm = "Regsvr32 C:\Windows\System32\Macromed\Flash\Flash11c.ocx"
  CreateObject("Wscript.Shell").Run "[COLOR=#ff0000]Runas /user:[/COLOR]administrator""cmd /c " & sComm, 1, True
End Sub

 

[Quang_Hải]

thử mấy hàm API xem thế nào anh :

Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
                ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Public Const SW_SHOW = 5
'________________________________________________________________________________________
Sub tst()
    ShellExecute Handle, "runas", "cmd.exe", nil, nil, SW_SHOW
End Sub

Đang loay hoay tình cách thử mà chưa được. Vì không hiểu cú pháp nên cũng hơi khó nhai


****

Mới thử theo bài 3 thì thấy màn hình nhá lên cái mà chưa biết được hay không. Để remove cái flash rồi test từ đầu coi sao

 

[hungpecc1]

Đang loay hoay tình cách thử mà chưa được. Vì không hiểu cú pháp nên cũng hơi khó nhai


****

Mới thử theo bài 3 thì thấy màn hình nhá lên cái mà chưa biết được hay không. Để remove cái flash rồi test từ đầu coi sao

Em đoán là vậy :

Sub RegFlash()
Dim sComm As String
  sComm = "Regsvr32 C:\Windows\System32\Macromed\Flash\Flash11c.ocx"
  ShellExecute 0&, "runas", "cmd.exe", "/c" & sComm, vbNullString, SW_SHOW
End Sub

 

[VMH0307]

Mình có viết code thử đăng ký cho FlashShockWave bằng code này nhưng không thể Load được file vào hệ thống.
Khi đăng ký thủ công:
1. Nếu khi chạy lệnh cmd mà ta chọn Run as administrator thì mọi thứ ok
2. Nếu không chọn Run as administrator khi khởi động cmd thì không load được file.

******
Cho nên mình đoán là code này chạy theo kiểu không có quyền admin nên không load file được
Không biết là có cách nào khắc phục hay không

Sub RegFlash()
Dim sComm As String
  sComm = "Regsvr32 C:\Windows\System32\Macromed\Flash\Flash11c.ocx"
  CreateObject("Wscript.Shell").Run "cmd /c " & sComm, 0, True
End Sub

Anh thử theo cách rất hay của bác Siwtom này xem, tại đây

 

[Quang_Hải]

Tình hình là vẫn không làm được. Nếu khó quá thì bỏ, nhức đầu rồi.

 

[ndu96081631]

Tình hình là vẫn không làm được. Nếu khó quá thì bỏ, nhức đầu rồi.

Nếu làm tự động không được thì làm thế này:
- Code của ta khi chạy lần đầu sẽ hiện ra thông báo "ép" người dùng phải đăng kỳ gì gì đó (đương nhiên Hải phải hướng dẫn rõ trên MsgBox)
- Dặn người ta rằng: "Ông cứ đăng ký mọi thứ xong đi rồi chạy code"
Tôi có vẻ "cùi mía" nhưng tôi vẫn thường thấy các ứng dụng họ làm vậy

 

[Quang_Hải]

Nếu làm tự động không được thì làm thế này:
- Code của ta khi chạy lần đầu sẽ hiện ra thông báo "ép" người dùng phải đăng kỳ gì gì đó (đương nhiên Hải phải hướng dẫn rõ trên MsgBox)
- Dặn người ta rằng: "Ông cứ đăng ký mọi thứ xong đi rồi chạy code"
Tôi có vẻ "cùi mía" nhưng tôi vẫn thường thấy các ứng dụng họ làm vậy

Có viết cho ai đâu mà dặn với dò. Em thử test trên máy em mà nó chẳng chịu chạy.
****
Nhưng mà hỏng có cùi mía à nha. Chỉ có cùi bắp thôi.

 

[ndu96081631]

Có viết cho ai đâu mà dặn với dò. Em thử test trên máy em mà nó chẳng chịu chạy.

Ủa gì kỳ vậy? Viết code mình thì viết làm đ gì? Gõ bằng tay vào hộp Run cho nó khỏe gà

 

[Quang_Hải]

Ủa gì kỳ vậy? Viết code mình thì viết làm đ gì? Gõ bằng tay vào hộp Run cho nó khỏe gà

Thì tại em muốn nghiên cứu thôi. Tính viết cái code cho nó copy cái file Flash11c.ocx vào đúng đường dẫn rồi tự đăng ký luôn, nhưng làm cốc có được.

 

[ndu96081631]

Thì tại em muốn nghiên cứu thôi. Tính viết cái code cho nó copy cái file Flash11c.ocx vào đúng đường dẫn rồi tự đăng ký luôn, nhưng làm cốc có được.

Cái vụ đó không phải dễ ăn đâu nha, nhất là khi code chạy trên Windows 7 (trở lên) lại càng phiền. Sẽ có hàng đống các rào cản (như UAC chẳng hạn) khiến ta nhức đầu