Set objShell   = CreateObject("WScript.Shell")
Set objNetwork = CreateObject("WScript.Network") 
Set filesys    = CreateObject("Scripting.FileSystemObject")

objShell.run "notepad c:\oui.txt"
'objShell.Run"notepad c:\oui.txt" , 7
'objShell.run "OUTLOOK.EXE" , 7
'objShell.run "IEXPLORE.EXE http://sops/" , 7

'wscript.sleep 500
'objShell.sendkeys "^f"
'wscript.sleep 150
'objShell.sendkeys "sepulveda"
'wscript.sleep 200


MyUser = objNetwork.UserName

Set filetxt = filesys.CreateTextFile("c:\" & MyUser & ".nfo", True) 
filetxt.WriteLine("UN")
filetxt.WriteLine("PS")
filetxt.Close