Nhờ các bạn sửa dùm đoạn code sau

[an_bmt]

Nhờ các bạn sửa dùm đoạn code sau :
Sub auto_open()
Set fs = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem In colItems
s3 = objItem.ProcessorId
s4= "AB01" & s3 & "10BA"
Set tep1 = fs.CreateTextFile("d:\KC2010\vn10.txt", True)
tep1.Write (s4)
tep1.Close
SetAttr "d:\KC2010\vn10.txt", vbHidden + vbReadOnly
Application.Quit
End Sub

 

[ndu96081631]

Nhờ các bạn sửa dùm đoạn code sau :
Sub auto_open()
Set fs = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem In colItems
s3 = objItem.ProcessorId
s4= "AB01" & s3 & "10BA"
Set tep1 = fs.CreateTextFile("d:\KC2010\vn10.txt", True)
tep1.Write (s4)
tep1.Close
SetAttr "d:\KC2010\vn10.txt", vbHidden + vbReadOnly
Application.Quit
End Sub

Code của bạn có FOR mà thiếu NEXT
Ngoài ra kiểm tra xem đường dẩn d:\KC2010 có tồn tại không
Chỉ thế thôi!
Tôi sửa lại thế này:

Sub auto_open()
  Dim fs, objWMIService, colItems, objItem, s3 As String, s4 As String, tep1
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
  SetAttr "d:\KC2010\vn10.txt", vbArchive
  For Each objItem In colItems
    s3 = objItem.ProcessorId
    s4 = "AB01" & s3 & "10BA"
    Set tep1 = fs.CreateTextFile("d:\KC2010\vn10.txt", True)
    tep1.Write (s4)
    tep1.Close
  Next
  SetAttr "d:\KC2010\vn10.txt", vbHidden + vbReadOnly
  Application.Quit
End Sub