VBScript Error

[maharaskal]

Hi guys,
there is error on the path kindly help me to solve it. thanks in advance

'-=-=-=Create Folder=-=-=-=-=-

Dim oShell, oEnv, oFS, strDirectory

Set oShell = CreateObject("wscript.Shell")
set oFS = CreateObject("scripting.FileSystemObject")
Set oEnv = oShell.Environment("Process")

strDirectory = oEnv("USERPROFILE") & "\Desktop\VBSLab"
if not oFS.FolderExists(strDirectory) then oFS.CreateFolder(strDirectory)

'-=-=-==-=-=-=-=Retrive sysinf0 & save in txt n open the file =-=-=-=-=-=

Set FSO = CreateObject("Scripting.FileSystemObject")

Set TextFile = FSO.OpenTextFile("%USERPROFILE%") & "\desktop\vbslab\SysInfo.txt", 2, True) ' Error at here
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colSettings 
    TextFile.Writeline "OS Name: " & objOperatingSystem.Name
    TextFile.Writeline "Version: " & objOperatingSystem.Version
    TextFile.Writeline "OS Manufacturer: " & objOperatingSystem.Manufacturer
    TextFile.Writeline "OS Name: " & objOperatingSystem.SizeStoredInPagingFiles
Next
 Set TextFile = Nothing
 Set FSO = Nothing 
 
Wsh.Run ("%USERPROFILE%") & "\desktop\vbslab\SysInfo.txt", 1 ' Another Error at here also.
WScript.Sleep 800 ' Delay allows Notepad to get the focus.

 

[Markbnj]

You might try posting the error, some output, and some context.

 

[KLin]

You're missing a left paren at line 16. That's not your only code problem though. That's all the help I'm going to provide with homework.

http://support.microsoft.com/kb/308364