basganmemduh
Hectopat
- Katılım
- 26 Ocak 2021
- Mesajlar
- 467
Kod bu:
If Not WScript.Arguments.Named.Exists("elevate") Then
CreateObject("Shell.Application").ShellExecute WScript.FullName _
, """ & WScript.ScriptFullName & """ /elevate", "", "runas", 1
WScript.Quit
End If
'----------------------
Dim oShell
Set oShell = WScript.CreateObject ("WScript.Shell")
oShell.run "cmd /c devcon.exe disable ""PCI\VEN_10EC&DEV_8168""" , 0 , True
Set oShell = Nothing
x=msgbox("Aygıt devre dışı" ,0, "haha")
If Not WScript.Arguments.Named.Exists("elevate") Then
CreateObject("Shell.Application").ShellExecute WScript.FullName _
, """ & WScript.ScriptFullName & """ /elevate", "", "runas", 1
WScript.Quit
End If
'----------------------
Dim oShell
Set oShell = WScript.CreateObject ("WScript.Shell")
oShell.run "cmd /c devcon.exe disable ""PCI\VEN_10EC&DEV_8168""" , 0 , True
Set oShell = Nothing
x=msgbox("Aygıt devre dışı" ,0, "haha")
