Convert VBS to AutoIt - (Moved)

[stan0ne]

Hi.
do I convert a code?

expandcollapse popup

Option Explicit
Title = "Bilgisayar Tanimlama"
Dim Title,strComputer,objWMIService,strNewName,objComputer
Dim Obj,Question,err,strDescription,colComputers,x

If Not WScript.Arguments.Named.Exists("elevate") Then
   CreateObject("Shell.Application").ShellExecute DblQuote(WScript.FullName) _
   , DblQuote(WScript.ScriptFullName) & " /elevate", "", "runas", 1
    WScript.Quit
End If

Call Rename_PC()

Call Ask4Reboot()

Sub Rename_PC()
strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
strNewName = Inputbox ("Bilgisayar Adi Giriniz:",Title, ChrW(246)  & "Ornek: BIMsavasb")
If strNewName = "" Then Wscript.Quit()
Set colComputers = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
    err = objComputer.Rename(strNewName)
Next
End Sub

Sub Changing_Descrption()
strDescription = Inputbox("Enter Description : ",Title,"Machine blalllaaaaaaa")
If strDescription = "" Then Wscript.Quit()
Set Obj= GetObject("winmgmts:\\" & strComputer).InstancesOf("Win32_OperatingSystem")
For Each x In Obj 
   x.Description = strDescription
   x.Put_
Next
End Sub

Sub Ask4Reboot()

Question = MsgBox("Bilgisayar Adi " DblQuote(strNewName) & " olarak degistirilecek." & vbCrLf &_
"Simdi yeniden baslatmak istiyor musunuz?",VbYesNo+VbQuestion,Title)
If Question = VbYes then 
    Reboot()
Else

    LocalScript()
End If
End Sub

Function DblQuote(Str)
    DblQuote = chr(34) & Str & chr(34)
End function

Sub Reboot()
Dim ws,Command
Set ws = CreateObject("Wscript.Shell")
Command = "cmd /K @echo off & net use w: \\dc\PublicFiles\Scripts /user:savas.local\test passx /persistent:no & call w:\LanRename.vbs & net user administrator /active:yes & net user administrator passxx & net user bislem /delete & shutdown /r /t 5 /c "& DblQuote("Bilgisayar yeniden basliyor..")
ws.run Command,1,True
End Sub

Sub LocalScript()
Dim ws,Command
Set ws = CreateObject("Wscript.Shell")
Command = ("cmd /K @echo off & net use w: \\dc\PublicFiles\Scripts /user:savas.local\test passx /persistent:no & call w:\LanRename.vbs & net user administrator /active:yes & net user administrator passxx & net user bislem /delete & exit")
ws.run Command,1,True
End Sub

I used VAConvert.04 but got an error.

can you help me?

 

THANKS

Edited December 16, 2019 by stan0ne
edit code

[water]

Something like this (untested!):

expandcollapse popup

#RequireAdmin
#include <MsgBoxConstants.au3>

$sTitle = "Bilgisayar Tanimlama"
Global $sTitle, $sComputer, $oWMIService, $sNewName, $oComputer
Global $cObj, $oObj, $sQuestion, $sErr, $sDescription, $cComputers

Rename_PC()
Ask4Reboot()

Func Rename_PC()
    $sComputer = "."
    $oWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & $sComputer & "\root\cimv2")
    $sNewName = InputBox("Bilgisayar Adi Giriniz:", $sTitle, ChrW(246) & "Ornek: BIMsavasb")
    If $sNewName = "" Then Exit
    $cComputers = $oWMIService.ExecQuery("Select * from Win32_ComputerSystem")
    For $oComputer In $cComputers
        $sErr = $oComputer.Rename($sNewName)
    Next
EndFunc   ;==>Rename_PC

Func Changing_Description()
    $sDescription = InputBox("Enter Description : ", $sTitle, "Machine blalllaaaaaaa")
    If $sDescription = "" Then Exit
    $cObj = ObjGet("winmgmts:\\" & $sComputer).InstancesOf("Win32_OperatingSystem")
    For $oObj In $cObj
        $oObj.Description = $sDescription
        $oObj.Put_
    Next
EndFunc   ;==>Changing_Description

Func Ask4Reboot()
    $sQuestion = MsgBox($MB_YESNO + $MB_ICONQUESTION, $sTitle, 'Bilgisayar Adi "' & $sNewName & '" olarak degistirilecek.' & @CRLF & "Simdi yeniden baslatmak istiyor musunuz?")
    If $sQuestion = $IDYES Then
        Reboot()
    Else
        LocalScript()
    EndIf
EndFunc   ;==>Ask4Reboot

Func Reboot()
    Local $sCommand
    $sCommand = "cmd /K @echo off & net use w: \\dc\PublicFiles\Scripts /user:savas.local\test passx /persistent:no & call w:\LanRename.vbs & net user administrator /active:yes & net user administrator passxx & net user bislem /delete & shutdown /r /t 5 /c " & '"Bilgisayar yeniden basliyor.."'
    RunWait($sCommand, "", @SW_SHOW)
EndFunc   ;==>Reboot

Func LocalScript()
    Local $sCommand
    $sCommand = "cmd /K @echo off & net use w: \\dc\PublicFiles\Scripts /user:savas.local\test passx /persistent:no & call w:\LanRename.vbs & net user administrator /active:yes & net user administrator passxx & net user bislem /delete & exit"
    RunWait($sCommand, "", @SW_SHOW)
EndFunc   ;==>LocalScript

 

[stan0ne]

20 hours ago, water said:

Something like this (untested!):

expandcollapse popup

#RequireAdmin
#include <MsgBoxConstants.au3>

$sTitle = "Bilgisayar Tanimlama"
Global $sTitle, $sComputer, $oWMIService, $sNewName, $oComputer
Global $cObj, $oObj, $sQuestion, $sErr, $sDescription, $cComputers

Rename_PC()
Ask4Reboot()

Func Rename_PC()
    $sComputer = "."
    $oWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & $sComputer & "\root\cimv2")
    $sNewName = InputBox("Bilgisayar Adi Giriniz:", $sTitle, ChrW(246) & "Ornek: BIMsavasb")
    If $sNewName = "" Then Exit
    $cComputers = $oWMIService.ExecQuery("Select * from Win32_ComputerSystem")
    For $oComputer In $cComputers
        $sErr = $oComputer.Rename($sNewName)
    Next
EndFunc   ;==>Rename_PC

Func Changing_Description()
    $sDescription = InputBox("Enter Description : ", $sTitle, "Machine blalllaaaaaaa")
    If $sDescription = "" Then Exit
    $cObj = ObjGet("winmgmts:\\" & $sComputer).InstancesOf("Win32_OperatingSystem")
    For $oObj In $cObj
        $oObj.Description = $sDescription
        $oObj.Put_
    Next
EndFunc   ;==>Changing_Description

Func Ask4Reboot()
    $sQuestion = MsgBox($MB_YESNO + $MB_ICONQUESTION, $sTitle, 'Bilgisayar Adi "' & $sNewName & '" olarak degistirilecek.' & @CRLF & "Simdi yeniden baslatmak istiyor musunuz?")
    If $sQuestion = $IDYES Then
        Reboot()
    Else
        LocalScript()
    EndIf
EndFunc   ;==>Ask4Reboot

Func Reboot()
    Local $sCommand
    $sCommand = "cmd /K @echo off & net use w: \\dc\PublicFiles\Scripts /user:savas.local\test passx /persistent:no & call w:\LanRename.vbs & net user administrator /active:yes & net user administrator passxx & net user bislem /delete & shutdown /r /t 5 /c " & '"Bilgisayar yeniden basliyor.."'
    RunWait($sCommand, "", @SW_SHOW)
EndFunc   ;==>Reboot

Func LocalScript()
    Local $sCommand
    $sCommand = "cmd /K @echo off & net use w: \\dc\PublicFiles\Scripts /user:savas.local\test passx /persistent:no & call w:\LanRename.vbs & net user administrator /active:yes & net user administrator passxx & net user bislem /delete & exit"
    RunWait($sCommand, "", @SW_SHOW)
EndFunc   ;==>LocalScript

 

that's incredible! great! It works! Much obliged. thank you so much..

[stan0ne]

20 hours ago, water said:

Something like this (untested!):

.............

 

Can I ask you one more question?
can we apply this code according to the operating system? for example, if the operating system is windows 10, all code should run, but if the operating system is windows 7, go to the "Ask4Reboot" SUB 'section. Is this possible? I'm sorry I didn't know how to do it.

[stan0ne]

i solved;

If @OSVersion = 'win_10' Then
    w10()
EndIf
If @OSVersion = 'win_7' Then
    w7()
EndIf

func w7()
        msgbox("","test","windows 7")
EndFunc
func w10()
        msgbox("","test","windows 10")
EndFunc

thanks

Edited December 17, 2019 by stan0ne

[JLogan3o13]

Moved to the appropriate forum, as the AutoIt Example Scripts forum very clearly states:

Quote

Share your cool AutoIt scripts, UDFs and applications with others.

---

Do not post general support questions here, instead use the AutoIt Help and Support forums.

Moderation Team

[stan0ne]

editt

Edited December 17, 2019 by stan0ne