Posts

Showing posts from September, 2014

Reset Password Administrator of Windows Server 2008 R2

1. Boot จากแผ่น CD ที่ใช้ในการติดตั้ง 2. เลือกเมนู Repair your Computer แล้วกด Next  3. เลือกเมนู Command Prompt 4. มีโปรแกรม Dos ขึ้นมาให้หา Drive ที่มี Windows ให้เจอ อาจเป็น D:\ หรือ อื่นๆ 5. พิมพ์คำสั่ง move d:\windows\system32\utilman.exe utilman.exe.bak 6. พิมพ์คำสั่ง copy cmd.exe utilman.exe 7. Restart ให้ Boot เข้าวินโด้ตามปกติ 8. ให้คลิ๊กเข้าที่เมนู icon utilman ที่หน้า Logon ทางซ้ายล่างของหน้าจอ 9. จะมีหน้าจอ Dos ขึ้นมา 10. ให้พิมพ์คำสั่ง net user admin2 P@ssw0rd /add 11. ให้พิมพ์คำสั่ง net localgroup administrators admin2 /add 12. ให้ทำการ Logon เข้าโดยใช้ admin2 แล้วเข้าไปทำการแก้ไข Password ของ Administrator ได้เลย 13. แก้ไขไฟล์ utilman.exe.bak ให้เป็น utilman.exe ด้วย

Global Variables by app.config

เราสามารถสร้างไปทำการสร้างตัวแปรที่ไฟล์ app.config เองก็ได้ หรือว่าใช้เครื่องมือช่วยในการสร้างก็ได้ แต่ในที่นี่ผมก็เสนอวิธีการใช้เครื่องมือในการช่วยสร้าง Global Variable ดังนี้ 1. ไปที่ Solution Explorer แล้วเลือก Project Properties 2. ไปที่ Tab Settings 3. เพิ่มรายงานเข้าไปตามต้องการ ดังนี้    - Name ชื่อของตัวแปรที่ใช้ในการเรียกใช้งาน    - Type เป็นชนิดของตัวแปร (อาจใช้ตรงนี้ในการเก็บ Connection String ก็ได้)    - Value ถ้าต้องการกำหนดค่าเริ่มต้น 4. กดปุ่ม Save ตอนที่เราเขียนโปรแกรมเราสามารถอ้างอิงได้ดังนี้ My.Settings.Name

Example :: Call Class Inherits Class

Class1.vb Imports System.Data Imports System.Data.SqlClient Public Class Class1     Public sql As String     Public da As SqlDataAdapter     Public ds As New DataSet     Public conn As New SqlConnection("connectionstring") End Class Class2.vb Public Class Class2     Inherits Class1     Public Function displaymsg(ByVal value As String)         Return value     End Function End Class Form1.vb Imports System.Data Imports System.Data.SqlClient Public Class Form1     Dim x As New Class2     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         x.sql = "select * from table"         x.da = New SqlDataAdapter(x.sql, x.conn)         x.da.Fill(x.ds, "dt")         DataGridView2.DataSource = x.ds.Tables("dt")         MsgBox(x.displaymsg("Hello World"))     End Sub End Class

Import / Export Database on Windows by Command Line

Export Database C:\> mysqldump -u[username] -p[password] [database] > c:\backup.sql Import Database C:\> mysql -u[username] -p[password] [database] < c:\backup.sql

Add/Remove Printer by VB Script

On Error Resume Next ' ใส่เพื่อบางครั้งผู้ใช้งานไม่สามารถเพิ่มเครื่องพิมพ์ได้ตามสิทธิ์ Set WshNetwork = CreateObject("WScript.Network") ' ประกาศตัวแปรที่ใช้งาน ' คำสั่งใช้ในการเพิ่มเครื่องพิมพ์ตามที่แชร์เอาไว้ที่ Server WshNetwork.AddWindowsPrinterConnection "\\print-server\printer-name"  ' คำสั่งใช้ในการลบเครื่องพิมพ์ออก WshNetwork.RemovePrinterConnection "\\print-server\printer-name"  ' คำสั่งใช้ในการตั้งเครื่องพิมพ์ตั้งต้น WshNetwork.SetDefaultPrinter "\\print-server\printer-name"  WScript.Quit ** หลังจากนั้นทำการเซฟไฟล์ให้เป็น .vbs แล้วเอาไปใช้งานใน Script Logon ของ Active Directory ได้เลย คร่าวนี้ผูุ้ใช้งานคนไหน Logon แล้วก็จะได้ Printer ตามที่เราตั้งเอาไว้ทันทีเลยจ้า ** มีเงื่อนไขนิดนึง ถ้า Active Directory เป็น Windows Server 2003 ที่เครื่อง Client จำเป็นต้องติดตั้ง Driver ก่อนครั้งนึง เพื่อให้ Windows รู้จักเครื่องพิมพ์นั้นๆ แต่ถ้าเป็น Windows Server 2008 R2 สามารถตั้งค่าให้ AD ส่ง Driver ไปตาม Policy