Desktop Management Scripting-Sprache › Funktionen › Verschiedene Funktionen › Not - Zurückgeben der logischen Negation eines Ausdrucks

Not - Zurückgeben der logischen Negation eines Ausdrucks

Gültig für NetWare, Symbian OS, UNIX, Windows und Windows CE.

Die Funktion "Not" gibt die logische Negation eines Ausdrucks zurück.

Diese Funktion hat das folgende Format:

Not(n as Integer) as Integer

n

Ausdruck.

Wenn der Parameter n den Wert null ergibt, dann gibt die Funktion TRUE (ungleich null) zurück. Andernfalls wird FALSE (null) zurückgegeben.

Beispiel: Funktion "Not"

rem

Rem This example creates an icon group called DMS Test with an icon to the script editor.
Rem This Example also adds a shortcut on the desktop
Rem
Rem After the creation the icon group and the shortcut will be removed
Rem

' determine location of dmsedit.exe
Dim hkey, dummy As Integer
Dim dmseditPath As String

hkey = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\ComputerAssociates\DMScript\DMSEdit")
If hKey = 0 Then
	MessageBox("Can not open DMSEdit-key", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)

SetStatus(1)
	Beenden
End If

If Not(RegQueryVariable(hkey, "dmseditInstalledAt", dmseditPath, dummy) = REG_STRING) Then
	MessageBox("dmseditInstalledAt not found or invalid", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)
	SetStatus(2)
	Beenden
End If

RegCloseKey(hkey)

' Now Create group and icons
If Not(CreateGroup("DMS Test", LNK_PROGRAMS)) Then
	MessageBox("Can not create icon group", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)

SetStatus(3)
	Beenden
End If

If Not(AddItem("DMS Editor", dmseditPath+"\dmsedit.exe","","", "DMS Test",FALSE,)) Then
	MessageBox("Failed to install dmsedit at icon group", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)
	SetStatus(4)
	Beenden
End If

if Not(CreateLink("DMS Editor", dmseditPath+"\dmsedit.exe","","", "",LNK_NORMAL, LNK_DESKTOP)) Then	MessageBox("Failed to install dmsedit at desktop", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)

SetStatus(5)
	Beenden
End If

MessageBox("Icons and shortcut has been created, press OK to delete them again","Desktop Management Scripting: Icon Confirm", MB_OK + MB_ICONINFORMATION)

'Delete shortcut 
if Not(DeleteItem("DMS Editor", "", LNK_DESKTOP)) Then
	MessageBox("Deinstallation von dmsedit vom Desktop fehlgeschlagen", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)
	SetStatus(6)
	Beenden
End If

if Not(DeleteGroup("DMS Test", LNK_PROGRAMS)) Then
	MessageBox("Failed to delete icon group", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)

SetStatus(7)
	Beenden

End If