Wie lese ich einen Registrierungswert und überprüfe seinen Wert?

Question

Ich muss einen Wert aus der Registrierung lesen und dann überprüfen, ob der Name eines alten Servers enthält.

Ich habe dies VBS, aber ich erhalte den Fehler "Objekt erforderlich:" in der IF-Anweisung.

Irgendwelche Hinweise darauf, was ich falsch mache?

Dank

Dim objShell,strDocuments 

Set objShell = WScript.CreateObject("WScript.Shell") 

strDocuments = objShell.RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Personal") 

If strDocuments.Contains("\\oldServer\homes") then 

    WScript.Echo "Documents pointing to the old server" 

End If 

Answer 1

In primitiven Typen VBScript hat wie Contains nicht integrierten Methoden. Verwenden Sie stattdessen InStr Funktion.

If InStr(strDocuments, "\\oldServer\homes") > 0 Then

oder mit Groß- und Kleinschreibung Vergleich:

If InStr(1, strDocuments, "\\oldServer\homes", vbTextCompare) > 0 Then