Kod:
PrivateDeclareFunction GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer AsString, nSize AsLong) AsLong PrivateSub Command1_Click() If"" & Text1.Text & "" = ""Then MsgBox"Kullanıcı Adı Yazınız.", vbCritical, "Kullanıcı Oluştur" GoTo 10 EndIf Set objNetwork = CreateObject("Wscript.Network") Set colAccounts = GetObject("WinNT://" & objNetwork.ComputerName & "") colAccounts.Filter = Array("user") ForEach objUser In colAccounts If objUser.Name = "" & Text1.Text & ""Then MsgBox"Kullanıcı Adı Mevcut, Lutfen Farklı Kullanıcı Adı Yazınız", vbCritical, "Kullanıcı Oluştur" GoTo 10 EndIf Next Set colAccounts = GetObject("WinNT://" & Frame1 & "") Set objUser = colAccounts.Create("user", "" & Text1.Text & "") objUser.SetPassword Text2.Text objUser.SetInfo MsgBox (Text1.Text & " -Kullanıcısı Başarılı ile Oluşturuldu"), vbCritical, "Kullanıcı Oluştur" 10 EndSub Function GetComputer() AsString Dim X AsLong Dim PCName AsString * 255 PCName = Space(255) X = GetComputerName(PCName, 255&) GetComputer = Left$(PCName, InStr(PCName, vbNullChar) - 1) EndFunction PrivateSub Form_Load() Dim NameOfPC AsString NameOfPC = GetComputer Frame1 = NameOfPC EndSub

__________________