Anasayfa » Forum

vbs script  

  RSS
emraheren
(@emraheren)
Üye

Meraba;

Aşağıdaki komutu vbs script olarak nasıl yazabiliriz.

net localgroup users "<DOMAIN>\Domain Users" /delete   " " tırnaklardan dolayı hata alıyorum..

Alıntı
Gönderildi : 17/11/2008 12:32
emraheren
(@emraheren)
Üye

Arkadaşlar aşağıdaki  1 - kodu yazınca çalışyor fakat 2. kodu yazdığımda "Domian\Domain Users"  ( " " )yüzünden hata veriyor nasıl yazmam gerekli acaba.  

 

1- 

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ("cmd /K CD C:\ & net localgroup users Domain\Administrator /delete ")

 2-

 Set fso = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ("cmd /K CD C:\ & net localgroup users "Domian\Domain Users" /delete ")

 

CevapAlıntı
Gönderildi : 17/11/2008 13:26
 Anonim

Merhaba,


Script center'ı incelemende fayda var.Mutlaka içerisinde vardır.


http://www.microsoft.com/technet/scriptcenter/default.mspx

CevapAlıntı
Gönderildi : 17/11/2008 13:28
Rahmi DILLI
(@rahmidilli)
Üye

[quote user="emraheren"]

Arkadaşlar aşağıdaki  1 - kodu yazınca çalışyor fakat 2. kodu yazdığımda "Domian\Domain Users"  ( " " )yüzünden hata veriyor nasıl yazmam gerekli acaba.  

 

1- 

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ("cmd /K CD C:\ & net localgroup users Domain\Administrator /delete ")

 2-

 Set fso = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ("cmd /K CD C:\ & net localgroup users "Domian\Domain Users" /delete ")

 

[/quote]

 Domian şeklinde yazılmış Domain olarak değiştirip deneyiniz.

CevapAlıntı
Gönderildi : 17/11/2008 13:28
emraheren
(@emraheren)
Üye

Script center ta bulamadığım için buraya yazdım.

Domian = Domain adı olarak yanlışlıkla yazılmış harf hatası..

CevapAlıntı
Gönderildi : 17/11/2008 13:33
Rahmi DILLI
(@rahmidilli)
Üye

Script ile ne yapmak istiyorsunuz?

http://technet.microsoft.com/en-us/library/bb490706.aspx

CevapAlıntı
Gönderildi : 17/11/2008 13:36
emraheren
(@emraheren)
Üye

Scripti GPO ile dağıtıp clientların localinde users altında Domain users grubu ekli ise bunları silmek..

CevapAlıntı
Gönderildi : 17/11/2008 13:44
Rahmi DILLI
(@rahmidilli)
Üye

Bu işinizi görür mü?

The syntax of this command is:

NET LOCALGROUP [groupname [/COMMENT:"text"]] [/DOMAIN]

              groupname {/ADD [/COMMENT:"text"] | /DELETE} [/DOMAIN]

              groupname name [...] {/ADD | /DELETE} [/DOMAIN]

As an example, what I've added in the past to "add" certain users and groups

to another group:

net localgroup administrators "mydomainname\Domain Admins" /ADD

:end

This should be just as easy to run to remove someone:

net localgroup administrators "mydomainname\Domain Users" /delete

:end

 

http://www.microsoft.com/technet/scriptcenter/resources/qanda/dec05/hey1212.mspx

How Can I Delete Everyone Except the Administrator and the Domain Admins Group from the Local Administrators Group?

 

CevapAlıntı
Gönderildi : 17/11/2008 15:35
Ufuk TATLIDIL
(@ufuktatlidil)
Üye

Hocam Selam ,

 

Mesaj scripti nasıl yapıyorduk? Yani kullanıcı script dosyasına tıkladığında bir mesaj yazısı çıksın. Örnek Çözüm Park gibi. 

CevapAlıntı
Gönderildi : 17/11/2008 16:04
Rahmi DILLI
(@rahmidilli)
Üye

[quote user="Ufuk TATLIDIL"]

Hocam Selam ,

 

Mesaj scripti nasıl yapıyorduk? Yani kullanıcı script dosyasına tıkladığında bir mesaj yazısı çıksın. Örnek Çözüm Park gibi. 

[/quote]

http://www.microsoft.com/technet/scriptcenter/resources/qanda/jan05/hey0117.mspx Şirket politikası benzeri için güzel bir uygulama.

http://www.microsoft.com/technet/scriptcenter/resources/qanda/mar05/hey0314.mspx

CevapAlıntı
Gönderildi : 17/11/2008 16:54
emraheren
(@emraheren)
Üye

öncelikle teşekkürler.

Aşağıdaki kod Users grubu altında Domain User Dışındaki tüm kullanıcıları siliyor benim istediğim ise sadece Users altındaki Domain Users grubunu  silmek.. 🙁

 

strComputer = "."

Set objGroup = GetObject("WinNT://" & strComputer & "/Users")

For Each objUser In objGroup.Members
If objUser.Name "Domain Users"
objGroup.Remove(objUser.AdsPath)
End If
Next
 
 
 

 

CevapAlıntı
Gönderildi : 17/11/2008 19:14
Serhat AKINCI
(@serhatakinci)
Üye

Merhaba.

Script'i aşağıdaki şekilde düzenlerseniz, istediğiniz olur.

 

strComputer = "."

Set objAdmins = GetObject("WinNT://" & strComputer & "/Users")
Set objGroup = GetObject("WinNT://cozumpark/domain users")
objAdmins.Remove(objGroup.ADsPath)

CevapAlıntı
Gönderildi : 18/11/2008 16:55
Serhat AKINCI
(@serhatakinci)
Üye

[quote user="Ufuk TATLIDIL"]

Hocam Selam ,

 

Mesaj scripti nasıl yapıyorduk? Yani kullanıcı script dosyasına tıkladığında bir mesaj yazısı çıksın. Örnek Çözüm Park gibi. 

[/quote]

Basitçe;

 

Msgbox "Türkiyenin Bilişim Portalı: ÇözümPark"

CevapAlıntı
Gönderildi : 18/11/2008 16:56
CozumPark
(@cozumpark)
Üye

serhat hocam ;


mesajı şöyle değiştirsek nasıl olur?


Msgbox "Türkiye'nin Bilgi İşlem Departmanı : ÇözümPark"


:)))

CevapAlıntı
Gönderildi : 18/11/2008 17:21
Paylaş:

Lütfen Giriş yap yada Kayıt ol