Forum

Bildirimler
Hepsini Temizle

vbs script

14 Yazılar
6 Üyeler
0 Likes
1,158 Görüntüleme
(@emraheren)
Gönderiler: 35
Trusted Member
Konu başlatıcı
 

Meraba;

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

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

 
Gönderildi : 17/11/2008 13:32

(@emraheren)
Gönderiler: 35
Trusted Member
Konu başlatıcı
 

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 ")

 

 
Gönderildi : 17/11/2008 14:26

(@Anonim)
Gönderiler: 0
 

Merhaba,


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


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

 
Gönderildi : 17/11/2008 14:28

(@rahmidilli)
Gönderiler: 2458
Famed Member
 

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 ")

 

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

 
Gönderildi : 17/11/2008 14:28

(@emraheren)
Gönderiler: 35
Trusted Member
Konu başlatıcı
 

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

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

 
Gönderildi : 17/11/2008 14:33

(@rahmidilli)
Gönderiler: 2458
Famed Member
 

Script ile ne yapmak istiyorsunuz?

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

 
Gönderildi : 17/11/2008 14:36

(@emraheren)
Gönderiler: 35
Trusted Member
Konu başlatıcı
 

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

 
Gönderildi : 17/11/2008 14:44

(@rahmidilli)
Gönderiler: 2458
Famed Member
 

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?

 

 
Gönderildi : 17/11/2008 16:35

(@ufuktatlidil)
Gönderiler: 5718
Illustrious Member
 

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. 

 
Gönderildi : 17/11/2008 17:04

(@rahmidilli)
Gönderiler: 2458
Famed Member
 

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. 

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

 
Gönderildi : 17/11/2008 17:54

(@emraheren)
Gönderiler: 35
Trusted Member
Konu başlatıcı
 

ö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
 
 
 

 

 
Gönderildi : 17/11/2008 20:14

(@serhatakinci)
Gönderiler: 4117
Famed Member
 

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)

 
Gönderildi : 18/11/2008 17:55

(@serhatakinci)
Gönderiler: 4117
Famed Member
 

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. 

Basitçe;

 

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

 
Gönderildi : 18/11/2008 17:56

(@cozumpark)
Gönderiler: 16309
Illustrious Member Yönetici
 

serhat hocam ;


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


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


:)))

 
Gönderildi : 18/11/2008 18:21

Paylaş: