how to convert vbs to powershell?

Question

Set objSysInfo = CreateObject("ADSystemInfo") strUser = objSysInfo.UserName Set objSysInfo = CreateObject("ADSystemInfo") strUser = objSysInfo.UserName Set objUser = GetObject("LDAP://" & strUser) objUser.GetInfo strMail = objUser.Get("mail") Wscript.Echo strMail

Answer 1

Hi, I'd be happy to help you out with your question. Sorry for the inconvenience caused. To convert the given VBScript code to PowerShell, we need to make some changes to the syntax and object model used in the script. Here is the equivalent PowerShell code: $objSysInfo = New-Object -ComObject "ADSystemInfo" $strUser = $objSysInfo.UserName $objUser = [ADSI]"LDAP://$strUser" $objUser.GetInfo() $strMail = $objUser.Get("mail") Write-Output $strMail In this code, we use the New-Object cmdlet to create a new instance of the ADSystemInfo COM object, which is used to retrieve the current user's name. Then, we use the [ADSI] type accelerator to connect to the user object in Active Directory using its LDAP path. Once we have the user object, we call the GetInfo() method to retrieve the object's properties, and the Get() method to retrieve the user's email address. Finally, we use the Write-Output cmdlet to display the email address on the console. If you have any other questions or need assistance with anything, please don't hesitate to let me know. I'm here to help.

If the reply was helpful, please don’t forget to upvote or accept as answer, thank you.

Answer 2

This is a good place to start: https://learn.microsoft.com/en-us/previous-versions/windows/it-pro/windows-powershell-1.0/ee221101(v=msdn.10)?redirectedfrom=MSDN

Before you start, though, ask yourself why you want to do this. You're only going to end up doing the same thing, just in a different language, and you're going to spend a LOT of time translating, and a lot more debugging the result, to accomplish that.

If you don't mind starting the 32-bit version of PowerShell, look into the MSScriptControl.ScriptControl COM control. Feed your VB code into it and then run it.