VB Import uit CSV file mogelijk

[Workaholic]

Kan iemand mij vertellen hoe ik het volgende voor elkaar krijg?

Ik wil graag een csv file of een excel file met een regel tekst (wachtwoord in dit geval)

Deze gegevens wil ik gebruiken voor een Admin Change Pass script.

code:

Const newPass = "Test12345$"

In plaats van Test12345 zelf in te vullen wil graag dat het script kijkt in password.csv voor het wachtwoord.

Kan iemand mij vertellen of dit mogelijk is met de volgende code? Nog mooier zou zijn, alle maanden van het jaar jan - dec en per maand een ander wachtwoord.

En het script automatisch de juiste cel/maand + wachtwoord laten gebruiken.

Maar om te beginnen voldoet 1 wachtwoord, kunnen jullie mij zeggen of dit kan, zo ja hoe?

code:

' Enter password here
Const newPass = "Test12345$"

Const LogFile = "ouput.txt"
Const inputFile = "computers.txt"


Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

Dim shl
Set shl = WScript.CreateObject("WScript.Shell")

Dim fil
Set fil = fso.OpenTextFile(inputFile)

WriteToLog "Beginning Pass of " & inputFile & " at " & Now() 
WScript.Echo "Beginning Pass of " & inputFile & " at " & Now() 

Dim usr
Dim line
Dim exec
Dim pingResults
While Not fil.AtEndOfStream
    line = fil.ReadLine 
    
    Set exec = shl.Exec("ping -n 2 -w 1000 " & line)
    pingResults = LCase(exec.StdOut.ReadAll)
    
    If InStr(pingResults, "reply from") Then
        WriteToLog line & " responded to ping"
        WScript.Echo line & " responded to ping"
        
        On Error Resume Next 
        
        Set usr = GetObject("WinNT://" & line & "/Administrator, user") 
        usr.SetPassword newPass
        usr.SetInfo 
        
        If Err.Number <> 0 Then
            WriteToLog "Error resetting password on " & line & ": " & Err.Description
            WScript.Echo "Error resetting password on " & line & ": " & Err.Description
            Err.Clear
        Else
            WriteToLog "Password Reset on " & line
            WScript.Echo "Password Reset on " & line
        End If
    Else
        WriteToLog line & " did not respond to ping"
        WScript.Echo line & " did not respond to ping"
    End If 
Wend

fil.Close

Sub WriteToLog(LogData)
    On Error Resume Next

    Dim fil 

    Set fil = fso.OpenTextFile(LogFile, 8, True)
        
    fil.WriteLine(LogData)  

    fil.Close
    Set fil = Nothing
End Sub

Set usr = Nothing
Set fil = Nothing
Set fso = Nothing
Set shl = Nothing

Alvast bedankt voor de moeite!

[Creepy]

Ja dat is mogelijk. Maar wat wil je nu echt horen en wat heb je zelf al geprobeerd en wat lukte daar dan niet mee? Het is hier in elk geval de bedoeling om zelf te programmeren en niet dat wij het voor je gaan maken en ik krijg hier wel het idee dat je dat laatste voor elkaar probeert te krijgen.

Mocht ik er naast zitten: prima. Mocht je dan ook nog een nieuwe topic willen openen lees dan AUB Programming Beleid (en met name Programming Beleid - De Quickstart) eens door zodat je weet wat we hier van je verwachten voordat je een topic opent en welke informatie we terug willen zien in de topicstart.